Office: MsgBox mit Wahlmöglichkeit

Hallo liebe Leutz,

ich habe per VBA ein Button kreiert, der eine MsgBox enthält mit einer Frage und nach Bestätigung auf OK in ein anderes Tabellenblatt wechselt. Dabei wird das Tabellenblatt auch "unsichtbar" gemacht und schreibgeschützt.

So sieht der Befehl aus:

Private Sub CommandButton1_Click()

' zurück Makro

Application.ScreenUpdating = False

msgbox " ans speichern gedacht? wenn nicht, ok bestätigen, aber gleich wieder hier hin und speichern "


If Sheets("übersicht").Visible = True Then
Sheets("übersicht").Visible = False
Else
Sheets("übersicht").Visible = True
End If

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Sheets("Auswahl").Select
Sheets("Auswahl").Range("l13:n13").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Und nun folgendes:
Ich hätte gerne hierzu eine Erweiterung um die Möglichkeit zu haben, je nach Beantwortung der Frage direkt aus der MsgBox ins Menü zurück zu kommen (um dort den Speichervorgang auszulösen oder halt den Speichervorgang direkt auszulösen ) oder weiter zu gehen in das andere Tabellenblatt.

Ich hoffe, ich habe mich verständlich ausgedrücken können? Und bin dankbar um eine Hilfestellung.

Beste Grüße
Dhil

 

Hallo!

Nach diesem Schema:

Code:

Sub xy()
Dim Antwort As Integer
Antwort = MsgBox("Soll gespeichert werden?", vbYesNoCancel)
If Antwort = 6 Then
MsgBox ("Sie haben Ja gedrückt")
Else
MsgBox ("Sie haben nicht Ja gedrückt")
End If
End Sub

 

Hallo Schatzi,

vielen Dank für die schnelle Hilfe.
Habe jedoch nach Einbau des Codes eine Fehlermeldung:
"Fehler beim Kompilieren
End Sub erwartet"
Der Cursor steht gleich beim Anfang in der ersten zeile mit dem Private Sub CommandButton1_Click()

Ich habe Deinen Code folgendermaßen eingebaut:

Private Sub CommandButton1_Click()

' zurück Makro

Application.ScreenUpdating = False
ActiveSheet.Unprotect

Sub xy()
Dim Antwort As Integer
Antwort = msgbox("Soll gespeichert werden?", vbYesNoCancel)
If Antwort = 6 Then
msgbox ("Sie haben Ja gedrückt")
Else
msgbox ("Sie haben nicht Ja gedrückt")
End If
End Sub

If Sheets("übersicht").Visible = True Then
Sheets("übersicht").Visible = False
Else
Sheets("übersicht").Visible = True
End If

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Sheets("Auswahl").Select
Sheets("Auswahl").Range("l13:n13").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub


Wenn Du hierzu eine Lösung hast, vielen Dank im voraus dafür.

Beste Grüße
Dhil

 

Hallo!

Das war ja auch nur ein Beispiel-Code, der dir zeigen sollte, wie man die Bestätigung einer MsgBox auswerten kann!
Die "Ja"-Taste entspricht hier dem Wert "6".

 

Hallo Schatzi,

ich werde es mal übers WE ausprobieren.
Dir ein schönes Wochenende.


Beste Grüße
Dhil

 

Hallo,

habe es nun für meine Zwecke umändern können und es funzt prima.
Schatzi, vielen Dank nochmal dafür.

Beste Grüße
Dhil