ich habe mir hier aus dem Forum vor längerem mal einen Code heraus gespeichert man könnte ihn mal brauchen, was nun auch so ist.
Per Userform kann man die Tabellenblätter wählen die gedruckt werden sollen. Ich will nicht alle Blätter die in der Mappe sind angezeigt bekommen sonder nur bestimmte die ich im Code benennen gern würde.
Nur wo und wie das ist mein Problem.
Hier er Code:
Option Explicit
Private Sub cmdAll_Click()
Dim intIndex As Integer
With ListBox1
For intIndex = 0 To .ListCount - 1
.Selected(intIndex) = True
Next
End With
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdNone_Click()
Dim intIndex As Integer
With ListBox1
For intIndex = 0 To .ListCount - 1
.Selected(intIndex) = False
Next
End With
End Sub
Private Sub cmdPrint_Click()
Dim strSheets() As String
Dim intIndex As Integer, intN As Integer
With ListBox1
For intIndex = 0 To .ListCount - 1
If .Selected(intIndex) Then
ReDim Preserve strSheets(intN)
strSheets(intN) = .List(intIndex)
intN = intN + 1
End If
Next
End With
If intN > 0 Then
Me.Hide
ThisWorkbook.Sheets(strSheets).PrintPreview
Me.Show
End If
End Sub
Private Sub cmdToggle_Click()
Dim intIndex As Integer
With ListBox1
For intIndex = 0 To .ListCount - 1
.Selected(intIndex) = Not .Selected(intIndex)
Next
End With
End Sub
Private Sub UserForm_Initialize()
Dim intIndex As Integer
For intIndex = 1 To ThisWorkbook.Worksheets.Count
ListBox1.AddItem ThisWorkbook.Worksheets(intIndex).Name
Next
End Sub
Gruß Thomas aus Stuttgart