Tabelle filtern nach Anzahl Stunden

Private Sub CB_Filtern_Click()
Dim c As Range
Dim SpalteS As String
Dim SpalteI As Integer
Dim Bereich As String   'um den Suchbereich zu definieren
Dim Operator As String '(=)
Dim Kriterium As Variant
Dim Kategorie As String
Dim last As Integer
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
Kategorie = ComboBox_Filtern.Text
If Kategorie = "Projektnummer" Then
SpalteS = "C"
SpalteI = 1
Kriterium = CLng(ComboBox_Attr.value)
ElseIf Kategorie = "Projektbezeichnung" Then
SpalteS = "D"
SpalteI = 2
Kriterium = CStr(ComboBox_Attr.value)
ElseIf Kategorie = "Arbeitsbereich" Then
SpalteS = "E"
SpalteI = 3
Kriterium = ComboBox_Attr.value
ElseIf Kategorie = "Auftraggeber" Then
SpalteS = "F"
SpalteI = 4
Kriterium = ComboBox_Attr.value
ElseIf Kategorie = "Zeitsumme" Then
SpalteS = "G"
SpalteI = 5
Kriterium = CDbl(ComboBox_Attr.value * 60 / 1440)
ElseIf Kategorie = "Status" Then
SpalteS = "H"
SpalteI = 6
Kriterium = ComboBox_Attr.value
Else: Exit Sub
End If
last = newLast("Projekte", SpalteI)
Bereich = SpalteS & "8:" & SpalteS & last
Operator = ComboBox_Operator.Text
For Each c In ActiveSheet.Range(Bereich)
Select Case Operator
Case "=": If c.value = Kriterium Then c.AutoFilter SpalteI, Kriterium
Case "": If c.value > Kriterium Then c.AutoFilter SpalteI, Criteria1:=">" & Kriterium
Case ">=": If c.value >= Kriterium Then c.AutoFilter SpalteI, Criteria1:=">=" & Kriterium
Case "