Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
612to616
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
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If-Then beim Ausdrucken

If-Then beim Ausdrucken
20.05.2005 16:18:49
Torsten
Hallo beisammen,
beim Ausdrucken habe ich folgende If-Then-Bedingung:

Private Sub cmb_PRINT_Click()
Application.ScreenUpdating = False
If MsgBox("Möchten Sie den Buchungsbeleg ebenfalls ausdrucken?", vbYesNoCancel) = vbNo Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
With Sheets("BB")
.Visible = True
.Select
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'    Sheets("BB").Visible = xlVeryHidden
Sheets("REPORT").Select
End If
Application.ScreenUpdating = True
End Sub

Leider weiß ich jetzt nicht, wie ich den Cancel-Fall noch abfange, denn im Augenblick druckt Excel auch im Cancel-Fall beide Worksheets aus.
Könnt Ihr mir auf die Sprünge helfen?
Vielen Dank im voraus.
Gruß
Torsten

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If-Then beim Ausdrucken
20.05.2005 16:34:34
Hajo_Zi
Hallo Torsten,
ich sehe es so, wenn ich die Frage "Möchten Sie den Buchungsbeleg ebenfalls ausdrucken?" mit Nein beantworte warum dann dies Zeile
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Dort wird aber nur eine Tabelle gedruckt.
Ja wäre für mich nicht der Cancel-Fall
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige
AW: If-Then beim Ausdrucken
20.05.2005 16:36:20
Sonnenpeter
Hallo,
auf die schnelle, probier mal folgende Änderung
If MsgBox("Möchten Sie den Buchungsbeleg ebenfalls ausdrucken?", vbYesNoCancel) = vbNo Then Exit Sub
Gruß Sonnenpeter

AW: Ergänzung zu Fragestellung
20.05.2005 16:42:15
Torsten
Hallo Ihr beiden,
vielen Dank für Eure Rückmeldungen.
Wahrscheinlich habe ich mich nicht präzise genug ausgedrückt:
Im No-Fall soll nur das WS("REPORT") ausgedruckt werden, indem ich mich gerade befinde.
Im Yes-Fall sollen das WS("REPORT") und das WS("BB") ausgedruckt werden und
Im Cancel-Fall soll der ganze Vorgang halt abgebrochen werden.
Könnt Ihr mir mit der Ergänzung weiterhelfen?
Gruß
Torsten
Anzeige
AW: Ergänzung zu Fragestellung
20.05.2005 16:47:42
Hajo_Zi
Hallo Torsten,
dann Frage den Schalter gezielt ab.

Sub test()
Dim Mldg As String
Mldg = MsgBox(" Wollen Sie den Auftrag: " & AuftragsNr _
& " wirklich löschen.", vbYesNoCancel + vbQuestion, "Löschabfrage ?", "", 0)
If Mldg = 6 Then ' ja
ElseIf Mldg = 7 Then ' Nein
End If
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige
AW: Ergänzung zu Fragestellung
20.05.2005 16:50:31
Torsten
Hallo Hajo,
vielen Dank für Deinen Tip.
Ich werd's am Montag ausprobieren und mich nochmals melden.
Schönes Wochenende und
Gruß
Torsten

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige