Andere Lösung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox
Bild

Betrifft: Andere Lösung
von: Ernst Dunkel
Geschrieben am: 19.02.2005 22:50:20
Guten Abend Forum
Mit dem folgenden Makro wird ein Name in Tabelle1 gesucht.
In Zelle “A1“ wird der gesuchte Name eingetragen, in Zelle “B1“ steht immer “z“.
Ab Zelle “A3“ bzw. in Spalte “A“ wird gesucht.


Sub Filter_Adressen()
Range("A3").Select
    Selection.AutoFilter Field:=1, Criteria1:=">=" & Range("A1").Value, Operator:=xlAnd, _
        Criteria2:="<" & Range("A1").Value
End Sub

Eine andere Möglichkeit ist mit einer TextBox in einer UserForm den Namen in die Zelle “A1“ einzutragen. Wie das geht ist mir bekannt.
Aber gibt es nicht eine einfachere Lösung ohne “A1“ und “B1“ anzusprechen?
Für eine Lösung bin ich dankbar.
Mit freundlichen Grüßen
Ernst Dunkel
Bild

Betrifft: AW: Andere Lösung
von: Josef Ehrensberger
Geschrieben am: 19.02.2005 23:31:30
Hallo Ernst!
Kannst du ein bischen Licht ins Dunkel ;-) bringen?
Ich verstehe nicht ganz was du mit "einfachere Lösung" meinst!

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: Andere Lösung
von: Ernst Dunkel
Geschrieben am: 19.02.2005 23:48:24
Hallo Sepp
Mit der Userform und Textbox kann ich einen Werte in die Zelle "A1" und "B1" eintragen.
Von dort aus wird der Code:

Sub Filter_Adressen()
Range("A3").Select
    Selection.AutoFilter Field:=1, Criteria1:=">=" & Range("A1").Value, Operator:=xlAnd, _
        Criteria2:="<" & Range("A1").Value
End Sub

ausgeführt. Hier denke ich ist doch eine einfachere Lösung möglich, z.B.
1. Klick auf ein Button
2. Suchbegriff eintragen
Bild

Betrifft: AW: Andere Lösung
von: Josef Ehrensberger
Geschrieben am: 19.02.2005 23:53:10
Hallo Ernst!
Jetz verstehe ich!

Sub Filter_Adressen()
Range("A3").Select
    Selection.AutoFilter Field:=1, Criteria1:=">=" & TextBox1, Operator:=xlAnd, _
        Criteria2:="<" & TextBox2
End Sub

Wenn der Code aus dem UF ausgeführt wird!
"TextBox1" bzw. "TextBox2" musst du halt anpassen

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: und das Select....
von: Josef Ehrensberger
Geschrieben am: 19.02.2005 23:54:38
...braucht's auch nicht!

Sub Filter_Adressen()
Range("A3").AutoFilter Field:=1, Criteria1:=">=" & TextBox1, Operator:=xlAnd, _
        Criteria2:="<" & TextBox2
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: und das Select....
von: Ernst Dunkel
Geschrieben am: 20.02.2005 01:03:49
Hallo Sepp
Vielen Dank für Deine Bemühungen. Werden den Code am Morgen testen.
Wenn es nicht klappt, werde ich mich melden.
Wünsche Dir eine gute Nacht.
mfg
Ernst Dunkel
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Andere Lösung"