Array in Listbox einlesen
22.07.2013 14:28:17
Peter
wer kann helfen.
Ich mach irgendetwas falsch. Der Inhalt einer Tabelle soll
in eine mehrspaltige Listbox mit Überschrift eingelesen werden.
Dabei sollen nur die Werte der Spalten 1 3 in der Listbox
Angezeigt werden. Die Zeilenanzahl ist variabel.
Danke im voraus
Peter
Private Sub cmdEinlesen_Click()
Dim LRow As Long
Dim lRolL As Long
Dim QSh As Worksheet
Dim DatenCounter
Dim MaxDatenCounter
Set QSh = Worksheets("Tabelle1")
lRolL = QSh.Cells(Rows.Count, 1).End(xlUp).Row
DatenCounter = 0
ReDim arrZeilen(1 To 1) 'alte Inhalte im Array löschen
For LRow = 2 To lRolL 'To 1 Step -1
If QSh.Cells(LRow, 1) "" Then
DatenCounter = DatenCounter + 1
ReDim Preserve arrZeilen(1 To DatenCounter)
arrZeilen(DatenCounter) = LRow
End If
Next LRow
If DatenCounter > 0 Then
MaxDatenCounter = UBound(arrZeilen)
ReDim arrListe(1 To UBound(arrZeilen), 1 To 3)
For DatenCounter = 1 To UBound(arrZeilen)
With QSh
arrListe(DatenCounter, 1) = .Cells(arrZeilen(DatenCounter), 1) 'Name
arrListe(DatenCounter, 2) = .Cells(arrZeilen(DatenCounter), 2) 'PLZ
arrListe(DatenCounter, 3) = .Cells(arrZeilen(DatenCounter), 3) 'Str & Nr
End With
Next DatenCounter
With Me.ListBox1
.Clear
.List = arrListe
End With
Me.ListBox1.ListIndex = -1
End If
End Sub