Private Sub ComboBox1_Change()
Dim I As Long
Dim j As Integer
Dim lngAnz As Long, arrData()
Me.ListBox2.Clear
Me.ListBox2.AddItem Me.ComboBox1.Value
'ListBox und TextBoxen zurücksetzen
Me.ListBox1.Clear
For I = 1 To 5
Me.Controls("Textbox" & I).Value = ""
Next
lngZeileDS = 0
With wksData
'Anzahl der Zeilen in denen die Postleitzahl vorkommt
lngAnz = Application.WorksheetFunction.CountIf(.Range(.Cells(2, 1), _
.Cells(.Rows.Count, 1).End(xlUp)), Me.ListBox2.List(0, 0))
ReDim arrData(1 To lngAnz, 1 To 5)
lngAnz = 0
'Daten aus Spalte 1 bis 31 in Datenarray einlesen
'Spalte 1 soll nicht die Zeilennummer enthalten
For I = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If CStr(wksData.Cells(I, 1)) = Me.ComboBox1.Value Then
lngAnz = lngAnz + 1
arrData(lngAnz, 1) = I 'Nummer der Zeile mit dem Datensatz
For j = 2 To 5
arrData(lngAnz, j) = wksData.Cells(I, j).Value
Next
End If
Next
End With
Me.ListBox1.List = arrData
End Sub