Mit folgendem Befehl versuche ich allfällig vorhandene Kommentare zB. in Spalte C als Text in Spalte D zu schreiben. Manchmal klappt es manchmal erhalte ich die Fehlermeldung "Objektvariable oder With-Blockvariable nicht festgelegt".
For Each Zelle In Columns(3).SpecialCells(xlCellTypeComments)
Cells(Zelle.Row, 4) = Zelle.Comment.Text
Next Zelle
Oftmals sind in der ganzen Spalte keine Kommentare, auch dann müsste es funktionieren. Ich komme leider nicht weiter. Woran liegt es oder gibt es eine andere Möglichkeit?
Vielen Dank
Gregor