Kommentare aus Zelleninhalt generieren
24.02.2018 13:38:30
Leon
ich möchte die Zelleninhalte aus Sheet1 als Kommentare der Zellen in Sheet2 anheften.
Hier ein Beispiel wie es aussehen sollte, nur nicht die Kommentare in Sheet1 sondern Sheet2.
Wichtig dabei muss sein, dass bei Zellen ohne Inhalt kein Kommentar erstellt wird und an dieser Stelle eine Lücke in der Kommentarabfolge entsteht.
Meinen Code in VBA:
Sub kommentare()
Dim cmt As Comment
Dim zelle As Range
Dim zaehler As Integer
zaehler = 1
On Error Resume Next
For Each zelle In Sheets("Tabelle1").Range("A1:A40")
If zelle.Value "" Then
Set cmt = zelle(zaehler, 2).AddComment
cmt.Text Text:=zelle.Value
End If
zaehler = zaehler + 0.25
Next zelle
End Sub
Vielen Dank schonmal im Voraus!
Gruß Leon
Anzeige