mehrspaltige Listbox komplett in Tabelle
06.02.2021 13:40:11
Peter
habe leider ein Problem. Ich öffne eine Excel-Datei und füge den Inhalt einer Tabelle in die ListBox2 ein.
Nun möchte ich den gesamten Eintrag der ListBox2 ausdrucken.
Die ListBox2 fülle ich mit:
Sub ListBox2_fuellen()
Dim wbFremd As String
Dim wksTB1 As String
Dim Zeile% 'erforderlich für ListBox1
wbFremd = TextBox1.Value
wksTB1 = "Tabelle1"
'Anfang ListBox1 füllen
With ListBox2
.Clear
Zeile = Workbooks(wbFremd).Sheets(wksTB1).Cells(Rows.Count, 1).End(xlUp).Row
.RowSource = Workbooks(wbFremd).Sheets(wksTB1).Range("A1:H" & Zeile).Address(external:= _
True)
.ColumnHeads = False
.ColumnCount = 7
.ColumnWidths = "3,0cm;4,1cm;2,5cm;3,1cm;2,0cm;2,0cm;2,0cm"
'.ListIndex = Zeile - 1 'markiert die letzte Zeile nicht erforderlich
End With
'Ende ListBox1 füllen
End Sub
Es steht mir eine Tabelle Namens "Ausdrucktabelle" zur Verfügung, sofern die Daten der ListBox2 hierzu in eine Tabelle eingefügt werden müssen.
Gruss
Peter