Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Liste suchen? Problem.

Betrifft: Liste suchen? Problem. von: Tom
Geschrieben am: 11.08.2008 10:30:01

Hi,
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

  

Betrifft: Gelöst! von: Tom
Geschrieben am: 11.08.2008 11:36:44

In den Code einfach die Zeile.:

Selection.AutoFilter Field:=2




 

Beiträge aus den Excel-Beispielen zum Thema "Liste suchen? Problem."