Office: (Office 2010) Datum über Makro filtern

Hallo zusammen,


ich bräuchte mal wieder Eure Hilfe.

Ich habe eine Excelliste, in der über ein Makro ein Datumsfiltergesetzt werden soll.


Allerdings funktioniert das nicht so, wie ich will. Mirzeigt es keine Datensätze mehr an. Ich denke mal, das hat was mit demDatumsformat zu tun, habe aber zu weniger Erfahrung, was ich in dem Makroändern muss, damit das funktioniert.


Mein Makro sieht momentan so aus:


Sub Datum_filtern()


With Sheets("Tabelle1").Range("A7")
.AutoFilter Field:=1, Criteria1:=">=" &Range("B2").Value, Operator:=xlAnd, Criteria2:="<="& Range("B3").Value
End With


End Sub



Ich habe mal ein Beispiel angehangen.

Könnt Ihr mir da weiterhelfen?


Das wäre echt super.


VG Micha

 

Hi Micha,

gib das Datum im Format Double an, dann funktionert es:

Code:

.AutoFilter Field:=1, Criteria1:=">=" & [COLOR=#ff0000]CDbl([/COLOR]Range("B2").Value[COLOR=#ff0000])[/COLOR], Operator:=xlAnd, _
    Criteria2:="<=" & [COLOR=#ff0000]CDbl([/COLOR]Range("B3").Value[COLOR=#ff0000])[/COLOR]

Bis später,
Karin

 

Hallo Karin,

das klappt wunderbar.

Dankeschön.

VG Micha

 

Hallo Karin,

ich habe meine Idee vongestern noch etwas weiter entwickelt.

Nun habe ich ein Userformgebastelt, über das das Datum gefiltert werden soll. Im zweiten Schritt sollendann die nebenstehenden Leute gefiltern werden, aber so weit bin ich nochnicht.

Bei mir hängt es schon imersten Teil. Ich denke mal, er holt sich die Datumswerte nicht aus denTextboxen oder hat ein Problem mit dem Format. Bin aber leider nicht so firm,was die Fehlersuche bei den Makros angeht.

Kannst Du Dir das bitte nocheinmal anschauen, die neue Datei habe ich angehangen.

Vielen Dank

Micha

 

Hi Micha,

- erstens hat sich bei dir ein Fehler eingeschlichen in der Zeile zum Setzen des Autofilters - es muss Criteria1 und Criteria2 heißen, bei dir stand an beiden stellen Criterial

- zweitens hast du einen Fehler im Formatieren der TextBox txtEnde: es muss heißen "dd.mm.yyyy" und nicht "yy.mm.yyyy"

- drittens muss aus dem Text in den TextBoxen zuerst ein Datum gemacht werden, ehe man dieses in den double-Wert umwandeln kann:

Code:

    .AutoFilter Field:=1, Criteria1:=">=" & CDbl(CDate(txtStart.Value)), Operator:=xlAnd, Criteria2:="<=" & CDbl(CDate(txtEnde.Value))

- viertens würde ich dir empfehlen, anstelle derTextBoxen jeweils eine ComboBox zu verwenden, sodass das Datum dort nur noch ausgewählt und nicht von Hand eingetragen werden muss, denn wenn du eine Zahl einträgst, die Excel nicht als Datum interpretieren kann, erhältst du beim Filtern dann einen Laufzeitfehler

Bis später,
Karin

 

Hallo Karin,

das mit dem dd hatte ich auch schon gefunden, als ich weiter gearbeitet habe.Auf den anderen Schreibfehler wäre ich nie gekommen. Das hat man davon, wennman mal nicht kopieren, sondern den Code selber schreiben will … dann ist esbei der Schriftart im VBA immer etwas schwierig zu erkennen, was eine 1 und wasein l ist.



Jetzt klappt alles wunderbar. DieIdee mit der Comboxbox werde ich mir mal überlegen.



Ich danke Dir für Deine Hilfe.



VG Micha

 

Hi Micha,

Dafür gibt es einen kleinen "Trick": schreibe alles in Kleinbuchstaben, dann wandelt Excel normalerweise die Schreibweise korrekt um, sodass (mindestens) der Anfangsbuchstabe des Befehls als Großbuchstabe erscheint - wenn also keine Umwandlung stattfindet, ist an der Schreibweise etwas falsch. Und bei dir stand eigentlich criterial was ein Hinweis auf einen Fehler ist.
Dies betrifft die Standardbefehle, man muss sich nicht wundern, wenn es bei Sonderbefehlen, die nicht direkt aus dem Excel-VBA stammen, dann nicht funktioniert, aber zumindest wird man aufmerksam gemacht, dass man den Befehl noch einmal überprüfen sollte, wenn der Anfangsbuchstabe klein bleibt.


Bis später,
Karin