Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Sicherheitsabfrage

Betrifft: Sicherheitsabfrage von: Patrick F
Geschrieben am: 08.09.2004 10:21:15

Folgendes Problem:

habe mir ein Makro aufgenommen, mit dem ich einen ganzen Schwung Tabellenblätter gleichzeitig ausdrucke und eine Schaltfläche damit belegt.
Nun hätte ich gerne eine Sicherheitsabfrage, damit beim versehentlichen Klicken der Schaltfläche nicht plötzlich 100 Seiten rausgerotzt werden.

  


Betrifft: AW: Sicherheitsabfrage von: Andreas Walter
Geschrieben am: 08.09.2004 10:27:18

Füg mal folgendes am Anfang vom Macro ein

antwort = MsgBox("Soll ich wirklich?", vbYesNo)
If antwort = vbNo Then
MsgBox "ok dann doch nicht"
Exit Sub
End If
MsgBox "ok jetzt geht es los"


  


Betrifft: AW: Sicherheitsabfrage von: Patrick F
Geschrieben am: 08.09.2004 10:29:31

So???

Sub alles_drucken()

antwort = MsgBox("Soll ich wirklich?", vbYesNo)
If antwort = vbNo Then
MsgBox "ok dann doch nicht"
Exit Sub
End If
MsgBox "ok jetzt geht es los"


    Sheets("Rechnung").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("Rechnung S2").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("Porto").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("Allonge").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1

End Sub



  


Betrifft: AW: Sicherheitsabfrage von: Andreas Walter
Geschrieben am: 08.09.2004 10:32:53

Ja genau

(Die MSGBOX Befehle kannst Du entfernen, falls sie stören)


  


Betrifft: AW: Sicherheitsabfrage von: Patrick F
Geschrieben am: 08.09.2004 10:35:13

Danke, genau das wollte ich!!!


  


Betrifft: AW: Sicherheitsabfrage von: Dieter.K
Geschrieben am: 08.09.2004 10:29:10

Hallo Patrick,

füge den Code dem Button hinzu,


......
If MsgBox( _
prompt:="wrklich drucken?", _
Buttons:=vbQuestion + vbYesNo _
) = vbNo Then Exit Sub
......


Gruß
Dieter.K


  


Betrifft: AW: Sicherheitsabfrage von: Flloo
Geschrieben am: 08.09.2004 13:17:29

Was meinst Du, wie anstrengend es ist, den tiefgefrorenen Hühnern die Schenkel auseinander zu biegen!"


  


Betrifft: AW: Sicherheitsabfrage von: Dieter.K
Geschrieben am: 08.09.2004 13:32:25

Hallo Flloo,

keinen richtigen Namen? Schade!
Vielleicht stehe ich auf dem Schlauch (soll ja auch schon ma vorkommen), aber Deinen Kommentar verstehe ich nicht. Bitte um Aufklärung eines "geistig schwachen".

"OHNE GRUß"


  


Betrifft: AW: Sicherheitsabfrage von: geri
Geschrieben am: 08.09.2004 10:34:07

Hallo Patrick

Sub druck()
Dim i
i = InputBox("Wie oft soll gedruckt werden?")
ActiveSheet.PrintOut Copies:=i

End Sub



gruss geri


 

Beiträge aus den Excel-Beispielen zum Thema "Sicherheitsabfrage"