ich möchte gern dieses Macro - Abfrage "ja nein abbrechen" in mein Macro integrieren
Sub Druckmenue()
Dim Eingabewert As Byte
Eingabewert = MsgBox("Möchten Sie nur die Vorschau anschauen?", vbYesNoCancel, "Druckabfrage")
If Eingabewert = vbYes Then
MsgBox "Na bitte, also Ja. "
ElseIf Eingabewert = vbNo Then
MsgBox "Also eben nicht!"
Else
MsgBox "Wat denn? Kneifen?"
End If
End Sub
bei druck auf ja
soll das macro nur die vorschau zeigen ( PrintPreview )
bei druck auf nein
soll alles gedruckt werden ( PrintOut)
bei druck auf abbrechen
soll das ganze Macro beendet werden.
Da es manchmal sehr viele Seiten sind wäre es cool wenn ich den Druck zu jederzeit abbrechen könnte und dann alle Druckaufträge gelöscht werden ( geht so etwas? )
dies ist zur Zeit mein Macro
Sub seriendruck_drucken()
'Tabelle11
Dim rng As Range, rngC As Range
Dim Eingabewert As Byte 'gehört zur druckabfrage
Application.ScreenUpdating = False
On Error Resume Next
Tabelle11.AutoFilterMode = False
If Application.Dialogs(xlDialogPrinterSetup).Show Then
End If
Set rng = Tabelle11.Range("A2:A" & Rows.Count).SpecialCells(xlCellTypeConstants)
On Error GoTo Fehler
With Tabelle5 ' hier wird es hinkopiert
If Not rng Is Nothing Then
For Each rngC In rng
If rngC.Offset(0, 11) "" And IsNumeric(rngC.Offset(0, 11)) Then
.Range("g32") = rngC.Offset(0, 0)
.Range("F32") = rngC.Offset(0, 1)
.Range("g33") = rngC.Offset(0, 2)
.Range("f33") = rngC.Offset(0, 3)
.Range("b35") = rngC.Offset(0, 4)
.Range("b37") = rngC.Offset(0, 5)
.Range("b39") = rngC.Offset(0, 6)
.Range("b41") = rngC.Offset(0, 7)
.Range("b44") = rngC.Offset(0, 8)
.Range("b46") = rngC.Offset(0, 9)
'.Range("i2") = rngC.Offset(0, 10)
.PrintPreview 'copies:=rngC.Offset(0, 4)
'.PrintOut copies:=rngC.Offset(0, 4)
End If
Next
End If
End With
Application.ScreenUpdating = True
Fehler:
'Application.Calculation = xlAutomatic
If Err.Number 0 Then MsgBox "Fehler im Modul: A_anzahl_tage_berechnen" & Err.Number & vbLf _
& Err.Description
End Sub
alles was ich versucht habe schlug fehl.Hat jemand eine Idee wie man dies lösen könnte?
besten dank schon im voraus.
liebe grüsse thomas