Wenn ja dann (Makro/MSGBOX)
juergen
wünsche Euch Allen einen schönen Tag. Benötige wieder einmal die Hilfe des Forums.
Habe unten stehendes Makro zusammen gewürfelt. Läuft aber nicht so wie ich es möchte.
Was ich brauche ist, dass bevor der Druckauftrag ausgeführt wird, dass eine Abfrage erscheint z.B. Drucken Ja / Nein ?.
Bei Nein soll es:
Range("a8:a9").Select
Selection.Copy
Range("g7:g8").Select
ActiveSheet.Paste
Range("j27").Select
nur dass o. g. Ausführen !
Bei Ja soll es:
Workbooks.Open Filename:= _
"\\Server\sstig\Mengise\Druck-Mnw(Aktuelle-16.03.11)\Becker-HS.xlsm"
ActiveWorkbook.PrintOut Copies:=1
ActiveWindow.Close
Range("A11:A12").Copy Destination:=Range("G7:G8")
ausführen!
Kann mir bitte jemand mitteilen, was ich in u. stehendes Makro wo und wie verändern muss damit es funktioniert.
Danke bereits jetzt schon einmal
Gruß
Jürgen
If MsgBox("Soll gedruckt werden?", vbYesNo + vbDefaultButton2) = vbYes Then GoTo Druck
Range("a8:a9").Select
Selection.Copy
Range("g7:g8").Select
ActiveSheet.Paste
Range("j27").Select
Druck:
Workbooks.Open Filename:= _
"\\Server\sstig\Mengise\Druck-Mnw(Aktuelle-16.03.11)\Becker-HS.xlsm"
ActiveWorkbook.PrintOut Copies:=1
ActiveWindow.Close
Range("A11:A12").Copy Destination:=Range("G7:G8")