ich weiss mal wieder nicht weiter; ich würde gerne einen Zeitstempel an den Filter übergeben, kriegs aber nicht hin!
Ich hab schon alles mögliche probiert, um aus den Zeitstempel einen Text zu machen, deswegen nicht wundern. Das hier klappt trotzdem nicht:
'------------------------------------------------------
Sub Makro5()
Dim zp1 As String, zp2 As String
' Zeitstempel definieren, im richtigen Makro sollen diese irgendwo im Sheet ausgeselsen werden
tag1 = DateValue("28.04.06")
zeit1 = TimeValue("01:19")
tag2 = DateValue("01.05.06")
zeit2 = TimeValue("05:19")
' Zeitstempel zusammenbasteln, in Flieskommazahl umwandeln
' zum Kriterium zusammenauen
zp1 = "> " & CDbl(tag1 + zeit1)
zp2 = "< " & CDbl(tag2 + zeit2)
Selection.AutoFilter Field:=1, Criteria1:=zp1, Operator:=xlAnd, Criteria2:=zp2
End Sub
'------------------------------------------------------
Aus irgendwelchen Gründen wird kein zeitstempel übergeben, mit nur dem Datum funktioniert das Ganze...
Kann mir da einer helfen?
Schönen Dank im Vorraus,
Gruss
Rainer