|
Guten Tag zusammen
Ich hab zurzeit folgendes problem
Aus einer Txt Datei lese ich X-y Zellen Daten aus von einem Druckerlog
Datum und Zeit sind da jeweils in einer Spalte
Mit einem Loop rechne füge ich sie zusammen in Spalte O
Dim i As Long
i = 2
Do While Not Cells(i, 1) = ""
Range("G" & i).Select
ActiveCell.FormulaR1C1 = "=RC[-5]+RC[-4]"
I = i + 1
Loop
End Sub
Nun will ich noch zwischen Zwei Datum und Zeit filter
Mit
Dim F_Date_1 As Date
Dim F_Date_2 As Date
Dim Str_Date_1 As String
Dim Str_Date_2 As String
Str_Date_1 = Date_1 & Time_1
Str_Date_2 = Date_2 & Time_2
F_Date_1 = Str_Date_1
F_Date_2 = Str_Date_2
ActiveSheet.Range("$A$1:$G$167").AutoFilter Field:=7, Criteria1:= _
">=" & F_Date_1, Operator:=xlAnd, Criteria2:="<=" & F_Date_2
Die Daten erhalte ich aus seiner Eingabemaske
Aber der Filter funktioniert definitiv nicht – kann jemand Helfen
|