Mehrere Tabellen drucken
25.11.2016 10:17:37
Januel
Ich habe in einer List box alle meine Tabellen erstellt. Nun möchte ich mehrere selektieren und _
ausdrucken. Mein Code den ich nun habe ist.
Private Sub CommandButton1_Click()
Dim StrSel, ArrDruck() As String, i As Integer
'### Funktioniert###
With ListBox2
For i = .ListCount - 1 To 0 Step -1
If .Selected(i) = True Then StrSel = .List(i, 0) & IIf(StrSel = "", "", " , ") & StrSel
Next
End With
ArrDruck = Split(StrSel, ", ")
For i = 0 To UBound(ArrDruck)
ThisWorkbook.Sheets(ArrDruck(i)).PrintOut
Next
End Sub
Das sammeln der Daten funktioniert. bekomme aber ein Laufzeitfehler mit dem Text Index auserhalb des gültigen Bereich und die Zeile
ThisWorkbook.Sheets(ArrDruck(i)).PrintOut
ist mankiert.
ich hab probiert nur eine Tabelle zu drucken und da funktioniert es. mit 2 oder mehr geht es nicht.
Karl-Heinz