Zeilen färben
25.12.2016 19:55:44
chris58
Hallo !
Ich habe diesen Code hier gefunden und der würde passen, wenn er nur bis zur Spalte G die Zeile einfärbt und wieder entfärbt.
Ich bitte um Hilfe
Danke
chris
Sub ZeilenFärben()
Application.ScreenUpdating = False
'Variablen dimensionieren
Dim Zeile, ZeilenNr As Integer
'Schleife für die gesamte Selektion
For Zeile = 14 To ActiveSheet.UsedRange.Rows.Count
'Zeilen zählen
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
Sub ZeilenEntFärben()
Application.ScreenUpdating = False
Dim Zeile, ZeilenNr As Integer
For Zeile = 14 To ActiveSheet.UsedRange.Rows.Count
ZeilenNr = ZeilenNr + 1
Rows(Zeile).Interior.ColorIndex = xlNone
Rows(Zeile).Borders.ColorIndex = xlNone
Next
Application.ScreenUpdating = True
End Sub