|
also ein Vorgänger hatte für die Spalten K und L folgendes in VBA eingefügt:
(da waren noch andere Uhrzeiten als jetzt hinterlegt)
Ich bekomme es leider nicht hin.... bzw. ist es überhaupt so möglich, wenn die Daten sich täglich ändern?
Sub Filtern()
'
' Filtern Makro
'
'
Range("A1:X1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$X$500").AutoFilter Field:=19, Criteria1:="<>"
ActiveSheet.Range("$A$1:$X$500").AutoFilter Field:=19, Criteria1:=Array( _
"00:00:01:25", "00:00:05:34", "00:00:06:24", "00:00:08:54", "00:00:09:16", _
"00:00:10:16", "00:00:11:41", "00:00:11:44", "00:00:11:45", "00:00:13:40", _
"00:00:14:35", "00:00:16:17", "00:00:17:24", "00:00:17:34", "00:00:18:41", _
"00:00:19:17", "00:00:19:35", "00:00:19:41", "00:00:20:45", "00:00:20:46", _
"00:00:22:20", "00:00:26:35", "00:00:28:20", "00:00:30:21", "00:00:31:21", _
"00:00:33:32", "00:00:43:45", "00:00:46:30", "00:00:52:30"), Operator:= _
xlFilterValues
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter
ActiveSheet.Range("$A$1:$X$500").AutoFilter Field:=19, Criteria1:=Array( _
"00:00:01:25", "00:00:05:34", "00:00:06:24", "00:00:08:54", "00:00:09:16", _
"00:00:10:16", "00:00:11:41", "00:00:11:44", "00:00:11:45", "00:00:13:40", _
"00:00:14:35", "00:00:16:17", "00:00:17:24", "00:00:17:34", "00:00:18:41", _
"00:00:19:17", "00:00:19:35", "00:00:19:41", "00:00:20:45", "00:00:20:46", _
"00:00:22:20", "00:00:26:35", "00:00:28:20", "00:00:30:21", "00:00:31:21", _
"00:00:33:32", "00:00:43:45", "00:00:46:30", "00:00:52:30"), Operator:= _
xlFilterValues
End Sub
Public Function UmwandelnZeit(Zeit As String) As Date
Dim x() As String
Dim negativ As Integer
negativ = IIf(Left(Zeit, 1) = "-", -1, 1)
x = Split(Zeit, ":")
UmwandelnZeit = Sgn(negativ) * (Val(x(0)) + TimeSerial(x(1), x(2), x(3)))
End Function
|