Comments.Text Problem
Blitzbrain.de
Folgender Code funktioniert:
Sub Clear_All_Comments()
Set cmt = Worksheets("Kalender2").Comments
For Each c In cmt
c.Delete
Next
End Sub
auch dieser Code funktioniert:
Sub What_Comment()
Set cmt = Worksheets("Kalender2").Comments
For Each c In cmt
B = c.Text
MsgBox B
Next
End Sub
Aber ich möchte jetzt jeden Kommentar Bearbeiten können.
Zum Testen habe ich diesen Code verwendet, der aber aber den LZF 438 generiert.
(Objekt unterstützt die Methode nicht)
Sub What_Comment_Text()
Dim B As String
Set cmt = Worksheets("Kalender2").Comments
For Each c In cmt
B = c.Text
B = InputBox("Kommentartext editieren", "Kommentartext", B)
c.Text = B
Next
End Sub
Auch dieser Code funktioniert nicht:
Sub What_Comment_Text2()
Dim n As Integer
Dim t As String
n = Worksheets("Kalender2").Comments.Count
For i = 1 To n
t = Worksheets("Kalender2").Comments.Item(i).Text
t = InputBox("Kommentartext editieren", "Kommentartext", t)
Worksheets("Kalender2").Comments.Item(i).Text = t
Worksheets("Kalender2").Comments.Item(i).Visible = True
Next i
End Sub
Wieso? ...
Außerdem ist es interessant, dass ein Zeitloch später eingefügter Kommentar in der Auflistung trotzdem vorher eingefügten Kommentar erscheint, wenn er in der Adresse "weiter oben" ist.
Also, wenn ein Kommentar in Cells(1,1) später eingefügt wurde, steht er in Worksheets(1).Comments in der Liste vor dem Kommentar in Cells(4,7)... Es entscheidet also die Position des Kommentars...nicht der Erzeugungszeitpunkt.