Wer kann helfen?
Tabellenblatt = Name:Unfälle (Mit Daten von A1:BJ5000)
UserForm = Name:Grunddaten darin Textbox1,CommandButton1 u. ListBox2
vorgehensweise:
in der textbox1 gebe ich einen wert ein z.b. 1212
nun klicke ich den CommandButton1 und dieser soll so funzen:
Private Sub CommandButton1_Click()
Sheets("Unfälle").Activate
suche den eingegebenen wert in
Sheets("Unfälle").Range("B2 bis Ende) dann blende alle
zeilen die den wert aus textBox1 nicht haben aus.
das gefilterte ergebnis soll dann in der listbox2 gezeigt werden
End Sub
https://www.herber.de/bbs/user/39420.xls
gruss achim h.