Hallo
Wie kann ich per VBA feststellen mit welchen Kriterium der Autofilter in einer bestimmten Spalte gesetzt wurde.
Oder noch besser,wie kann man alle Filter von Tabelle1 in Tabelle2 anwenden.
dera

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Autofilterkriterium auslesen

24.09.2008 23:54:00

Daniel

AW: Autofilterkriterium auslesen

24.09.2008 23:54:00

Daniel

Hi
zum Feststellen der aktuellen Filterkriterien auf einem Tabellenblatt hilft dir dieses Makro:


Sub test()
Dim anz As Long
Dim i As Long
Dim sh1 As Worksheet
Set sh1 = ActiveSheet
With ActiveSheet.AutoFilter
Debug.Print "Anzahl Filter: " & .Filters.Count
For i = 1 To .Filters.Count
If .Filters(i).On Then
Debug.Print "Filter " & i & ": Criterium 1: " & .Filters(i).Criteria1
If .Filters(i).Operator  0 Then
Debug.Print "          Criterium 2: " & .Filters(i).Criteria2
Select Case .Filters(i).Operator
Case 1
Debug.Print "          Operator   : UND"
Case 2
Debug.Print "          Operator   : ODER"
End Select
End If
Else
Debug.Print "Filter " & i & ": AUS"
End If
Next
End With
End Sub

die Filtereinstellungen werden im Direktfenster angezeigt.
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn in einer spalte ein bestimmtes wort steht dann

34081
excel zelle färben wenn andere zelle wert

23512
excel bis zu einem bestimmten zeichen auslesen

16681

Weitere Forumthreads anzeigen

excel hinzufügen von zeichen

16052

excel kann nicht scrollen

15741

excel mehrere formeln kopieren ohne bezug ändern

15343

excel text enthält zeichen

14267

excel wenn wert dann wert aus anderer zelle

12306

excel text ab bestimmten zeichen abschneiden

11938

excel zeichen entfernen links

11417

excel summe ist immer null

10634

excel zelle einfärben wenn andere zelle wert

10521

excel zählenwenn mit oder

9511

excel abschneiden von links

9498

excel prüfen ob zelle text enthält

9480

wenn null dann leer

9079

vba excel wert in zelle schreiben

8864

excel text vor leerzeichen ausgeben

8800

excel zählen wenn datum älter als

8428

doppelte einträge nur einmal zählen excel

8178

excel inhalt aus anderer zelle übernehmen

8062

excel text auslesen ab zeichen

7989

excel rechts bis leerzeichen

7915

excel größer und kleiner als

7806

vba letzte zeile finden

7675

datum und zeit zusammenführen excel

7521

excel ein und ausblenden button

7291

excel minuten in stunden umrechnen mehr als 24 stunden

7167

excel wenn x dann zeile ausblenden

7070

excel kreuz statt mauszeiger

7068

excel kw in monat umrechnen

6935

excel bedingte formatierung datum älter als 6 monate

6521

summewenn nicht wert

6515

mehrere spalten untereinander anordnen

6294

vba excel zelleninhalt löschen

6182

excel negative zahlen auf 0 setzen

6026

excel rechnen mit uhrzeiten wenn dann

6006

excel nur die letzten 4 zeichen anzeigen

5981

excel wenn zahl in spalte vorhanden dann

5920

excel erstes wort aus zelle kopieren

5910

excel reiter wechseln shortcut

5872

excel nummerierung funktioniert nicht

5838

excel prüfen ob mehrere zellen leer sind

5829

excel datei gesperrt durch mich selbst

5734

excel letzte drei zeichen löschen

5705

excel was bedeutet @ in formel

5689

summe aus sverweis

5676

excel wert aus zelle darüber übernehmen

5582

text in zelle suchen

5539

excel uhrzeit + 15 minuten

5492

excel vba zelle mit bestimmten inhalt suchen

5379

zählenwenns nicht leer

5341

summewenn mehrere spalten summieren

5321

excel formel führende nullen entfernen

5224

excel farbe wenn andere zelle bestimmten wert hat

5182

excel msgbox ja nein

5105

excel emailadresse generieren

5082

excel formel wenn sverweis nv dann 0

5082

excel vba hintergrundfarbe

5053

excel wenn farbe dann x

5053

excel buchstaben entfernen formel

4974

excel wert übertragen wenn bedingung erfüllt

4903

excel summewenn ungleich text

4847

excel formel anführungszeichen als text

4841

excel vba enthält string

4789

datum plus monate excel

4769

summewenns mit datum

4754

excel makro passwort schützen

4727

excel formel finden von rechts

4710

vba mehrere if bedingungen

4679

punktdiagramm excel mehrere datenreihen

4659

excel formel aktualisiert erst nach doppelklick

4654

excel zelle an bild anpassen

4588

excel punkt aus text entfernen

4564

excel die ersten 3 zeichen löschen

4556

excel text übernehmen aus zelle

4516

excel vba in eine zahl umwandeln

4508

vba umbruch

4482

excel zählen wenn text enthält

4469

excel spalte ermitteln

4452

vba prüfen ob tabellenblatt existiert und löschen

4430

excel makro unterbrechen

4411

excel automatisches datum bei eintrag

4362

excel tabelle kopieren ohne verknüpfung

4360

summe und runden in einer zelle

4357

excel uhrzeit ohne datum

4332

vba formular schließen

4327

excel durchschnitt von prozentzahlen

4327

excel kalenderwoche in datum

4324

zeilennummer ausgeben excel

4308

excel verketten datumsformat beibehalten

4300

excel vba anderes tabellenblatt ansprechen

4285

excel gliederung benennen

4260

excel gruppieren grau hinterlegt

4229

sie haben zu wenig argumente für diese funktion eingegeben

4199

zeilenumbruch in vba code

4182

excel dropdown leere zellen werden nicht ignoriert

4158

excel filter trotz blattschutz ohne makro

4142

excel drucklinien ausblenden

4075

excel aktuelles jahr automatisch einfügen

4025

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

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn in einer spalte ein bestimmtes wort steht dann

34081
excel zelle färben wenn andere zelle wert

23512
excel bis zu einem bestimmten zeichen auslesen

16681

Weitere Forumthreads anzeigen

excel hinzufügen von zeichen

16052

excel kann nicht scrollen

15741

excel mehrere formeln kopieren ohne bezug ändern

15343

excel text enthält zeichen

14267

excel wenn wert dann wert aus anderer zelle

12306

excel text ab bestimmten zeichen abschneiden

11938

excel zeichen entfernen links

11417

excel summe ist immer null

10634

excel zelle einfärben wenn andere zelle wert

10521

excel zählenwenn mit oder

9511

excel abschneiden von links

9498

excel prüfen ob zelle text enthält

9480

wenn null dann leer

9079

vba excel wert in zelle schreiben

8864

excel text vor leerzeichen ausgeben

8800

excel zählen wenn datum älter als

8428

doppelte einträge nur einmal zählen excel

8178

excel inhalt aus anderer zelle übernehmen

8062

excel text auslesen ab zeichen

7989

excel rechts bis leerzeichen

7915

excel größer und kleiner als

7806

vba letzte zeile finden

7675

datum und zeit zusammenführen excel

7521

excel ein und ausblenden button

7291

excel minuten in stunden umrechnen mehr als 24 stunden

7167

excel wenn x dann zeile ausblenden

7070

excel kreuz statt mauszeiger

7068

excel kw in monat umrechnen

6935

excel bedingte formatierung datum älter als 6 monate

6521

summewenn nicht wert

6515

mehrere spalten untereinander anordnen

6294

vba excel zelleninhalt löschen

6182

excel negative zahlen auf 0 setzen

6026

excel rechnen mit uhrzeiten wenn dann

6006

excel nur die letzten 4 zeichen anzeigen

5981

excel wenn zahl in spalte vorhanden dann

5920

excel erstes wort aus zelle kopieren

5910

excel reiter wechseln shortcut

5872

excel nummerierung funktioniert nicht

5838

excel prüfen ob mehrere zellen leer sind

5829

excel datei gesperrt durch mich selbst

5734

excel letzte drei zeichen löschen

5705

excel was bedeutet @ in formel

5689

summe aus sverweis

5676

excel wert aus zelle darüber übernehmen

5582

text in zelle suchen

5539

excel uhrzeit + 15 minuten

5492

excel vba zelle mit bestimmten inhalt suchen

5379

zählenwenns nicht leer

5341

summewenn mehrere spalten summieren

5321

excel formel führende nullen entfernen

5224

excel farbe wenn andere zelle bestimmten wert hat

5182

excel msgbox ja nein

5105

excel emailadresse generieren

5082

excel formel wenn sverweis nv dann 0

5082

excel vba hintergrundfarbe

5053

excel wenn farbe dann x

5053

excel buchstaben entfernen formel

4974

excel wert übertragen wenn bedingung erfüllt

4903

excel summewenn ungleich text

4847

excel formel anführungszeichen als text

4841

excel vba enthält string

4789

datum plus monate excel

4769

summewenns mit datum

4754

excel makro passwort schützen

4727

excel formel finden von rechts

4710

vba mehrere if bedingungen

4679

punktdiagramm excel mehrere datenreihen

4659

excel formel aktualisiert erst nach doppelklick

4654

excel zelle an bild anpassen

4588

excel punkt aus text entfernen

4564

excel die ersten 3 zeichen löschen

4556

excel text übernehmen aus zelle

4516

excel vba in eine zahl umwandeln

4508

vba umbruch

4482

excel zählen wenn text enthält

4469

excel spalte ermitteln

4452

vba prüfen ob tabellenblatt existiert und löschen

4430

excel makro unterbrechen

4411

excel automatisches datum bei eintrag

4362

excel tabelle kopieren ohne verknüpfung

4360

summe und runden in einer zelle

4357

excel uhrzeit ohne datum

4332

vba formular schließen

4327

excel durchschnitt von prozentzahlen

4327

excel kalenderwoche in datum

4324

zeilennummer ausgeben excel

4308

excel verketten datumsformat beibehalten

4300

excel vba anderes tabellenblatt ansprechen

4285

excel gliederung benennen

4260

excel gruppieren grau hinterlegt

4229

sie haben zu wenig argumente für diese funktion eingegeben

4199

zeilenumbruch in vba code

4182

excel dropdown leere zellen werden nicht ignoriert

4158

excel filter trotz blattschutz ohne makro

4142

excel drucklinien ausblenden

4075

excel aktuelles jahr automatisch einfügen

4025

Autofilterkriterium auslesen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread