Excel Autofilter - Enthält - automatisieren
Gibt es eine möglichkeit beim Excelautofilter
DropDown -> (Benutzerdefiniert... ) -> dann Pfadname auf "enthält umstellen"
zu verkürzen
ICh hab eine Tabelle erstellt in der ich sämmtliche Software mit Bemerkungen gelistet habe.
Wenn ich nun eine Software suche die irgendwas mit zB "Sicherheit" zutun hat, kann ich entweder über die Gruppe filtern oder aber ich filtere über mein Bemerkungsfeld. Alle Zeilen, die im Bemerkungsfeld was mit "Sicherheit" stehen haben.
nun ist mir aber der oben genannte weg zu umständlich. gibt es eine Möglichkeit, das über ein skript oder sonstwas zu umgehen... zB ich klicke icht auf den DropDown-pfeil sondern direkt auf das Feld "Bemerkung" und es öffnet sich ein Eingabefeld, indem ich meinen Suchbegriff eingebe und er filtert automatisch die Spalte nach "enthält"
Hoffe ich habs einigermaßen rübergebracht....
DropDown -> (Benutzerdefiniert... ) -> dann Pfadname auf "enthält umstellen"
zu verkürzen
ICh hab eine Tabelle erstellt in der ich sämmtliche Software mit Bemerkungen gelistet habe.
Wenn ich nun eine Software suche die irgendwas mit zB "Sicherheit" zutun hat, kann ich entweder über die Gruppe filtern oder aber ich filtere über mein Bemerkungsfeld. Alle Zeilen, die im Bemerkungsfeld was mit "Sicherheit" stehen haben.
nun ist mir aber der oben genannte weg zu umständlich. gibt es eine Möglichkeit, das über ein skript oder sonstwas zu umgehen... zB ich klicke icht auf den DropDown-pfeil sondern direkt auf das Feld "Bemerkung" und es öffnet sich ein Eingabefeld, indem ich meinen Suchbegriff eingebe und er filtert automatisch die Spalte nach "enthält"
Hoffe ich habs einigermaßen rübergebracht....
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 115480
Url: https://administrator.de/contentid/115480
Ausgedruckt am: 05.11.2024 um 08:11 Uhr
4 Kommentare
Neuester Kommentar
Wenn ich das jetzt richtig verstanden habe ist es "relativ" einfach.
Wenn du die Tabelle offen hast gehst du über:
Extras
Makro
auf
Aufzeichnen
Dort vergibst du einen Namen für das Makro und kannst auch eine Tastenkombination angeben.
Sobald du auf OK geklickt hast führst du einfach die Schritte aus, die du normalerweise machst. Klickst also auf deinen Autofilter und gibst über "Benutzerdefiniert" die entsprechenden Daten an.
Sobald du fertig bist gehst du wieder über
Extras
Makro
auf
Aufzeichnung beenden
Müsste in etwa so aussehen:
Sub Makro4()
'
' Makro4 Makro
' Makro am 07.05.2009 von Moonwalker aufgezeichnet
'
' Tastenkombination: Strg+l
'
Selection.AutoFilter Field:=2, Criteria1:="=1", Operator:=xlAnd
End Sub
und schon kannst du mit deiner Tastenkombination entsprechend filtern.
Reicht das oder habe ich dein Problem vielleicht falsch verstanden?
Gruß
Chris
Edit
Glaube ich habs falsch verstanden. Du willst nur einen Teil des Weges zurücklegen den ich beschrieben habe. Ich schau mal
Wenn du die Tabelle offen hast gehst du über:
Extras
Makro
auf
Aufzeichnen
Dort vergibst du einen Namen für das Makro und kannst auch eine Tastenkombination angeben.
Sobald du auf OK geklickt hast führst du einfach die Schritte aus, die du normalerweise machst. Klickst also auf deinen Autofilter und gibst über "Benutzerdefiniert" die entsprechenden Daten an.
Sobald du fertig bist gehst du wieder über
Extras
Makro
auf
Aufzeichnung beenden
Müsste in etwa so aussehen:
Sub Makro4()
'
' Makro4 Makro
' Makro am 07.05.2009 von Moonwalker aufgezeichnet
'
' Tastenkombination: Strg+l
'
Selection.AutoFilter Field:=2, Criteria1:="=1", Operator:=xlAnd
End Sub
und schon kannst du mit deiner Tastenkombination entsprechend filtern.
Reicht das oder habe ich dein Problem vielleicht falsch verstanden?
Gruß
Chris
Edit
Glaube ich habs falsch verstanden. Du willst nur einen Teil des Weges zurücklegen den ich beschrieben habe. Ich schau mal
Glaube das folgende könnte dir helfen:
Sub AutoFilterAn()
Dim Suchbegriff As String
Suchbegriff = InputBox("Bitte Kriterium eingeben:", "AutoFilter")
If Suchbegriff = "" Then
Selection.AutoFilter Field:=1
Else
Selection.AutoFilter Field:=1, Criteria1:="" & Suchbegriff & "*"
End If
End Sub
Versuch mal dein Glück
Wenn du dir ein "CommandButton" erstellst und das Makro mit diesem verbinden willst sieht das in etwa so aus:
Private Sub CommandButton1_Click()
Dim Suchbegriff As String
Suchbegriff = InputBox("Bitte Kriterium eingeben:", "AutoFilter")
If Suchbegriff = "" Then
Selection.AutoFilter Field:=1
Else
Selection.AutoFilter Field:=1, Criteria1:="" & Suchbegriff & "*"
End If
End Sub
Durch dieses Makro wird ein Texteingabefenster erstellt, wo du deinen Suchbegriff eintragen kannst.
Selection.AutoFilter Field:=1
ist der erste Autofilter. Wenn du im zweiten suchen willst muss in dem Makro entsprechend eine 2 stehen.
Gruß
Chris
Edit
wenn deine Suchabfrage "enthält" sein soll, dann muss bei
Criteria1:=""
ein * zwischen den Anführungszeichen stehen.
Sub AutoFilterAn()
Dim Suchbegriff As String
Suchbegriff = InputBox("Bitte Kriterium eingeben:", "AutoFilter")
If Suchbegriff = "" Then
Selection.AutoFilter Field:=1
Else
Selection.AutoFilter Field:=1, Criteria1:="" & Suchbegriff & "*"
End If
End Sub
Versuch mal dein Glück
Wenn du dir ein "CommandButton" erstellst und das Makro mit diesem verbinden willst sieht das in etwa so aus:
Private Sub CommandButton1_Click()
Dim Suchbegriff As String
Suchbegriff = InputBox("Bitte Kriterium eingeben:", "AutoFilter")
If Suchbegriff = "" Then
Selection.AutoFilter Field:=1
Else
Selection.AutoFilter Field:=1, Criteria1:="" & Suchbegriff & "*"
End If
End Sub
Durch dieses Makro wird ein Texteingabefenster erstellt, wo du deinen Suchbegriff eintragen kannst.
Selection.AutoFilter Field:=1
ist der erste Autofilter. Wenn du im zweiten suchen willst muss in dem Makro entsprechend eine 2 stehen.
Gruß
Chris
Edit
wenn deine Suchabfrage "enthält" sein soll, dann muss bei
Criteria1:=""
ein * zwischen den Anführungszeichen stehen.