ich habe noch eine Frage?
ist das möglich, wenn die Zeile oder Spalte, mit Kommentar eingefügt wurden, automatisch eingefärbt werden?
Gruß
Ahmadian
Sub Kommentar()
Dim i As Integer
For i = 1 To 100
If Not Sheets(1).Cells(i, 1).Comment Is Nothing Then
Sheets(1).Cells(i, 1).Interior.ColorIndex = 6
End If
Next i
End Sub