Hallo,
folgende Sub färbt in Spalte b jede 3. beschriebene Zeile.
Sub Tabelle2()
a = 0
For i = 1 To 100
If Cells(i, 2) <> "" Then a = a + 1
If a = 3 Then a = 0: Cells(i, 2).Interior.ColorIndex = 3
Next i
End Sub
Die Aktion ("färbe jede 3. beschriebe Zeile ein") soll erst ausgefüht werden, nachdem der User auf die Frage "sind Sie sicher" in der Dialogbox mit "ja" bestätigt hat.
Hat jemand eine kurze Prozedur dafür?
Vielen Dank. |