Dim zelle As Range
For Each zelle In Range("B21:AI21")
If Not zelle.Comment Is Nothing Then
GoTo einfaerben
Exit Sub
End If
Next
Exit Sub
einfaerben:
For i = [A65536].End(xlUp).Row To 1 Step -1
For j = [B23].End(xlDown).Column To 34 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
Exit For
End If
Next
Next j
Next i
ich habe einen zeilenbereich, in dem variabel kommentare sind ("B21:AI21"). nun soll in den spalten (B - AK), in denen ein kommentar steht bsp. in C21 und J21 der bereich grau hinterlegt werden, wenn in spalte A ein text in blauer textfarbe steht.
Bsp:
In zellen C21 und J21 ist ein kommentar.
Dann sollen, wenn in A30 ein blauer text steht, die bereiche C30-C36 und J30-J36 grau hinterlegt werden.
Also die zelle auf höhe des blauen textes in der spalte mit dem kommentar + die 5 darunterliegenden zellen sollen grau werden
vielen dank im voraus