Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon darockwider vom 18.01.2022, 10:26 Options
Makro Autofilter auswählen
Hallo,
habe ein Problem und kann es nicht lösen.
Ich brauch ein Makro welches mir ein Feld mit einem Namen mit den schon vorhanden Autofiltern vergleicht und den Filter dann öffnet.
Ich habe eine Liste mit 10 Namen.
Ich möchte im Feld E5 einen Namen eigeben.
Die Namen sind in Spalte B22 über Autofilter auszuwählen, nun möchte ich dass er den entsprechenden Autofilter öffnet, abhängug davon was er in E5 findet.
In E5 steht z.B Maik, dann zeigt er mir nur die Maik daten.
Kann jemand helfen?
habe ein Problem und kann es nicht lösen.
Ich brauch ein Makro welches mir ein Feld mit einem Namen mit den schon vorhanden Autofiltern vergleicht und den Filter dann öffnet.
Ich habe eine Liste mit 10 Namen.
Ich möchte im Feld E5 einen Namen eigeben.
Die Namen sind in Spalte B22 über Autofilter auszuwählen, nun möchte ich dass er den entsprechenden Autofilter öffnet, abhängug davon was er in E5 findet.
In E5 steht z.B Maik, dann zeigt er mir nur die Maik daten.
Kann jemand helfen?
Antwort 1 von M.O. vom 18.01.2022, 11:15 OptionsLösung
Hallo,
solche einfachen Aufgaben kannst du mit dem Makrorekorder lösen.
Dein Code für das Makro könnte z.B. so aussehen:
Falls du nicht weißt, wie man den Code einfügt, dann schau mal hier bei Anleitung 3 nach.
Gruß
M.O.
solche einfachen Aufgaben kannst du mit dem Makrorekorder lösen.
Dein Code für das Makro könnte z.B. so aussehen:
Sub Filter_setzen()
Selection.AutoFilter Field:=1, Criteria1:=Range("E5")
End SubFalls du nicht weißt, wie man den Code einfügt, dann schau mal hier bei Anleitung 3 nach.
Gruß
M.O.
Antwort 2 von fedjo vom 18.01.2022, 14:41 Options
Hallo,
Code in die Tabelle einfügen:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Application.ScreenUpdating = False
Cells.Rows.EntireRow.Hidden = False
For Each Zelle In Range("B22:B" & Range("B65536").End(xlUp).Row)
If Zelle.Text <> Range("E5").Value Then
Zelle.Rows.EntireRow.Hidden = True
End If
Next
If Range("E5") = "" Then Cells.Rows.EntireRow.Hidden = False
End Sub
Musterdatei: Namen
Gruß
fedjo
Code in die Tabelle einfügen:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Application.ScreenUpdating = False
Cells.Rows.EntireRow.Hidden = False
For Each Zelle In Range("B22:B" & Range("B65536").End(xlUp).Row)
If Zelle.Text <> Range("E5").Value Then
Zelle.Rows.EntireRow.Hidden = True
End If
Next
If Range("E5") = "" Then Cells.Rows.EntireRow.Hidden = False
End Sub
Musterdatei: Namen
Gruß
fedjo
Ähnliche Themen
makro mit autofilter
Mash73 15.08.2008 - 14 Hits - 1 Antwort
Autofilter
IntelP 24.09.2008 - 69 Hits - 2 Antworten
Autofilter
Luci 13.01.2009 - 119 Hits - 5 Antworten
Autofilter
stronge 10.02.2009 - 126 Hits - 1 Antwort
im Excel Makro Datei zum öffnen auswählen
andreas_3 24.04.2009 - 749 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
