title image


Smiley Ergänzung:
Hallo nochmalNoch 2 Hinweise:1) Errorhandling wurde ergänzt (siehe orange Text), wenn der Suchbegriff nicht gefunden wird:Private Sub CommandButton1_Click()    If ActiveSheet.AutoFilterMode Then        Selection.AutoFilter    Else        On Error GoTo Fehler        Such = InputBox("Suchen nach:", "Find")        Cells.Find(What:=Such, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _        False).Activate        Columns(ActiveCell.Column).AutoFilter Field:=1, Criteria1:=ActiveCell.Value    End If    Exit SubFehler:    MsgBox "Suchwort nicht gefunden!"End Sub(Code eingefügt mit Code2HTML von Uwe Demmer)2) Du solltest deinen Spalten eine Überschrift geben, sonst wird der erste Eintrag als Überschrift interpretiert.GrüßeUweGlandorf 2000 - Das Excel-TreffenFragen zu ExcelAccess oder Word?EWAF-FAQ-Seiten und www.joerglorenz.de durchsuchen:

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: