Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1108to1112
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vbYesNo!!!

vbYesNo!!!
serge
Hallo Leute
was klappt da nicht 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wahl As Integer
wahl = MsgBox("Bitte A1 kontrolieren  mit yes  wird der Drucker abgestellt!", vbYesNo, " _
Druck!")
If wahl = vbYes Then
Exit Sub
Else
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub
Mit Yes oder No geht der Druck weiter
Gruss
Serge

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: vbYesNo!!!
12.10.2009 10:00:53
JogyB
Hi.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If MsgBox("Bitte A1 kontrolieren mit yes wird der Drucker abgestellt!", _
vbYesNo, " Druck! ") = vbYes Then
Cancel = True
End If
End Sub
Gruss, Jogy
Funktioniert Danke! owT.
12.10.2009 10:18:50
serge
bei mir funzt es ...
12.10.2009 10:05:28
Matthias
Hallo
Konnte ich nicht anders testen, da ich keinen Drucker angeschlossen habe.
Lass den Code mal so laufen (aus einem Modul)
anstatt des Druckens eine Msgbox
Option Explicit
Sub drucken()
Dim wahl As Integer
wahl = MsgBox("Bitte A1 kontrolieren  mit yes  wird der Drucker abgestellt!", vbYesNo, "Druck! " _
)
If wahl = vbYes Then
MsgBox "test1"
Exit Sub
Else
MsgBox "test2"
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub
ansonsten probier mal statt Exit Sub nur End
oder so 
Option Explicit
Sub drucken()
If MsgBox("Bitte A1 kontrolieren  mit yes  wird der Drucker abgestellt!", vbYesNo, "Druck! ") =  _
vbYes Then
MsgBox "test1"
Else
MsgBox "test2"
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub
bei mir funktionieren beide Varianten auch die Erste mit Exit Sub
Gruß Matthias
Anzeige
Danke!
12.10.2009 10:20:50
serge
AW: bei mir funzt es ...
12.10.2009 11:17:23
JogyB
Hallo Matthias,
dass es in einem Modul funktioniert ist klar, da dort nicht nach Abschluss des Subs automatisch gedruckt wird. Für die Verwendung in Before_Print ist der Code aber ungeeignet, da dann bei "Ja" ein Mal und bei "Nein" zwei Mal gedruckt wird.
Gruss, Jogy
deshalb hatte ich ja geschrieben ...
12.10.2009 11:33:53
Matthias
Hallo
... das ich keinen Drucker angeschlossen habe und es nur so testen konnte.
Aber natürlich hast Du vollkommen Recht, es heißt ja "BeforePrint" und nicht "PrintIf" wenns das gäbe.
Hätt ich also auch selbst drauf kommen können ;o)
Gruß Matthias

136 Forumthreads zu ähnlichen Themen

Datei schliessen abbrechen, wenn MsgBox = vbNo
Andreas

Hallo Herber Fans,
es ist vermutlich nur ein kleiners Problem, aber meine Recherche im Archiv hat leider keine Lösung zu Tage gefördert.
Ich prüfe vor dem Schließen einer Datei, ob alles richtig befüllt wurde. Wenn nicht, dann kann der User über eine vbYesNo MsgBox entscheiden, ob er do...
16.01.2009 20:06:00
Thread-ID: 1040747
7 Beiträge
Anzeige
Kombinationsfeld mit msgbox + vbYesNo
Dietmar

Hallo zusammen
ich benötige ein weiteres Featur in meinem Progrämmle.
Ich habe ein Kombinationsfeld, dem ich eine Liste von Ziffern 1- 20 zugewiesen habe. Das Ergebnis der Auswahl wird in A1 gezeigt.
Dem Kombinationsfeldes habe ich nachfolgendes Makro zugewiesen.
Wie kann ich er...
15.04.2010 16:20:35
Thread-ID: 1152046
5 Beiträge
Dringend Hilfe benötigt - Message Box
Jenny

Hi Ihr,
ich kämpfe heute mit einem kleinen aber sehr dringenden Problem und hoffe, Ihr könnt mir weiterhelfen ? :-)
Ich lese über Environ den User-Login aus, suche anschließend per Verweis-Formel den zugehörigen Benutzernamen in einer Tabelle (Blatt 1) und schreibe diesen auf Blatt 2 i...
31.03.2012 09:01:33
Thread-ID: 1257254
8 Beiträge
Anzeige
vbYes vbNo
Knoof

Hallo,
Ich habe ein Excel Sheet auf dem sich verschiedene Pflichtfelder befinden, sobald ein pflichtfeld nicht gefüllt ist und der User die Datei schließen möchte, taucht eine Meldung auf welche mit Ja oder Nein angeklickt werdne kann.
Drückt er auf Ja soll sich die Datei Schließen ohne...
28.01.2015 09:23:37
Thread-ID: 1405558
4 Beiträge
Msgbox nach "normalem" speichern
Christian

Hallo Ihr Lieben,
wie man es bewerkstelligt mittels eines Buttons die Datei zu speichern, weiß ich. Allerdings benötige ich eine Möglichkeit, dass eine Msgbox nach dem "regulären" speichern auf Datei - Speichern erscheint. Ist das machbar?
Vielen Dank für eure Hilfe.
Christian
...
13.02.2015 08:38:23
Thread-ID: 1409216
7 Beiträge
MsgBox vbYesNoCancel
Chris

Hallo zusammenKrieg die blöde MsgBox nicht hin.Anstatt als File speichere ich eine Datenbank und brauche die MsgBox dazu eine Warnung auszugeben, falls der Speichername bereits vorhanden ist.Nachricht: Datei besteht bereits, wollen sie bestehende Datei ueberschreiben?Yes = normale Speicherung
24.10.2002 17:07:00
Thread-ID: 173146
6 Beiträge
vbyesno in msgbox
ae

hallo zusammen,
mit nachstehendem Code möchte ich abfragen ob die anwendung wirklich beendet werden soll:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
msg = MsgBox("Wollen Sie die Anwendung wirklich beenden ?", vbYesNo, "Anwendung beenden")
MsgBox (msg)
If msg = vb...
13.02.2003 11:59:51
Thread-ID: 218523
2 Beiträge
vbyesno in msgbox
ae

hallo zusammen,
mit nachstehendem Code möchte ich abfragen ob die anwendung wirklich beendet werden soll:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
msg = MsgBox("Wollen Sie die Anwendung wirklich beenden ?", vbYesNo, "Anwendung beenden")
MsgBox (msg)
If msg = vb...
13.02.2003 11:59:52
Thread-ID: 218524
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
4
4
7
2
3
6
5
1
4
7
5
4
5
3
4
3
6
1
1
4
3
3
4
1