Tabelle nach Uhrzeit filtern
09.03.2015 13:31:12
Leonhard
ich möchte meine Tabelle gerne nach der Uhrzeit filtern. Unten findet Ihr meinen Versuch dazu. Leider kann ich mit diesem Code nur Uhrzeiten von z.B. 17 - 22 Uhr abfragen. Wenn ich jetzt jedoch von 22 - 17 Uhr (über Nacht) filtern möchte, klappt das selbstverständlich mit diesem Code nicht. Könnte mir da jemand weiterhelfen, oder hätte Ideen für mich? Wäre sehr dankbar!
Sub nach_Zeit_filtern()
Application.ScreenUpdating = False
Worksheets("Tabelle1").Activate
Dim t As Long
Dim user_time_1 As Date
Dim user_time_2 As Date
Dim Zeilenzahl As Integer
Columns("G:G").Select
Selection.NumberFormat = "hh:mm:ss"
user_time_1 = CDate(Format(Time, "hh:mm:ss"))
user_time_2 = CDate(Format(Time, "hh:mm:ss"))
Range("G1").Select
Zeilenzahl = Selection.CurrentRegion.Rows.Count
If Cells(1, 7).Value = "TIME" Then
user_time_1 = InputBox("AB welcher Uhrzeit sollen die Ergebnisse ausgewertet werden? _
_
", "Bitte Uhrzeit eingeben:", "hh:mm:ss")
user_time_2 = InputBox("BIS zu welcher Uhrzeit sollen die Ergebnisse ausgewertet _
werden?", "Bitte Uhrzeit eingeben:", "hh:mm:ss")
For t = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(t, 7) user_time_2 Then Rows(t).Delete
Next t
End If
Worksheets("Tabelle1").Activate
Application.ScreenUpdating = True
End Sub
Anzeige