jede 2. eingeblendete Zeile einfärben
17.01.2019 09:27:58
Simon
ich will in einer Stückliste zur besseren Darstellung jede 2. eingeblendete Zeile einfärben. Dazu habe ich folgendes Marko geschrieben, das aber noch nicht die ausgeblendeten Zeilen berücksichtigt.
Sub ZeilenFormatieren()
Dim Zeile As Long
With NC-Programmierung
For Zeile = 7 To .UsedRange.Rows.Count
If Zeile Mod 2 = 0 Then
.Rows(Zeile).Interior.ColorIndex = 33
End If
Next Zeile
End With
End Sub
Hat dafür jemand eine Lösung?
Anzeige