Ich versuche eine Auswahl der Tabellen Blätter die in einer Seitenansicht angezeigt werden sollen über CheckBoxen hin zubekommen. Habe folgenden Code gefunden der für eine ListBox bestimmt ist
Private Sub CommandButton13_Click()
Dim intIndex As Integer
With CommandButton13
If .ListIndex > -1 Then
On Error Resume Next
intIndex = Sheets(.Value).Index
On Error GoTo 0
If intIndex > 0 Then
If Not Sheets(intIndex).Visible = xlSheetVisible Then
intIndex = 0
End If
End If
If intIndex > 0 Then
Me.Hide
Application.OnTime Now + TimeSerial(0, 0, 1), "'DruckVorschau """ & .Value & """'"
Else
MsgBox "Tabelle nicht vorhanden oder ausgeblendet"
End If
End If
End With
End Sub
Und dieser Code steht im Modul
Public Sub Print_Preview()
Tabelle1.PrintPreview
ZfP_Protokolle.Show
End Sub
Ich kriege den Cod aber nicht umgestellt auf CheckBoxen
Kann mir jemand helfen?