Sub färben()
' Ermittelt die Größe einer Tabelle und färbt jede 2. Zeile ein
' Klaus-Dieter Oppermann
' postmaster@klaus-dieter-2000.de
letzteZelle = Range("A65535").End(xlUp).Row ' Letzte Zeile ermitteln
letzteSpalte = Range("IV1").End(xlToLeft).Column ' Letzte Spalte ermitteln
sp$ = Chr(letzteSpalte + 64) ' Nummer der letzten Spalte in Buchstaben wandeln
Range("a1", sp & letzteZelle).Interior. _
ColorIndex = xlNone ' Hintergrundfarben löschen
For r = 2 To letzteZelle Step 2 ' Start Schleife
Range("A" & r, sp & r).Select ' Tabellenzeile selektieren
With Selection.Interior ' Hintergrund
.ColorIndex = 35 ' Farbe festlegen (35 = hellgrün)
.Pattern = xlSolid ' Hintergrund vollflächig färben
End With ' Ende färben
With Selection.Borders(xlEdgeRight) ' Rahmen an rechter Tabellenseite erzeugen
.LineStyle = xlContinuous ' Linie durchgehend
.Weight = xlThin ' Strichstärke (dünn)
.ColorIndex = 15 ' Farbe hellgrau
End With ' Ende Rahmen
With Selection.Borders(xlInsideVertical) ' Rahmen an rechter Zellenseite erzeugen
.LineStyle = xlContinuous ' Linie durchgehend
.Weight = xlThin ' Strichstärke (dünn)
.ColorIndex = 15 ' Farbe hellgrau
End With ' Ende Rahmen
Next r ' Ende Schleife
End Sub ' Ende Makro
