Herbers Excel-Forum - das Archiv

Andere Lösung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox UserForm
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
Excel-Beispiele zum Thema "Andere Lösung"
Blätter in andere Arbeitsmappen kopieren Variablenübergabe in andere Arbeitsmappen
Bezüge auf Namen in anderen Mappen aufheben Blattinhalt von einer zur anderen Arbeitsmappe kopieren
Sicherungskopie in einem anderen Verzeichnis erstellen Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren
Bei Eingabe andere Werte löschen Eintragungen im 1. Blatt in andere Blätter übernehmen
Währung in der Systemsteuerung/Ländereinstellungen umstellen Zeile mit aktiver Zelle in anderes Blatt kopieren