Aufruf von Makros mit Abfrage (JA oder NEIN) ?
18.09.2008 18:59:00
Makros
wenn ich ein Makro starte, würde ich gerne eine Abfrage (MsgBox) einschalten, wo ich gefragt werde, ob die weitere Makros (siehe Beispiel) tatsächlich ausgeführt werden sollen. Geht das überhaupt?
Beispiel:
Sub Makro1()
Dim rng As Range
For Each rng In Range("A1:A" & Range("A65536").End(xlUp).Row)
If rng.Font.ColorIndex = 17 Then
Range(rng.Offset(0, 1), rng.Offset(0, 26)).Font.ColorIndex = 17
End If
Next
'hier Abfrage, ob die weitere drei Makros ausgeführt werden sollen
Call Makro2
Call Makro3
Call Makro4
End Sub
Vielen Dank im Voraus !
Liebe Grüße
Selma
Anzeige