Live-Forum - Die aktuellen Beiträge
Datum
Titel
05.10.2025 11:43:19
Bed. Format. Spezialfall, Möglich, die Registerfarbe nutzen?
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
04.10.2025 17:44:54
Power Query - Filtern einer Spalte mittels einer Liste
04.10.2025 15:35:03
Range um eine Einzelzelle erweiternerweitern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1360to1364
1360to1364
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Autofilter zurücksetzen wenn!

Forumthread: VBA Autofilter zurücksetzen wenn!

VBA Autofilter zurücksetzen wenn!
16.05.2014 14:55:57
Thomas
Hallo zusammen!
Ich habe per VBA den Autofilter in meiner Tabelle gesetzt und es funktioniert auch wenn ich in A1 den Suchbegriff eintrage aber ich muss wenn ich alles sehen möchte den Filter von Hand zurücksetzten.
Wie kann man das auch per Code erreichen wenn A1 = "" oder aber "alle" steht das dann die Zeilen wieder sichtbar sind?
~ 

Sub Worksheet_Change(ByVal Target As Range)
Dim Liste As Range
Set Liste = ActiveSheet.Range("B3:AA240")
Liste.AutoFilter
Liste.AutoFilter Field:=1, Criteria1:=Range("A1").Value
If Range("A1") = "Alle" Then
'Alle Zeilen wieder einblenden
End If
End Sub
~
Das bekomme ich nicht gebacken :(
Mit freundlichen Grüßen

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Autofilter zurücksetzen wenn!
16.05.2014 14:59:27
Rudi
Hallo,
If Range("A1") = "Alle" Then
if activesheet.filtermode then activesheet.showalldata
end if

AW: VBA Autofilter zurücksetzen wenn!
16.05.2014 15:01:38
Patrick 

Sub Worksheet_Change(ByVal Target As Range)
Dim Liste As Range
Set Liste = ActiveSheet.Range("B3:AA240")
Liste.AutoFilter
Liste.AutoFilter Field:=1, Criteria1:=Range("A1").Value
If Range("A1") = "Alle" Then
Liste.AutoFilter
Liste.AutoFilter Field:=1
End If
End Sub

Anzeige
AW: VBA Autofilter zurücksetzen wenn!
16.05.2014 15:08:34
Thomas
Hallo Rudi und Patrik,
leider blendet mir eure Vorschläge den ganzen Bereich auch so wie bei meinen versuchen bisher auch.
Ich hab auch schon einige versuche gemacht und daher wende ich mich an die wissenden!
Mit freundlichen Grüßen

AW: VBA Autofilter zurücksetzen wenn!
16.05.2014 15:13:35
Thomas
Hallo Rudi!
Sorry, es wird auf Groß- und Kleinschreibung geachtet dann funktioniert deins.
Nochmal Danke für die schnelle Hilfe.
MfG

Anzeige
AW: VBA Autofilter zurücksetzen wenn!
16.05.2014 15:29:41
Daniel
Hi
im Prinzip reicht folgender Code:
Sub Worksheet_Change(ByVal Target As Range)
Dim Liste As Range
Set Liste = ActiveSheet.Range("B3:AA240")
Liste.AutoFilter Field:=1, Criteria1:=Range("A1").Value
End Sub
wenn du alle Zeilen einblenden willst, gibst du einfach den Stern "*" in A1 ein (Joker für beliebige Zeichen).
etwas eleganter ist dann:
Sub Worksheet_Change(ByVal Target As Range)
Dim Liste As Range
Set Liste = ActiveSheet.Range("B3:AA240")
Select Case LCase(Range("a1").Value)
Case "alle", ""
Liste.AutoFilter Field:=1
Case Else
Liste.AutoFilter Field:=1, Criteria1:=Range("A1").Value
End Select
End Sub
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Autofilter in allen Tabellenblätter übernehmen
thoemmy

Hallo VBA Gemeinde
Ich habe ein Excel workbook mit 12 sheets.
In jedem Sheet ist in Spalte A bis C ein Autofilter (also 3 Autofilter pro sheet) gesetzt.
Nun möchte ich dass beim auswählen eines Autofilter, in allen anderen Tabellenblätter auch dieses Autofilter aktiv ist. Wie lässt...
11.05.2009 11:32:33
Thread-ID: 1074298
3 Beiträge
Anzeige
VBA Autofilter Kriterienlimitierung aufheben
alex

Hallo alle miteinander.
gibt es eine möglichkeit über VBA die Kriterienlimitierung des benutzerdefinierten autofilter von 2 auf 3 oder 4 zu erhöhen?
hab es mal so versucht, aber ohne erfolg. bekomme einen laufzeitfehler wenn ich mehr als 2 kriterien angebe
Sub test Selection.AutoFil...
15.03.2010 16:01:55
Thread-ID: 1145973
4 Beiträge
VBA alles löschen am XDatum ;-) ?
Marcy

Hallo,
ist es möglich mit VBA einen Streich zu spielen?
Ich habe einem Kollegen eine recht umfangreiche (für meine Verhältnisse :-) ) Tabelle gemacht.
Diese wollte ich dem zum Test zuschicken, dass er mal etwas damit rum spielen kann.
Jetzt fände ich es recht lustig, wenn z.B. a...
04.03.2011 12:45:37
Thread-ID: 1204216
14 Beiträge
VBA Code für Filter, Formatierung, Löschen
Padinjo

Hallo zusammen,
die Suche hat leider nichts brauchbares ergeben, deswegen versuch ich mein Glück in einem neuen Thema.
Vorab zur Info:
Ich habe eine Excel Datei, die durch eine Wenn-Formel sich bestimmte Zeilen aus einer anderen Datei zieht - Abhängig vom dem jeweiligen Datum das...
28.09.2011 09:20:11
Thread-ID: 1231781
10 Beiträge
Makro für alle Tabellenblätter (Filter,ausblenden.
Maggie

Hallo
ich habe 3 Makros welche nur auf dem aktiven Tabellenblatt laufen, bräuchte sie aber so das sie gleichzeitig in allen Tabellenblättern laufen... habe Null-Ahnung wie ich das hin bekommen soll...
kann mir bitte jemand dabei helfen?
Gruß
Maggie
hier die 3 Makros
---...
06.05.2012 15:13:47
Thread-ID: 1262489
9 Beiträge
Autofilter über alle Tabellenblätter
Toumas

Hallo zusammen,
wie kann ich den Filter von Tabellenblatt 1 auf die anderen Tabellenblätter (Anzahl variiert) übernehmen ?
Ich habe hier im Archiv den Code : Sub AlleFiltern() Dim iWks As Integer For iWks = 2 To Worksheets.Count Worksheets(iWks).Range("A1").AutoFilter _ Field:=1, _ Crit...
04.04.2013 15:54:39
Thread-ID: 1307289
9 Beiträge
VBA Tabelle filtern
Bettina

Hallo zusammen,
ich hoffe Ihr könnte mir weiterhelfen.
Zur Problemstellung:
In der Tabelle "Daten" werden per Userform unterschiedliche Daten eingegeben.
z.B. In Spalte B stehen Fabrikate, in Spalte C Modell, in Spalte D Größe usw.
Nun möchte ich, dass über ein weiteres User...
08.07.2015 12:27:07
Thread-ID: 1435253
2 Beiträge
VBA: Tabelle filtern und Dateien erstellen
AlexK

Hallo Leute,
ich werde nicht schlau aus meinen Suchen im Netz:
Ich habe eine Tabelle, die Namen in der Spalte A und die Herkunft der Personen mit den jeweiligen Namen als Stadt in Spalte D enthält.
Nun will ich diese Tabelle filtern nach der Stadt und mit den Filterergebnissen Datei...
08.06.2016 18:38:37
Thread-ID: 1497791
7 Beiträge
VBA alle doppelten Zeilen löschen
Mimi

Hallo alle zusammen :)
ich habe folgendes Problem:
Ich habe eine Tabelle mit Vertragsnummern, mit 1000 oder mehr Einträgen. Die Vertragsnummern können aber durch Veränderungen doppelt eingetragen werden.
Ich möchte ein Makro schreiben, dass 1. prüft, ob die Vertragsnummer doppelt v...
06.07.2016 13:00:14
Thread-ID: 1502856
7 Beiträge
Spezialfilter aus mehreren Tabellen VBA
Luna

Hola liebes Forum da bin ich wieder.
Ich habe mehrere Tabellen von verschiedenen Maschinen wo ich die Wartungsarbeiten mit MaschinenNr., Datum Anfang, Datum Ende, Zeit, Name und Art der Wartung eingebe. Diese möchte ich nun filtern. Ich habe mir dazu ein Makro gebaut welches aber nicht fun...
15.10.2016 21:43:32
Thread-ID: 1519844
10 Beiträge
Anzeige
Werte über Makro einfügen ohne Filter zu löschen
Marcel

Hallo zusammen,
ich habe mich schon dumm und dusselig gesucht aber keine Lösung (vielleicht weil es keine gibt?) gefunden...
Ich möchte Werte im sichtbaren Bereich eines gesetzten Filters einfügen (bspw. aus einer SVerweis-Formel Werte machen).
Das Problem ist, dass wenn ich das ma...
31.05.2017 10:00:32
Thread-ID: 1561323
3 Beiträge
Filter-Ergebnisse ohne Titel löschen (VBA)
Markus

Hallo,
ich möchte gerne per VBA die Ergebnisse eines dynamisch gefilterten Blattes löschen.
Bisher habe ich dafür folgenden Code, der grundsätzlich auch funktioniert.
Kann mir jemand sagen, was ich hier noch ändern muss, damit auch folgendes gegeben ist ?
1) Wie erreiche ich...
10.10.2017 18:20:31
Thread-ID: 1585118
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige