kann mir einer sagen wieso bei meiner prozedur immer alle spalten grau werden anstatt nur die mit einem kommentar...
Public Sub kom_vorh()
Dim zelle As Range
For Each zelle In Range("B21:AI21")
If Not zelle.Comment Is Nothing Then
GoTo einfaerben
End If
Next
Exit Sub
einfaerben:
For j = [A23].End(xlDown).Column To 7 Step 1 '35
For i = [A65536].End(xlUp).Row To 22 Step -1
For Each zelle In Range("A" & i)
If Cells(i, 1).Font.ColorIndex = 41 Then
Range(Cells(i, 1).Offset(0, j), Cells(i, 1).Offset(5, j)).Interior.ColorIndex = 15 'wert 1 noch ändern
End If
Next
Next i
Next j
End Sub