ich habe mir ein Makro gebastelt, dass mir im aktiven Tabellenblatt auf Knopfdruck einen mit Daten gefüllten Bereich formatiert mit einer Überschriftszeile und danach im Wechsel jede zweite Zeile zur besseren Übersicht farbig. Das klappt soweit ganz hervorragend, allerdings nur, wenn der Datenbereich in Zelle A1 beginnt. Wie kann ich nun Variablen in das Makro einbauen, so dass die erste gefüllte Zeile und Spalte berücksichtigt werden und die Formatierung erst dort beginnt?
Bisher sieht das Ganze so aus:
Sub ZeilenEinfärben()
Dim Zeile As Integer
Dim ZeileMax As Integer
Dim Spalte As Integer
Dim SpalteMax As Integer
With ActiveSheet
ZeileMax = .UsedRange.Rows.Count
SpalteMax = .UsedRange.Columns.Count
For Spalte = 1 To SpalteMax
.Cells(1, Spalte).Interior.Color = RGB(17, 51, 136)
.Cells(1, Spalte).Font.Color = RGB(255, 255, 255)
Next Spalte
For Zeile = 2 To ZeileMax Step 2
For Spalte = 1 To SpalteMax
.Cells(Zeile, Spalte).Interior.Color = RGB(255, 255, 255)
Next Spalte
Next Zeile
For Zeile = 3 To ZeileMax Step 2
For Spalte = 1 To SpalteMax
.Cells(Zeile, Spalte).Interior.Color = RGB(216, 216, 213)
Next Spalte
Next Zeile
End With
End Sub
Viele Grüße
Daniel