Liste suchen? Problem.
11.08.2008 10:30:01
Tom
ich schreib gerade ein kleines Userform zum suche in einer Liste.
Wenn ich jetzt gesucht habe was alles wunderbar funktioniert, danach aber eine zweites mal Suchen will. Kommt ein Fehler.
Der Fehler liegt darin das die Liste nicth mehr ganz ausgefahren ist. Kann mir vll. jemand sagen wie ich die Liste ganz ausfahren/anzeigen kann in VBA.
Alternativ könnte ich auch in der versteckten Liste suchen, wenn das geht.
Ich geb auch mal mein Code:
Private Sub CBtnsearch_Click()
Dim svar As String, smodell As String
Dim actCell As Long
svar = TBoxsearch.Value
Cells.Find(What:=svar, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
smodell = Cells(ActiveCell.Row, 3).Value
actCell = ActiveCell.Row
Selection.AutoFilter Field:=2, Criteria1:=smodell
Cells(actCell, "W").Activate
Unload UFSearch
End Sub
mfg Tom