jede zweite Zeile einfärben nur belegter
09.07.2020 13:58:41
Andreas
benötige mal wieder Hilfe
mit folgendem Makro was ich gefunden habe formatiere ich jede zweite Zeile mit einer Hintergrundfarbe
Sub ZeilenFormatieren()
Dim Zeile As Long
With Tabelle1
'With Sheets("Bearbeitung")
For Zeile = 2 To .UsedRange.Rows.Count
If Zeile Mod 2 = 0 Then
.Rows(Zeile).Interior.ColorIndex = 33
End If
Next Zeile
End With
End Sub
Problem dabei ist, damit wird die gesamte Zeile angesprochen. (Spalte A bis absolut letzte Spalte der Tabelle)
Ich möchte aber erreichen das die Zeile nur bis zum Ende der belegten Spalten angesprochen und formatiert wird. Also in meinem Fall wäre das von Spalte "A" bis "RH". Sollte aber so sein (LetzteSpalte = End(xlUp). Aber das kriege ich einfach nicht gebacken. Wie muss ich mein Makro diesbezüglich dann abändern? Brauche bitte Hilfe.
Gruß Andreas