8
Aufrufen per Makro des benutzerdefinierten Filters (als Box) ?
Hallo zusammen,
Excel ist soooo Umfangreich und ich such schon ewig.
Also meine Aufgabe sieht folgendermaßen aus:
erstelle eine Tabelle;
setze den Autofilter;
sortiere nach "Status"(Dropdownmenü öffnet sich)
Benutzerdefiniert;
Es öffnet sich ein Fenster(Box)
Benutzerdefinierter Autofilter - Zeilen Anzeigen"Status"(siehe Bild)
Dieser benutzerdefinierte Autofilter in dieser Box soll als mögliche Eingabebox bleiben für die User zum suchen nach bestimmten Stichpunkten.
Das Fenster soll auf "Enthält" stehen, in meinem Fall also Hilfe oder OK. So soll das Macro das Fenster Anzeigen und Stehen lassen um mit der Suche zu beginnen.
Eigendlich dachte ich ist es nicht so schlimm, makro Aufzeichnen und gut.
Das kam dabei raus:
Sub Makro1()
'
' Makro1 Makro
' Makro am 15.03.2012 von tesi aufgezeichnet
'
' Tastenkombination: Strg+w
'
Selection.AutoFilter Field:=3, Criteria1:="=**", Operator:=xlAnd
End Sub
Aber nix.
Hat jemand eine Idee, ich wäre echt dankbar da es morgen fertig sein soll.
Danke im voraus!
Tesi
Excel ist soooo Umfangreich und ich such schon ewig.
Also meine Aufgabe sieht folgendermaßen aus:
erstelle eine Tabelle;
setze den Autofilter;
sortiere nach "Status"(Dropdownmenü öffnet sich)
Benutzerdefiniert;
Es öffnet sich ein Fenster(Box)
Benutzerdefinierter Autofilter - Zeilen Anzeigen"Status"(siehe Bild)
Dieser benutzerdefinierte Autofilter in dieser Box soll als mögliche Eingabebox bleiben für die User zum suchen nach bestimmten Stichpunkten.
Eigendlich dachte ich ist es nicht so schlimm, makro Aufzeichnen und gut.
Das kam dabei raus:
Sub Makro1()
'
' Makro1 Makro
' Makro am 15.03.2012 von tesi aufgezeichnet
'
' Tastenkombination: Strg+w
'
Selection.AutoFilter Field:=3, Criteria1:="=**", Operator:=xlAnd
End Sub
Aber nix.
Hat jemand eine Idee, ich wäre echt dankbar da es morgen fertig sein soll.
Danke im voraus!
Tesi
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 182005
Url: https://administrator.de/contentid/182005
Ausgedruckt am: 20.11.2024 um 00:11 Uhr
8 Kommentare
Neuester Kommentar
Hi,
AFAIK ist es nicht möglich, per VBA den Autofilter-Dialog anzeigen zu lassen. Bis morgen hast Du aber bestimmt eine eigene UserForm erstellt ;)
Oder Du "arbeitest" mit Sendkeys. Das wird zwar auch (meist) funktionieren, kann aber auch böse enden ;)
Gruß abaaba
AFAIK ist es nicht möglich, per VBA den Autofilter-Dialog anzeigen zu lassen. Bis morgen hast Du aber bestimmt eine eigene UserForm erstellt ;)
Oder Du "arbeitest" mit Sendkeys. Das wird zwar auch (meist) funktionieren, kann aber auch böse enden ;)
Gruß abaaba
Hallo,
danke für deine Beitrag, aber der Chef will es so. Wie könnte ich es trotzdem schaffen, Hilfsansätze oder umwege?
Gruß Tesi73
danke für deine Beitrag, aber der Chef will es so. Wie könnte ich es trotzdem schaffen, Hilfsansätze oder umwege?
Gruß Tesi73
soll also unbedingt der original Autofilter-Dialog sein. sendkeys hast Du dir angeschaut??
Hallo Tesi,
wenn es der besagte Dialog sein soll:
Zum weiterlesen: Herber.de, siehe unten den Link auf die gesamte Liste.
Freundliche Grüße von der Insel - Mario
wenn es der besagte Dialog sein soll:
retVal = Application.Dialogs(xlDialogFilterAdvanced).ShowZum weiterlesen: Herber.de, siehe unten den Link auf die gesamte Liste.
Freundliche Grüße von der Insel - Mario
ja habe ich aber auch nicht so das passende gefunden, habe schon überlegt ob man einen Hotkey dort auf den Autofilter setzen kann.
Hallo Mario,
geiler Tipp, schau gerade mal durch ob ich meine Aufforderung dort finden kann. Wenn ich sie gefunden habe Poste ich sie.
Gruß Tesi
geiler Tipp, schau gerade mal durch ob ich meine Aufforderung dort finden kann. Wenn ich sie gefunden habe Poste ich sie.
Gruß Tesi
retVal = Application.Dialogs(xlDialogFilterAdvanced).Show - Spezialfilter
retVal = Application.Dialogs(xlDialogFilter).Show - Einfacher Filter(Autofilter) er setzt auch die Funktion des Autofilters, aber macht mir nicht die Box dazu auf.
Wo ist jetzt der Autofilter. Ick wat verrückt!;)
retVal = Application.Dialogs(xlDialogFilter).Show - Einfacher Filter(Autofilter) er setzt auch die Funktion des Autofilters, aber macht mir nicht die Box dazu auf.
Wo ist jetzt der Autofilter. Ick wat verrückt!;)
