benötige von jemandem Hilfe bei einem kleinen Makro.
Folgendes soll passieren:
Wenn in einer Excel-Mappe der 'Drucken' befehl ausgeführt wird, soll sich bevor das 'Drucken'Fenster erscheint,die unten gepostete MsgBox öffnen. Das funktioniert soweit auch.
Leider kenne ich als Laie keine Ausdrücke für die 'yes' bzw. 'no' Anweisungen.
Bei 'yes' soll sich die MsgBox schließen und mit dem normalen 'Drucken' Fenster fortgefahren werden. Bei 'no' soll sich die MsgBox schließen und auch das 'Drucken' Fenster.
Vielen Dank für Eure Mühe
Henrik
Sub AchtungDruck()
Dim acht As Variant
acht = MsgBox("Wichtiger Hinweis!" & Chr(10) & " " & Chr(10) & _
"Gedruckt werden kann über die Schaltfläche ' Seite drucken '," & Chr(10) & _
"die sich auf dem zu druckenden Tabellenblatt befindet." & Chr(10) & _
" " & Chr(10) & _
"Möchten Sie trotzdem drucken?" & Chr(10) _
, vbyesno + vbExclamation, "Hinweis")
If acht = vbYes Then
'? Fortfahren mit dem 'Drucken'Fenster
Else
'? Schließ das blöde 'Drucken'Fenster
End If
End Sub