Kommentare überschreiben
12.05.2009 11:28:49
Lars
irgendwie stehe ich auf dem Schlauch, was das Überschreiben eines vorhandenen Kommentars in einer Zelle angeht. Der Codeblock sieht wie folgt aus:
Cells(SelButRow, SelButCol - 2).Select
If Selection.Comment Is Nothing Then
With Selection
.AddComment.Text Cmt
.Comment.Visible = False
End With
Else
With Selection
.Comment.Text Text:=Cmt, Start:=1, overwrite:=True
.Comment.Visible = False
End With
End If
Ich möchte also überprüfen, ob in der selektierten Zelle bereits ein Kommentar vorhanden ist. Falls ja, soll er mit einem neuen Kommentar, der in der Variablen Cmt zwischengespeichert ist, überschrieben werden. Die Fehlermeldung lautet:
Laufzeitfehler 5, ungültiger Prozeduraufruf oder ungültiges Argument auf eben der Zeile .Comment.Text Text:=Cmt, Start:=1, overwrite:=True
Wenn ich Start... auskommentiere, wird der Inhalt von Cmt einfach an den bestehenden Kommentar angehängt, das möchte ich aber nicht.
Hat jemand eine Idee? Schönen Dank im Voraus!
Lars