Office: Ja-Nein Abfrage vor Makroausführung

earl-of-pain · 13. Oktober 2007

Hallo,

mal wieder ein kleines Problem:
Tabellenblatt 1 mit einem CommandButton. Hinterlegt ist ein ganz einfacher
Druckbefehl.

PHP:

Private Sub CommandButton1_Click() Sheets("Sstz").PrintOut Copies:=3 End Sub

:)

Sebastian Schulz · 15. Oktober 2007

Hallo,

der Allgemein Befehl für JA/Nein heißt

Code:

Select Case MsgBox("Deine Mitteilung", vbYesNo Or vbQuestion Or vbDefaultButton1, "Hinweis")

Case vbYes

Case vbNo

End Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

earl-of-pain · 15. Oktober 2007

Danke für die schnelle Reaktion,
habe ich aber schon probiert und bekomme Fehlermeldung.
Debugger markiert mir "Case vbYes".
?????
Gruß Maik

Sebastian Schulz · 15. Oktober 2007

Hallo Maik,

wie hast du denn den Code genau geschrieben.
Teste diesen nochmal. Pass aber vorher die Tabellennamen an.

Code:

jeder mann · 15. Oktober 2007

Hallo, Maik,

nur für die Schalfltfläche:

Code:

Private Sub CommandButton1_Click()
If MsgBox("Weiter?", vbYesNo) = vbYes Then
Sheets(2).Range("A1").Value = "X"
Else
Sheets(2).Range("A2").Value = "X"
End If
Sheets("Sstz").PrintOut Copies:=3
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder
Code:

Private Sub CommandButton1_Click()
With Sheets("Satz")
If MsgBox("Weiter?", vbYesNo) = vbYes Then
.Range("A1").Value = "X"
Else
.Range("A2").Value = "X"
End If
.PrintOut Copies:=3
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

earl-of-pain · 15. Oktober 2007

Hey,
habe Deinen Code gerade getestet, funktioniert einwandfrei.
Habe mit meinem letzten Versuch verglichen:

PHP:

Private Sub CommandButton1_Click() Select Case MsgBox("Wurde ein Bescheid vor Ort erstellt?", vbYesNo Or vbQuestion Or vbDefaultButton1, "Hinweis") Case vbYes Sheets("stzig").Range("R8").Value = "X" Case vbNo Sheets("stzig").Range("R10").Value = "X" End Select Sheets("Sstz").PrintOut Copies:=3 End Sub

Office: Ja-Nein Abfrage vor Makroausführung

Ja-Nein Abfrage vor Makroausführung

Ja-Nein Abfrage vor Makroausführung

Ja-Nein Abfrage vor Makroausführung

Ja-Nein Abfrage vor Makroausführung - Similar Threads - Abfrage Makroausführung

Abfrage: Anzahl von Kriterium >0

Teil des Zellinhaltes abfragen in VBA

Verliert irgendwann die Selektive Abfrage von UFO

automatische Abfrage URL via Artikelnummer

Vorkommen von Kunden in mehreren Tabellen per Abfrage filtern

mit String aus Formular Übereinstimmung in Abfrage prüfen

RowSource aus Abfrage mit Kriterien