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 Unfälle Range("B2 bis Ende) dann blende alle
zeilen die den wert nicht haben aus.
das ergebnis soll dann in der listbox2 gezeigt werden
End Sub
danke achim h.