Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten-Filter

Daten-Filter
06.02.2009 16:04:00
KlausL
Hallo zusammen,
mit nachfolgendem Code möchte ich aus einer Datei alle Geräte selektieren, deren Mindesüberlassung überschritten ist. Leider wird bei der Datumsübernahem das Datum im benutzerdefinierten Filter nicht als 06.02.2009 eingetragen sondern als 6/2/2009.
was mache ich falsch?

Sub WasIstZuAlt()
Dim Datum As Date
Datum = Format(Now, "dd.mm.yyyy")
Sheets("M_UEBERLASSUNG").Select
If ActiveSheet.AutoFilterMode = False Then
Rows("4:4").Select
Selection.AutoFilter
End If
Selection.AutoFilter Field:=10, Criteria1:=Datum
Range("A1").Select
End Sub


Bereits jetzt vielen Dank für Hinweise und Ratschläge
Gruß Klaus

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten-Filter
06.02.2009 16:09:10
Tino
Hallo,
versuche es mal so.

Sub WasIstZuAlt()
Dim Datum As String
Datum = CLng(Date)
Sheets("M_UEBERLASSUNG").Select
If ActiveSheet.AutoFilterMode = False Then
Rows("4:4").Select
Selection.AutoFilter
End If
Selection.AutoFilter Field:=10, Criteria1:=Datum
Range("A1").Select
End Sub


Gruß Tino

AW: Daten-Filter
06.02.2009 16:22:28
KlausL
Hallo Tino,
vielen Dank für Deine Antwort, leider führt sie zum gleichen Ergebnis, also 6/2/2009.
Gruß Klaus
AW: Daten-Filter
06.02.2009 16:42:00
Tino
Hallo,
ok. habe es mal getestet, bei nur Datum geht es so.

Sub WasIstZuAlt()
Dim Datum As Long
Datum = CLng(Date)
With Sheets("M_UEBERLASSUNG")
.UsedRange.AutoFilter 10, ">" & Datum - 1, xlAnd, "


Gruß Tino

Anzeige
AW: Daten-Filter
06.02.2009 17:05:18
KlausL
Hallo Tino,
Super, so funktioniert es.
Vielen Dank für deine Hilfe und ein schönes Wochenende
Gruß Klaus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige