Office: Autofilter VBA - Bedingungen

Hallo lieber Unterstützer,

ich habe folgendes Problem bei Excel, womit ich mich schon den ganzen Tag mit rumschlage. Ich komme nicht weiter, vielleicht habt Ihr eine Idee.

Das Problem:
Ich möche eine Tabelle per VBA automatisch filtern (Autofilter).

Hierfür habe ich Eingabefelder, in die etwas eingetragen werden können oder nicht.

Wenn dort etwas eingetragen ist, soll er natürlich danach filtern. Wenn nun NICHTS dadrin steht, soll er das anzeigen (weil es nicht durch ein Kriterium "eingeschränkt" wurde).

Nur dieses "anzeigen" bekomme ich nicht hin. Er erkennt die leere Zelle und zeigt mir daher diesen Wert nicht an.

Habt Ihr vielleicht eine Lösung für mein Problem?

Mein Code sieht folgendermaßen aus:

'Filter setzen (1 entspricht in diesem Beispiel Spalte A, 2 entspricht Spalte B)
Selection.AutoFilter Field:=3, Criteria1:=Range("C67").Value
Selection.AutoFilter Field:=11, Criteria1:=Range("K67").Value
Selection.AutoFilter Field:=17, Criteria1:=Range("Q67").Value
Selection.AutoFilter Field:=19, Criteria1:=Range("S67").Value

Ich bedanke mich schon einmal bei Euch und hoffe, dass jemand vielleicht eine Idee hat.

Danke. Christoph

 

Hallo Christoph,

meinst Du eine Lösung von solcher Art:

Code:

If IsEmpty(Range("C67").Value) Then
  Selection.AutoFilter Field:=3
Else
  Selection.AutoFilter Field:=3, Criteria1:=Range("C67").Value 
End If

Für die restlichen Fields müsste das analog durchgeführt werden.

 

Danke

Hallo Exl121150,

vielen Dank, Deine Formel klappt. Eine Frage habe ich noch:
Die Formel klappt anscheinend nur, wenn ich direkt auf die betreffenden Zellen verweise. Mein Problem:

Im Teil 1 kann man die Eintragungen machen.

Im Teil 2 bilde ich diese Eintragungen per Verweis alle übersichtlich ab.

Im Teil 3 nehme ich die Verweise von 2 und habe die mit einer Formel hinterlegt.

Wenn ich nun Deine Formel mit meinem Teil 2 oder 3 verknüpfe, scheint der nichts zu machen, weil er (meine Vermutung), die Zelle nicht als leer erkennt, weil da ja eine Formel hinterlegt ist (=WENN(C60="";"*";C60).

Hast Du eine Idee, ob es noch einen anderen Code gibt, so dass er auch Zellen mit Formel als leer erkennt?

Oder mache ich was anderes falsch? Vielen Dank für Deine Hilfe.

Christoph

 

Hallo Christoph,

wass passiert, wenn Du die IF-Bedingung änderst auf:

Code:

If Range("C67").Value="" Then

statt

Code:

If IsEmpty(Range("C67").Value) Then

Diese IF-Abfrage funktioniert dann, wenn tatsächlich in Zelle C67 eine leere Zeichenkette enthalten ist (oder ein Leerwert). Es dürften aber keinesfalls zB. Leerzeichen dort stehen oder ein "*" (wie ich Deiner Formel entnehme).

Gegen Leerzeichen (die optisch nicht sichtbar sind, aber natürlich trotzdem Zeichen sind) würde auch noch folgende IF-Abfrage schützen:

Code:

If Trim(Range("C67").Value)="" Then

 

Es klappt

Hi Exl121150,

es scheint nun zu klappen. Ich lasse die "*" raus, und er frisst es :-).

Vielen Dank für Deine Hilfe.

Ich glaube, dass ich das "Trimmen" nicht brauche, werde aber mal sehen, wie sich das in der Praxis verhält.

Vorerst vielen Dank!

Gruß Christoph