Office: Makro mit Messagebox

Hallo,

ich habe eine Frage zu VBA und Makros.

Ich habe ein Makro, dass durch einen Button gestartet wird. Funktioniert - soweit so gut. Da das Makro nicht für mich ist und vor dem Drücken des Buttons etwas in meiner Liste manuell geändert werden muß (macht Excel nicht über das Makro) möchte ich eine Messagebox, die nach dem Drücken des Buttons erscheint:

Bespiel:

Man drückt den Button --> es erscheint eine Messagebox "Haben Sie die Änderung durchgeführt?" mit Ja und Nein --> wenn man auf Ja klickt, wird das Makro ausgeführt, wenn man auf Nein klickt, wird abgebrochen.

Ich hoffe, Ihr versteht, worauf ich hinaus möchte und würde mich freuen, wenn mir jemand helfen könnte. Ich bekomme das Makro hin und die Messagebox, nur nicht das beides zusammen.

Wenn das nicht gehen sollte, kann mir jemand verraten, wie man in einem Makro Zahlen als Text formatiert? Habe es schon über die Formatierng versucht, geht aber nicht. In der zu formatierenden Zelle befindet sich oben links ein grünes Dreieck (smarttag?). Wenn man in die Zelle geht, kann man über das erscheinende Ausrufezeichen den Text in eine Zahl wandeln. Dieser Schritt wird aber bei der Makroauszeichnung nicht berücksichtigt.

Gruß
mdd79

 

Hallo!

Dazu musst du dein Makro nur geringfügig erweitern:

Code:

Sub irgendwas()
Dim Antwort As Integer
Antwort = MsgBox("Haben Sie die Änderung durchgeführt?", _
vbYesNo + vbQuestion, "Achtung!")
If Antwort <> 6 Then Exit Sub

'HIER FOLGT DEIN ANWEISUNGSBLOCK

End Sub

 

Hallo,

vielen Dank für die schnelle Antwort.

Hab es in meinen Code kopiert, geringfügig geändert und siehe da - es funktioniert.

Vielen, vielen Dank

Gruß
msdd79