vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
Kommentare 
Autor: TRC
Datum: 09.05.06 22:44
Hallo,

bin ziemlicher Anfänger in Excel und habe folgendes Problem.

Wenn sich der Wert in einer Zelle ändert, soll der Benutzer aufgefordert werden in die Zelle einen bestimmten Kommentar einzugeben, bzw. einen schon vorhandenen zu verändern oder zu ergänzen.

Die Änderung überwache ich momentan mit 

Private Sub Worksheet_Change(ByVal Target As Range)
Nach der Änderung lese ich die aktive Zelle aus und springe um eins zurück um auf die aktuelle Zelle zu kommen.

Zwischenfrage kann Excel auch zu einer Zelle zurückspringen, wenn die EIngabe nicht mit TAB oder ENTER abgschlossen wurde, sondern man einfach mit der Maus irgendwo in die Tabelle geklickt hat. Mit eins zurück geht das dann ja leider nicht mehr. 

ActiveSheet.Unprotect Password:="XXXX"
Application.EnableEvents = False
d = ActiveCell.Row
e = ActiveCell.Column
' Eine Zelle nach links
f = e - 1
 
g = f + 64
Adresse = Chr$(g) & d
Dann öffne ich das Kommentarfenster mit folgenden Befehlen: 

Range(Adresse).Select
Kommentar = ActiveSheet.Range(Adresse).NoteText
'Abfrage ob schon ein Kommentar vorhanden
If Kommentar = "" Then
ActiveSheet.Range(Adresse).AddComment
End If
' Eingabe Kommentar
ActiveCell.Comment.Visible = True
Range(Adresse).Comment.Shape.Select True
Wie fange ich jetzt ab ob das Kommentarfenster wieder verlassen wird (geht ja mit ESC oder Mausklick in die Tabelle)

Danach soll Folgendes ausgeführt werden 

ActiveSheet.Range(Adresse).Comment.Visible = False
 
Auslesen des eingegebenen Kommentars
Range(Adresse).Select
Kommentar = ActiveSheet.Range(Adresse).NoteText
'Wenn nichts eingegeben wurde Kommentar wieder löschen
If Kommentar = "" Then
Selection.ClearComments
End If
 
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Application.EnableEvents = True
ActiveSheet.Protect Password:="XXXX", UserInterfaceOnly:=True
End Sub
Und ich hoffe das dann bei der nächsten Änderung irgendeier Zelle das Gleiche wieder von vorne losgeht.


Ich hoffe es ist nicht alles falsch, was ich soweit zusammengeschrieben habe. Bin für jede Hilfe dankbar.

Gruß Ralf
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Kommentare1.217TRC09.05.06 22:44
Re: Kommentare767me3683510.05.06 11:17
Re: Kommentare674TRC10.05.06 21:36
Re: Kommentare667me3683511.05.06 05:47
Re: Kommentare653TRC11.05.06 19:04
Re: Kommentare701me3683520.05.06 10:39
Re: Kommentare674TRC20.05.06 11:06

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel