Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Suche mit Textfeld & Toggle Button | Herbers Excel-Forum


Betrifft: Suche mit Textfeld & Toggle Button von: Jonas
Geschrieben am: 01.08.2012 09:25:12

Hallo,

ich habe mir eine Userform mit Textfeld und Toggle-Button erstellt. Ziel ist, dass wenn der Button aktiviert ist soll im Sheet ("Namen") nach dem Inhalt des Textfeldes gesucht werden. Ist er inaktiv soll im Sheet ("Telefonliste(ON)") nach dem Textfeldinhalt gesucht werden.

Hier ist mein Sub() leider mit Fehlermeldung :(

Private Sub txt_Suchfenster_Change()
If Me.tog_Namen_Telefonliste.Value = True Then
Worksheets("Namen").Select
Cells.Find(What:=txt_Suchfenster.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart,  _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
    
Else: Worksheets("Telefonliste(ON)").Select
Cells.Find(What:=txt_Suchfenster.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart,  _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End If
End Sub
Ich hoffe, ihr könnt mir helfen!

Vielen Dank.
Jonas

  

Betrifft: AW: Suche mit Textfeld & Toggle Button von: Harald Kapp
Geschrieben am: 01.08.2012 09:42:38

Wie ist denn die Fehlermeldung?

Zunächst mal sollte nach dem Else kein ":" stehen.

Harald


  

Betrifft: AW: Suche mit Textfeld & Toggle Button von: Jonas
Geschrieben am: 01.08.2012 09:45:25

Hallo Harald,

dies setzt VBA bei mir automatisch!?

Gruß


  

Betrifft: ??? von: Harald Kapp
Geschrieben am: 01.08.2012 09:50:25

Merkwürdig, kenne ich so nicht.

Dennoch: Was ist denn die eigentliche Fehlermeldung?


  

Betrifft: ...Weil du wohl immer eine neue Zeile anfängst,... von: Luc:-?
Geschrieben am: 01.08.2012 16:01:02

…Harald;
sonst ist das so!
Gruß Luc :-?


  

Betrifft: Beispielmappe zum Testen? von: Harald Kapp
Geschrieben am: 01.08.2012 09:51:11




  

Betrifft: Beispielmappe zum Testen? von: Harald Kapp
Geschrieben am: 01.08.2012 09:51:13




  

Betrifft: Beispielmappe zum Testen von: Harald Kapp
Geschrieben am: 01.08.2012 09:51:56

?


  

Betrifft: 'tschuldigung, sollte nur 1 post werden von: Harald Kapp
Geschrieben am: 01.08.2012 09:52:38




  

Betrifft: 'tschuldigung, sollte nur 1 post werden von: Harald Kapp
Geschrieben am: 01.08.2012 09:52:39




  

Betrifft: AW: 'tschuldigung, sollte nur 1 post werden von: Jonas
Geschrieben am: 01.08.2012 09:57:52

Hier die Mappe...

https://www.herber.de/bbs/user/81235.xlsm


  

Betrifft: Habe nur Excel 2003 von: Harald Kapp
Geschrieben am: 01.08.2012 10:07:45

Die Mappe hat eien UserForm1 mit zwei buttons: An und AUS und diesem Code:

Private Sub CommandButton1_Click()
    Application.DisplayFullScreen = True    'in "Diese Arbeitsmappe/
Private Sub Workbook_Activate()"
    Windows("Info.xlsm").DisplayGridlines = False
    Windows("Info.xlsm").DisplayHeadings = False
    Windows("Info.xlsm").DisplayVerticalScrollBar = False
    Windows("Info.xlsm").DisplayHorizontalScrollBar = False
    Windows("Info.xlsm").DisplayZeros = False
End Sub

Private Sub CommandButton2_Click()
    Windows("Info.xlsm").DisplayGridlines = True
    Windows("Info.xlsm").DisplayHeadings = True
    Windows("Info.xlsm").DisplayVerticalScrollBar = True
    Windows("Info.xlsm").DisplayHorizontalScrollBar = True
    Windows("Info.xlsm").DisplayZeros = True
    Application.DisplayFullScreen = False    'in "usf_Ausblenden/
Private Sub but_Ausblenden_Click()"
End Sub
Das ist nicht das, was Du anfänglich gefragt hast. Der Code versucht auf ein Fenster "Info.xlsm" zuzugreifen, aber das scheint es nicht zu geben.

Ich habe hier leider nur Excel 2003, möglicherweise kann ich deshalb den Code nicht korrekt nachvollziehen.


  

Betrifft: @Haral u. Jonas von: Matze,Matthias
Geschrieben am: 01.08.2012 11:39:32

Tach ihr Beiden,
die runtergeladene Datei in Info.xlsm umbenennen, dann stimmt das mit dem angaben.

der erwähnte " : " - drück nach Else mal "Enter" und lösche den :

'Suchfenster

Private Sub txt_Suchfenster_Change()
    If Me.tog_Namen_Telefonliste.Value = True Then
        Worksheets("Namen").Select
        Cells.Find(What:=txt_Suchfenster.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    
    Else
    Worksheets("Telefonliste(ON)").Select
           Cells.Find(What:=txt_Suchfenster.Value, After:=ActiveCell, LookIn:=xlFormulas,  _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
           False, SearchFormat:=False).Activate
    End If
End Sub
Wenn Fehlermeldungen : dann auch posten

Gruß Matze


  

Betrifft: AW: @Haral u. Jonas von: Jonas
Geschrieben am: 01.08.2012 12:21:14

Hi ihr zwei,

jetzt funzt es.

VIELEN DANK!!!


  

Betrifft: Schon mal was von mehreren Befehlen in ... von: Luc:-?
Geschrieben am: 01.08.2012 16:03:22

…einer Zeile gehört, Matze… ;-)
Gruß Luc :-?


  

Betrifft: @Haral u. Jonas von: Matze,Matthias
Geschrieben am: 01.08.2012 11:39:34

Tach ihr Beiden,
die runtergeladene Datei in Info.xlsm umbenennen, dann stimmt das mit dem angaben.

der erwähnte " : " - drück nach Else mal "Enter" und lösche den :

'Suchfenster

Private Sub txt_Suchfenster_Change()
    If Me.tog_Namen_Telefonliste.Value = True Then
        Worksheets("Namen").Select
        Cells.Find(What:=txt_Suchfenster.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    
    Else
    Worksheets("Telefonliste(ON)").Select
           Cells.Find(What:=txt_Suchfenster.Value, After:=ActiveCell, LookIn:=xlFormulas,  _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
           False, SearchFormat:=False).Activate
    End If
End Sub
Wenn Fehlermeldungen : dann auch posten

Gruß Matze


Beiträge aus den Excel-Beispielen zum Thema "Suche mit Textfeld & Toggle Button"