ich habe ein problem mit einem makro...
ich möchte jede zweite Zeile grau hinterlegen und habe dafür auch schon ein makro gefunden, hier der code:
Sub ZeilenEinfaerben() Dim ZeilenAnzahl% 'sucht die letzte Zeile Dim x% 'einfach ein ZählerZeilen ZeilenAnzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row SpaltenAnzahl = ActiveSheet.Cells(Columns.Count, 1).End(xlUp).Row For x = 8 To ZeilenAnzahl Step 2 'von Zeile 8 an jede 2. Zeile einfaerben Range("E" & x & ":H" & x).Interior.ColorIndex = "15" Next x End Sub
Soweit funktioniert auch alles wunderbar, allerdings ändert sich die Spaltenanzahl ständig, d.h. einmal soll der Bereich E5:F100 eingefärbt werden, einmal der Bereich E5:X100 etc...
Wie kann ich dieses Problem lösen?
Vielen Dank für eure Hilfe,
LG,
mazzi