Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1360to1364
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Anzeige
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

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

317 Forumthreads zu ähnlichen 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
MAKRO Autofilter alle auf (Alle)
Marcy

Hallo zusammen,
per Recorder habe ich paar Makros aufgezeichnet, die Filter in der Zeile 3 setzen.
Diese habe ich dann Textfelder zugewiesen (es geht um eine Tabelle für einen Excelneuling)
Jetzt benötige ich ein Makro, der alle Filter in Zeile 3 auf (Alle) setzt.
Diesen würde i...
01.03.2011 08:38:08
Thread-ID: 1203544
3 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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
2
13
9
8
8
1
6
6
9
2
2
5
4
2
2
1
1
1
1
1
2
1
2