Schaltfläche Drucken von zweiTabellenblättern
zweiTabellenblättern
Bei mir ist mal wieder ein Problem aufgetreten.
Erstmal zu den Rahmenbedingungen: Ich habe 3 Tabellenblätter: "Erfassung", "Anlage" und "Rechnung". Auf dem Tabellenblatt "Erfassung" wird wie der Name schon sagt, alles was für die Rechnung relevant ist erfasst. Dort soll dann auch eine Schaltfläche entstehen, die mir dann automatisch die Tabellenblätter "Anlage" und "Rechnung" druckt. Über Google habe ich leider nichts gefunden außer Folgendes:
Sub DruckenII()
Dim ArrDruck() As String
Dim i As Integer
ArrDruck = Split("Anlage,Rechnung")
Sheets(ArrDruck(0)).Select
Application.Dialogs(xlDialogPrint).Show
For i = 1 To UBound(ArrDruck)
ThisWorkbook.Sheets(ArrDruck(i)).PrintOut
Next
End Sub
Jedoch passiert da einfach gar nichts wenn ich die Schaltfläche betätige.
Kann mir jemand weiterhelfen?
Liebe Grüße!
Anzeige