per vba den zahlenwert von datum/Uhrzeit ermitteln

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sigi, funktioniert, danke, aber ich häng an sich an was anderem und dachte so käm ich weiter aber ich häng noch fest. Ich wollte Wete filtern die zwischen 2 Uhrzeiten liegen, aber es wird nichts ausgewählt bei: Sub test() Range("a1").Select MsgBox CDbl(CDate("01.05.2005 16:00")) Selection.AutoFilter Field:=1, _ Criteria1:=">=" & CStr(CDbl(CDate("01.05.2005 16:00"))), Operator:=xlAnd, Criteria2:="<=" & CStr(CDbl(CDate("01.05.2005 18:00"))) End Sub bezogen auf die Tabelle: Tabellenblattname: Tabelle1 A B 1 zeiten 2 01.05.05 16:02:00 38473,6680555556 3 01.05.05 15:02:00 38473,6263888889 4 01.05.05 17:34:00 38473,7319444444 5 01.05.05 19:02:00 38473,7930555556 Benutzte Formeln: B2: =A2 B3: =A3 B4: =A4 B5: =A5 Namen in der Tabelle: Tabelle1!_FilterDatabase: =Tabelle1!$A$1:$A$7 Gruß Reinhard

Hallo Reinhard,
mit Deinem Problem habe ich mich jetzt einige Zeit intensiv auseinander gesetzt und bin zu folgendem Ergebnis gekommen:
1. Sehr wahrscheinlich ist es so, dass der Autofilter bei Datum nur das Tagesdatum (aber keine mit dem Tagesdatum verbundene Uhrzeit) berücksichtigt; diese Angabe ist ohne Gewähr!
2. Wenn Tagesdatum und Uhrzeit in einer Zelle stehen, könnte die Formatierung dieser Zellen als "Text" Abhilfe bringen; allerdings müssen dann die Datums- und Uhrzeitwerte auch als Text eingegeben werden (mit dem Datum kann dann natürlich nicht mehr gerechnet werden).
Unter dieser Voraussetzung funktioniert bei mir dieses Makro:


Sub test()
Range("A1").Select
Selection.AutoFilter Field:=1, _
Criteria1:=">=01.05.2005 16:00", _
Operator:=xlAnd, _
Criteria2:="<=01.05.2005 18:00"
End Sub

3. Die Variante, Tagesdatum und Uhrzeit in getrennten Zellen/Spalten unterzubringen, habe ich jetzt nicht getestet.
4. Vielleicht kennt ja ein anderer Forumsteilnehmer eine bessere Lösung; deswegen habe ich den Beitragsstatus noch immer auf "offen" gesetzt.
Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !

Sub test() Range("a1").AutoFilter Field:=1, _ Criteria1:=">=" & Replace(CDbl(CDate("1.5.2005 16:00")), ",", "."), _ Operator:=xlAnd, _ Criteria2:="<=" & Replace(CDbl(CDate("1.05.2005 18:00")), ",", ".") End Sub

Sub test() Range("A1").AutoFilter Field:=1, _ Criteria1:=">=" & WorksheetFunction.Substitute _ (CDbl(CDate("01.05.2005 16:00")), ",", "."), _ Operator:=xlAnd, _ Criteria2:="<=" & WorksheetFunction.Substitute _ (CDbl(CDate("01.05.2005 18:00")), ",", ".") End Sub

Hallo Werner,
der das dort postete gibt sich immer sehr sehr viel Mühe zu helfen (siehe Anhang) und da er wie hier mit Jeannie auch eine Beispieltabelle hinterlegte habe ich es nicht getestet.
Gruß
Reinhard
Hallo Stefan,
das Problem ist wohl, dass bei den AutoFilter-Kriterien Datum/Uhrzeit nicht in diesem
Format, sondern als Zahlenwerte vorgegeben werden müssen. (Dann kann Excel die Werte mit
den Zellwerten, die intern ja auch nur Dezimalzahlen sind, vergleichen.)
Mit ">=38473.66667" anstelle von ">=01.05.2005 16:00"
und " (also mit Dezimalpunkt statt Komma) sollte es gehen.

Wenn deine Tabelle etwa so aussieht:
_|________A________|_B__|C|_D__|________E________|_F__|________G________|
1|     Zeit        |Txt | |von | 01.05.2005 16:00|bis | 01.05.2005 18:00|
2| 01.05.2005 14:00|tx1 | |    |                 |    |                 |
3| 01.05.2005 15:00|tx2 | |    |                 |    |                 |
4| 01.05.2005 16:00|tx3 | |    |                 |    |                 |
5| 01.05.2005 17:00|tx4 | |    |                 |    |                 |
6| 01.05.2005 18:00|tx5 | |    |                 |    |                 |
7| 01.05.2005 19:00|tx6 | |    |                 |    |                 |
8| 01.05.2005 20:00|tx7 | |    |                 |    |                 |
und "AutoFilter" eingeschaltet ist, liest das folgende Makro die beiden Vorgabedaten in
E1 und G1 (als Zeichenketten), wandelt sie in Double um, ersetzt Komma durch Punkt und
stellt den Autofilter ein. Dann sollte man nur noch die Zeilen 4 bis 6 sehen.
Sub Filter_DatumZeit()
Dim kr1$, kr2$
kr1 = ">=" & Replace(CDbl([E1]), ",", ".")
kr2 = "<=" & Replace(CDbl([G1]), ",", ".")
Selection.AutoFilter Field:=1, Criteria1:=kr1, Operator:=xlAnd, Criteria2:=kr2
End Sub
Kannst du damit dein Problem lösen?
(Vermutlich gehts auch einfacher, aber so funzt es schon mal.)
Grüße aus Kamp-Lintfort
Erich

Kleine Beispieltabelle: | A | B | 1 | Darstellung | Wert als Text | 2 | 07.05.2005 | 38479 | 3 | 07.05.2005 00:00:00 | 38479 | 4 | 09:11 | 0,382638888888889 | 5 | 09:12 | 0,383333333333333 | 6 | 07.05.2005 09:11 | 38479,3826388889 | 7 | 07.05.2005 08:54:17,4 | 38479,3710347222 | 8 | 07.05.2005 08:54:17,6 | 38479,371037037 | 9 | 07.05.2005 08:54:18,0 | 38479,3710416667 | 10 | 0,142857143 | 0,142857142857143 | 11 | 0,666666667 | 0,666666666666667 | Benutzte Formeln: A10: =1/7 A11: =2/3 B2 : =A2 & "" B3 : =A3 & "" usw. bis B11: =A11 & "" In den Zeilen 7 bis 9 zeigt sich, dass auch Zehntelsekunden ordentlich verarbeitet werden können. Bei den Zeilen 10 und 11 kann man auch schön erkennen, dass Excel mit mehr Stellen rechnet als (im Standard) dargestellt werden. Grüße aus Kamp-Lintfort Erich

Beliebteste Forumthreads (12 Monate)

per vba den zahlenwert von datum/Uhrzeit ermitteln

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

per vba den zahlenwert von datum/Uhrzeit ermitteln

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread