ListBox Inhalt audrucken....

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Gerd,
vieledn Dank für deine Mühe, hiermit werden die Daten eingelesen:
Dim arr() As Variant
Dim iRowL As Integer, sRow As Integer, iCol As Integer, iRowU As Integer
lstAufstellung.Clear
iRowL = Cells(Rows.Count, 10).End(xlUp).Row
For sRow = 1 To iRowL
If (Cells(sRow, 10)) > 0 Then 'Not IsEmpty
ReDim Preserve arr(0 To 9, 0 To iRowU)
arr(0, iRowU) = Cells(sRow, 1)
arr(1, iRowU) = Cells(sRow, 2)
arr(2, iRowU) = Cells(sRow, 3)
arr(3, iRowU) = Cells(sRow, 4)
arr(4, iRowU) = Cells(sRow, 5)
arr(5, iRowU) = Cells(sRow, 6)
arr(6, iRowU) = Cells(sRow, 7)
arr(7, iRowU) = Cells(sRow, 8)
arr(8, iRowU) = Cells(sRow, 9)
arr(9, iRowU) = Cells(sRow, 10)
iRowU = iRowU + 1
End If
Next sRow
lstAufstellung.Column = arr
also mehrspaltig. Ich habe in der Recherche folgenden Coden gefunden, mit dem wir aber nur die erste Spalte an die temporäre Datei übergeben:


Sub Liste()
Dim i As Byte
Workbooks.Add xlWBATWorksheet
For i = 1 To lstAufstellung.ListCount
Cells(i, 1).Value = lstAufstellung.List(i - 1)
Next i
End Sub

Ich weiss nicht wie ich den für mich umbauen könnte

Private Sub CommandButton1_Click() Dim arrList As Variant, lngR As Long, intC As Integer Dim wb As Workbook arrList = ListBox1.List lngR = ListBox1.ListCount intC = ListBox1.ColumnCount Set wb = Workbooks.Add(1) With wb.Sheets(1) .Range(.Cells(1, 1), .Cells(lngR, intC)) = arrList End With End Sub

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

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ListBox Inhalt audrucken....

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread