Hallo,
im unten stehenden Code wird überprüft, ob der Eintrag in der Zelle E(n) mit dem Inhalt der TextBox1 übereinstimmt. Bei Übereinstimmug sollen die Daten von A(n) bis F(n) in die ListBox1 übertragen werden. Die Spaltenanzahl der ListBox konnte ich über die Eigenschaften einstellen. Aber wie fülle ich die?
For n = 2 To 50
Bezeichnung = Sheets("Namen").Columns("A").Rows(n).Value
Strasse = Sheets("Namen").Columns("B").Rows(n).Value
Hausnummer = Sheets("Namen").Columns("C").Rows(n).Value
Postleitzahl = Sheets("Namen").Columns("D").Rows(n).Value
Ort = Sheets("Namen").Columns("E").Rows(n).Value
Telefon = Sheets("Namen").Columns("F").Rows(n).Value
If Sheets("Namen").Columns("E").Rows(n).Value = TextBox1.Value Then
ListBox1.List(1, 1) = Bezeichnung
ListBox1.List(1, 2) = Strasse
ListBox1.List(1, 3) = Hausnummer
ListBox1.List(1, 4) = Postleitzahl
ListBox1.List(1, 5) = Ort
ListBox1.List(1, 6) = Telefon
End If
Next n
Vielen Dank im Voraus... Gruß, Klaus