Office: Dialogbox m. Textfeld(Hinweise) zw. Druck-Button und Vorgang

Hallo,

wie füge ich eine Dialogbox mit Textfeld(Inhalt:Warnhinweis) ein, welche nach dem Drücken des Druck-Buttons ( CommandButton ) erscheint, und mir die Möglichkeit gibt den Druck dann mit "Abrechen" abzubrechen oder mit "OK" fortzufahren.
Makro-Anweisung erwünscht.

Bitte evtl. um ein kleines Beispiel.
Euer Timi

 

Hallo!

Ein Beispiel:

Code:

Sub Warnung()
Dim x As Integer
x = MsgBox("Möchten Sie das wirklich tun?", vbYesNo + vbQuestion, "Weiter oder nicht?")
If x = 6 Then
'mit irgendwas weitermachen
Else
Exit Sub 'wenn die Prozedur komplett verlassen werden soll
End If
End Sub

 

Komme mit dem Erstellen einer MsgBox nicht klar. Wäre für ein kleines Beispiel dankbar. Jeder fängt mal klein an. Gehe davon aus, dass ich mir zunächst mal diese Box zusammentüfteln muß via UserForm.
Bitte klärt mich auf.

 

Keine Bange, darum mußt du Dich nicht kümmern.

Die Funktion "MsgBox" erledigt das alles für Dich. Mit den Parametern gefüllt, erstellt es ein kleines Fenster, zeigt Buttons (yes, no, cancel, ...) an, setzt noch einen Text darüber ("Wollen Sie?"), zeigt ein Icon an ("!") und vergibt sogar noch einen kleinen Fenstertitel ("Achtung").

Und als krönenden Abschluß gibt sie Dir auch noch die Info zurück, welcher Button gedrückt wurde.

Alles das steckt in der kleinen Zeile

Code:

x = MsgBox("Möchten Sie das wirklich tun?", vbYesNo + vbQuestion, "Weiter oder nicht?")

Gruß, Michael

 

Zunächst einmal Danke!

Es wird tatsächlich eine Abfragebox erstellt. Jedoch beim Klicken auf "NEIN", wird der Druck trotzdem ausgeführt statt abgebrochen.
Habe diesen von Dir ganannten Befehl vor dem Druckbefehl eingefügt.

Bin halt ein Neuling auf diesem Gebiet.

Gruß Timi

 

Hallo!

Das kann ich zwar nicht nachvollziehen, aber vielleicht funktioniert bei dir ja wenigstens der umgekehrte Weg:

Code:

Sub Warnung()
Dim x As Integer
x = MsgBox("Möchten Sie das wirklich tun?", vbYesNo + vbQuestion, "Weiter oder nicht?")
If x <> 6 Then Exit Sub
'hier folgt dein eigentlicher Code.
End Sub

 

Ich freu' mich wie beim ersten Mal! Jetzt klaaaaaaapppppts!

So kann man mir mit kleinen Sachen auch noch eine Freude machen!