Office: Filter funktioniert nicht

Hasso · 25. August 2017

Hallo paddy,

versuch mal: Code:

Datum1 = CDate(TextBox1.Value)
Datum2 = CDate(TextBox2.Value)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Textboxen haben, wie der Name schon vermuten lässt, als Inhalt Text - der muss in ein Datum umgewandelt werden (was natürlich nur funktioniert, wenn der String im Textfeld ein gültiger Datumsausdruck ist).

RPP63 · 25. August 2017

Es ehrt Dich, Hasso!
Aber eben (#8) waren es noch ComboBoxes, jetzt TextBoxes.
Ich code nix, bevor ich die Datei sehe.

Two Cents
Ralf

paddy3911 · 25. August 2017

Ich taste mich da langsam ran an das Thema.. Sehr langsam :P

Hier die Datei.

Ich kann garnicht oft genug Danke sagen.

Zeitraum ist immer vom 25 des vorherigen bis zum nächsten 24 (inklusive)

Der Steuerfuzzi · 25. August 2017

Na jetzt kommt Licht ins Dunkel. Die Monate sind als Text hinterlegt.

Versuch es mal so:
Datum2 = CDate("24. " & ComboBox1 & " " & ComboBox2)
Datum1 = DateSerial(Year(Datum1), Month(Datum1) - 1, 25)

EDIT: Datum1 und Datum2 sind im Filter "vertauscht" (Beginndatum = Datum2 und Enddatum = Datum1)

Hasso · 25. August 2017

Mit Steuerfuzzis Hilfe habe ich jetzt folgenden funktionierenden Code Code:

Option Explicit
Private Sub CommandButton1_Click()
Dim Datum1 As Date, Datum2 As Date
Columns("AJ:AJ").NumberFormat = "dd/mm/yyyy;@"

'Juli 2017

Datum1 = CDate("24. " & ComboBox1 & " " & ComboBox2)
If Month(Datum1) 1 Then
Datum2 = DateSerial(Year(Datum1), Month(Datum1) - 1, 25)
'Sonderfall Januar:
Else
Datum2 = DateSerial(Year(Datum1) - 1, 12, 25)
End If

ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=2, Criteria1:= _
">=" & CDbl(Datum2), Operator:=xlAnd, Criteria2:="
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Filter funktioniert nicht

Filter funktioniert nicht

Filter funktioniert nicht

Filter funktioniert nicht

Filter funktioniert nicht - Similar Threads - Filter funktioniert

Filter funktioniert nicht mehr ohne das etwas verändert wurd

Find,Suchfunktion funktioniert nicht bei Excel 2016

Filter Serienbrief funktioniert nicht

filter funktioniert nicht richtig

Filtern funktioniert nicht richtig

Filtern mit neuem Wert funktioniert nicht

Junk e-mail Filter: "Nur sichere Abesnder und Empfänger"t. Funktioniert nicht mehr