Hallo zusammen,
ich bin relativ neu was VBA angeht und bin an einem (vermutlich lösbaren) Problem hängen geblieben.
Umgebung ist folgende: Ich habe in einem Excel Tabellenblatt in Zeile 10 Zellen voller Text (bspw. B10:N10). Der Text aus Zeile B10 soll als Kommentar in die Zelle B2 eingetragen werden, Text aus C10 in C3 usw.
Sub Test_02_Kommentar()
Dim y As Range
Dim element As Range
Dim x As Range
With Sheets("Tabelle1")
Set y = .Range("B2:N2")
Set x = .Range("B10:N10")
For Each element In y
If element.Comment Is Nothing Then
With element.AddComment
element.Comment.Visible = False
.Text "PLATZHALTER"
End With
End If
Next
End With
End Sub
Das ist mein bisheriger Code. Aktuell wird somit in jeder Zelle in Zeile 2 "PLATZHALTER" als Kommentar eingetragen.
Ich würde gerne automatisiert alle Kommentare auf einmal übertragen.
Für Hilfe/Vorschläge wäre ich dankbar.
Grüße
Ben
|