Kommentare
27.02.2007 09:56:55
sen
ich versuche einer Zeile einen Kommentar zuzufügen. Diesen bastel ich als String mir aus anderen Zelleninhalten zusammen. Beim Befehl .AddComment bekomme ich immer einen Fehler ("Anwendungs- oder objektdefinierter Fehler"). An meinem Zusammengebastelten String dürfte es nicht liegen, da ich es auch schon mit einfachen Strings getestet habe, wieder mit Fehler.
Hier mein Code:
Private Function addComments()
Dim CommentText As String
Dim rowCounter As Integer
Zeilen = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
rowCounter = 1
Do
CommentText = Range("G" & rowCounter).Text & " - " & Range("H" & rowCounter).Text
Range("E1").AddComment CommentText
Loop While Zeilen > rowCounter
End Function