ich möchte den Zellinhalt der Tabelle "Kommantare" als Kommentar in die Tabelle "Berichte" einfügen. Der feste Bereich beider Tabellen ist von A1:H35.
Es klappt bereits, aber nur mit einer Spalte. Wie bekomme ich noch zusätzlich die anderen Spalten mit dazu?
Sub Kommentare()
Dim z As Long, arrCom(35) As String
With Worksheets("Kommentare")
For z = 1 To 35
arrCom(z) = .Cells(z, 1).Text
Next
End With
With Worksheets("Tabelle2")
For z = 1 To 35
With .Cells(z, 1)
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=arrCom(z)
End With
Next
End With
End Sub
Es geht hier wohl um eine zusätzliche For/Next Schleife, aber da erhalte ich immer Fehlermeldungen...Danke für eure Hilfe und Grüße
Markus