Hallo StM,
setze vor deinen Code z.B.:
a = MsgBox("Sind Sie sicher?", vbYesNo)
If a = vbNo Then Exit Sub
Gruß
Holger
StM schrieb am 03.10.2008 13:39:03:
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. |