Office: erweiterter Filter

Hallo Forum,

und wieder grüßt das Murmeltier. Ich bin der Verzweiflung nahe.
Ich möchte meinen erweiterten Filter von außen steuern. Das klappt wunderbar, solange ich jeden If-Block einzeln benutze, d.h. zwei Blöcke sind auskommentiert, werden die Filterkriterien wie gewünscht übertragen.

Sobald aber zwei oder drei IF-Blöcke aktiv sind, funktioniert die Auswahl nicht mehr wie gewünscht und es werden alle Filterkriterien angezeigt, und nicht nur die ausgewählten.

Code:

Sub Filter()

'If Worksheets("Zahlungserinnerung").Range("O3").Value <> "" Then
'       Worksheets("Zahlungserinnerung").Range("AA3").Select
'       ActiveCell.FormulaR1C1 = "="">=""&R[0]C[-12]"
'End If
'
'If Worksheets("Zahlungserinnerung").Range("P3").Value <> "" Then
'       Worksheets("Zahlungserinnerung").Range("AB3").Select
'       ActiveCell.FormulaR1C1 = "="">=""&R[0]C[-12]"
'End If

If Worksheets("Zahlungserinnerung").Range("S3").Value <> "" Then
       Worksheets("Zahlungserinnerung").Range("AE3").Select
       ActiveCell.FormulaR1C1 = "="">=""&R[0]C[-12]"
End If

Was übersehe ich?

Problem 2:
Die Auswahl O3 und P3 sollen sich gegenseitig ausschließen.

Hat jemand eine Lösung für mich parat.

Der Mampfred

 

Hallo Forum,

ich habe jetzt einen komplett anderen Ansatz ausprobiert und der funktioniert grundsätzlich einwandfrei bis auf...

Code:

       'Textfilter einbringen
        If Not Intersect(Target, Range("T3")) Is Nothing Then
            Range("AF3:AF4").Value = "*" & Target.Value & "*"
        End If
        If Not Intersect(Target, Range("U3")) Is Nothing Then
            Range("AG3:AG4").Value = "*" & Target.Value & "*"
        End If
        'Zahlenfilter
        If Not Intersect(Target, Range("O3")) Is Nothing Then
            Range("AA3").Value = ">=" & Target.Value
        End If
        If Not Intersect(Target, Range("P3")) Is Nothing Then
            Range("AB3").Value = ">=" & Target.Value
        End If
        'Datumsfilter
        If Not Intersect(Target, Range("S3")) Is Nothing Then
            Range("AE3").Value = ">=" & Target.Value
        End If

Es funktioniert bis auf den Datumsfilter. Das Filterkriterium wird korrekt angezeigt, jedoch das Filterergebnis ist leer.

Gibt es Konflikte mit dem Datum hinsichtlich Deutsch-Amerikanische Darstellung? Gibt es besondere Dinge beim Datum zu beachten? Ich bin als Anfänger. der lernwillig ist und auch lernt, ein klein wenig aufgeschmissen.
Kann jemand von den Experten mir den einen oder anderen Ratschlag geben?

Ich bin für jeden Hinweis (Schlag auf den Hinterkopf) dankbar.

Der Mampfred

 

Hallo Forum,

ich habe die Lösung gefunden. Learning by Testing. Für diejenigen, die es interessiert:
Aus dem Datum wird mit clng ein ganzzahliger Wert erstellt. Dann funktionierts auch mit dem Filtern.

Code:

        If Not Intersect(Target, Range("S3")) Is Nothing Then
            Range("AE3").Value = ">=" & CLng(Target.Value)
        End If

Ich wünsche euch allen ein frohes Fest und einen guten Rutsch in das neue Jahr.

Der Mampfred