Hallo Leute,
hab wiedermal ein Problem,
mein folgendes Makro zum Kommentar einfügen funktioniert nicht.
Dim r As Range
Set r = Cells(zeil + (Me.ComboBox3.ListIndex) * 37, etr) ' Text einfügen
If Not TextBox1 = "" Then
If r.Comment Is Nothing Then r.AddComment
r.Comment.Text TextBox1.Text
End If
könnt ihr mir da weiterhelfen?
Das Makro läuft einwandfrei aber trägt nichts in die zellen ein.
Gruß
Hamza