'Prüfen, ob FAX / Mail Versand
Prüfen = MsgBox("Soll die Berechnung des Beitragsverlustes ausgedruckt werden?", vbYesNo)
If Prüfen = vbNo Then
Application.Goto Reference:="DR_KH_PKW06"
Selection.Copy
MsgBox ("Text")
Exit Sub
End If
'Druckbereiche festlegen und Druck starten
Application.Goto Reference:="DR_KH_PKW06"
ActiveSheet.PageSetup.PrintArea = "$D$11:$M$59"
dialogAntw = Application.Dialogs(xlDialogPrint).Show
Die Module unterscheiden sich lediglich in der Angabe der Goto Reference Bereiche
Wie kann ich über eine zusätzliche Userform mittels Befehlsschaltflächen die beiden Aktionen (Drucken oder Faxen ) steuern.
Dies soll dann entsprechend in allen Modulen integriert werden.