Servus ihr!
Ich hab folgendes Problem: mit dem folgenden Code soll ein Kommentar erzeugt werden...
For i = 4 To SmallColumn
Workbooks("Vorlage.xls").Worksheets(1).Cells(3, i).AddComment
Workbooks("Vorlage.xls").Worksheets(1).Cells(3, i).Comment.Visible = False
Workbooks("Vorlage.xls").Worksheets(1).Cells(3, i).Comment.Text _
Text:=Workbooks("Vorlage.xls").Worksheets(5).Range("A" & i - 2).Value & Chr(10) & _
Workbooks("Vorlage.xls").Worksheets(5).Range("B" & i - 2).Value & Chr(10) & _
Workbooks("Vorlage.xls").Worksheets(5).Range("C" & i - 2).Value & " " & _
Workbooks("Vorlage.xls").Worksheets(5).Range("D" & i - 2).Value & Chr(10) & _
Workbooks("Vorlage.xls").Worksheets(5).Range("E" & i - 2).Value & Chr(10) & _
Workbooks("Vorlage.xls").Worksheets(5).Range("F" & i - 2).Value
Workbooks("Vorlage.xls").Worksheets(1).Cells(3, i).Comment.Shape.ScaleWidth 1.22, msoFalse, msoScaleFromTopLeft
Next i
Das Makro läuft ohne eine Fehlermeldung durch, legt aber keinen Kommentar an - was kann da falsch laufen? Ich hab das Makro in abgeänderter Form in einem anderen Makro laufen, da klappts tadellos.
Hat jemand eine Ahnung?
lg, Tobias