title image


Smiley Re: Zelle auslesen
Hallo TomNimm dem Button aus der Steuerelemente- Toolbox.- Doppelclick drauf- Im Eingabebereich des VB- Editors folgendes Makro eingeben:Private Sub CommandButton1_Click()    If ActiveSheet.AutoFilterMode Then        Selection.AutoFilter    Else        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 IfEnd Sub(Code eingefügt mit Code2HTML von Uwe Demmer)Wichtig: die Eigenschaft "TakeFocusOnClick" des Buttons MUSS auf false gesetzt werden.Beim ersten Click auf den Button wird das Suchwort abgefragt und gesucht...Beim zweiten Click, wird der Filter wieder ausgeschaltet...GrüßeUweGlandorf 2000 - Das Excel-TreffenFragen zu Excel, Access oder Word?EWAF-FAQ-Seiten und www.joerglorenz.de durchsuchen:

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: