AW: ListBox Inhalt audrucken....
22.02.2005 21:37:17
Drazen
Hallo Gerd,
na da iss es ja, ich wäre da NIE drauf gekommen, ich muss anscheinend noch sehr viel lernen, das klappt TOP, Danke.
ZusatzFrage: die gleiche Listbox wir zusätzlich nach Kunden gefiltert und dann so eingelesen, geht das Drucken dann mit dem gleiche Code oder muss ich komplett anders angehen?
Private Sub FILTER()
lstAufstellung.Clear
Dim Zeile As Long
Dim i As Long
Dim letzte As Long
With ActiveSheet
lstAufstellung.ColumnCount = 11
letzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
Zeile = 0
For i = 1 To letzte
If Rows(i).EntireRow.Hidden = False Then
lstAufstellung.AddItem .Cells(i, 1)
lstAufstellung.List(Zeile, 1) = .Cells(i, 2)
lstAufstellung.List(Zeile, 2) = .Cells(i, 3)
lstAufstellung.List(Zeile, 3) = .Cells(i, 4)
lstAufstellung.List(Zeile, 4) = .Cells(i, 5)
lstAufstellung.List(Zeile, 5) = .Cells(i, 6)
lstAufstellung.List(Zeile, 6) = .Cells(i, 7)
lstAufstellung.List(Zeile, 7) = .Cells(i, 8)
lstAufstellung.List(Zeile, 8) = .Cells(i, 9)
lstAufstellung.List(Zeile, 9) = .Cells(i, 10)
Zeile = Zeile + 1
End If
Next i
End With
End Sub
Grüsse
Drazen