Jede 2 Zelle Grau Färben VARIABEL
08.01.2009 14:53:00
Angela
möchte gern jede 2 Zelle grau haben, zur besseren Übersicht halt.
Vorgegeben sind fest A7:? (Ab hier kann jede 2 Zelle Grau werden)
Ab A7 werden Daten ins Blatt geschrieben, das soll heisen z.B.wenn in A7 ein Wert ist soolen die Zellen weiß bleiben, wenn in A8 ein Wert steht sollen die Zellen grau sein.
Da die Daten gefiltet wurden, sind sie halt VARIABEL, und man weiß nie wieviele es sind.
Die grauen Zellen sollten auch nur soweit gehen, wie ab F6:?6 ein Buchstabe drinsteht.(Variabel)
Diese Makro habe ich hier im Forum gefunden, aber hilft nicht wirklich.
Sub ZeilenFärben()
Application.ScreenUpdating = False
Dim Zeile, ZeilenNr As Integer
For Zeile = 10 To ActiveSheet.UsedRange.Rows.Count
ZeilenNr = ZeilenNr + 1
'Für jede 2. Zeile Farbe festlegen
If ZeilenNr Mod 2 = 0 Then
Rows(Zeile).Interior.ColorIndex = 15
Rows(Zeile).Borders.Weight = xlThin
Rows(Zeile).Borders.ColorIndex = 16
Else
Rows(Zeile).Interior.ColorIndex = xlNone
Rows(Zeile).Borders.ColorIndex = xlNone
End If
Next
Application.ScreenUpdating = True
End Sub
Liebe Grüße Angela