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