Der obere Code funktioniert bestens. Nur der untere Code will einfach nicht gehen.
Wenn Listbox1 aktiviert ist sollte das X nicht in Zelle C1 sondern bei Zelle C5 anfangen.
Leider bringe ich es nicht hin. Kann mir jemand den Code anschauen?
Private Sub Commandbutton1_Click()
Dim varPrintTable() As String
Dim iTable As Integer, iVar As Integer
iVar = 1
For iTable = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iTable) Then
ReDim Preserve varPrintTable(iVar)
varPrintTable(iVar) = ListBox1.List(iTable)
iVar = iVar + 1
End If
Next iTable
If iVar = 1 Then
MsgBox "Es ist kein Tabellenblatt zum Drucken gewählt!"
Else
Sheets(varPrintTable).PrintOut
End If
End Sub
Private Sub ListBox1_change()
Dim i As Long
For i = 1 To ListBox1.ListCount - 0
If ListBox1.Selected(i) Then
Worksheets("Drucktabelle").Cells(i, 3).Value = "X"
Else
Worksheets("Drucktabelle").Cells(i, 3).Value = ""
End If
Next
End Sub
Danke
Gruß
Leon