für Ausdruck Blatt markieren

Hallo Ihr Profis,
ich habe mal wieder ein Problem...
Ich habe eine Userform, bei der ich mit CheckBox die Druckauswahl vornehmen möchte und dann die jeweiligen Tabellenblätter auswählen und drucken möchte.
Ich habe schon folgende VBA geschrieben:


Private Sub CmdBtn_drucken_Click()
If CheckBoxTab1.Value = True Then
Sheets("Tabelle1").Select
Sheets("Tabelle1").PrintOut
Application.Dialogs(xlDialogPrint).Show
End If
If CheckBoxTab236.Value = True Then
Sheets(Array("Tabelle2", "Tabelle3", "Tabelle6")).Select
Application.Dialogs(xlDialogPrint).Show
End If
If CheckBoxTab45.Value = True Then
Sheets(Array("Tabelle4", "Tabelle5")).Select
Application.Dialogs(xlDialogPrint).Show
End If
End Sub

Jetzt aber zu meinem eigentlichen Problem!!!
Wenn ich alle 3 Check-Boxen auswähle, öffnet sich dreimal das "Druckerfenster" [Application.Dialogs(xlDialogPrint).Show]
Meine Frage:
Wer kennt einen Befehl, der den Befehl
Sheets(Array("Tabelle1", "Tabelle2")).Select
in Abhängigkeit der Checkbox-Auswahl ergänzt...?
...oder gibt es eine ander Möglichkeit.
hier noch die Datei: https://www.herber.de/bbs/user/32461.xls
Vielen Dank im Voraus
Grüße
Andy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim lngI As Long Dim arrSheets() As String lngI = 0 If CheckBox1 = True Then ReDim Preserve arrSheets(lngI) arrSheets(lngI) = "Tabelle1" lngI = lngI + 1 End If If CheckBox2 = True Then ReDim Preserve arrSheets(lngI) arrSheets(lngI) = "Tabelle2" lngI = lngI + 1 End If If CheckBox3 = True Then ReDim Preserve arrSheets(lngI) arrSheets(lngI) = "Tabelle3" lngI = lngI + 1 End If ' ... und so weiter für alle anderen Checkboxen und Tabellen Sheets(arrSheets).Select Application.Dialogs(xlDialogPrint).Show End Sub

Private Sub CommandButton1_Click() Dim lngI As Long Dim arrSheets() As Variant, varhelp As Variant lngI = 0 If CheckBox1 = True Then ReDim Preserve arrSheets(lngI) arrSheets(lngI) = "Tabelle1" lngI = lngI + 1 End If If CheckBox2 = True Then ReDim Preserve arrSheets(lngI) arrSheets(lngI) = "Tabelle2" lngI = lngI + 1 ReDim Preserve arrSheets(lngI) arrSheets(lngI) = "Tabelle3" lngI = lngI + 1 ReDim Preserve arrSheets(lngI) arrSheets(lngI) = "Tabelle6" lngI = lngI + 1 End If If CheckBox3 = True Then ReDim Preserve arrSheets(lngI) arrSheets(lngI) = "Tabelle4" lngI = lngI + 1 ReDim Preserve arrSheets(lngI) arrSheets(lngI) = "Tabelle5" lngI = lngI + 1 End If ' ... und so weiter für alle anderen Checkboxen und Tabellen On Error Resume Next varhelp = arrSheets(0) If Err.Number = 0 Then Sheets(arrSheets).Select Application.Dialogs(xlDialogPrint).Show Else MsgBox "Sie haben keine Tabelle ausgewählt !", vbCritical, " Keine Auswahl" End If On Error GoTo 0 End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

für Ausdruck Blatt markieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread