Private Sub CommandButton2_Click()
Dim wksDB As Excel.Worksheet
Dim rngFilterResult As Excel.Range
Dim TrL As Long
Dim GBv As Long
Dim GBb As Long
With Me
TrL = CLng(.TextBox1)
GBv = CLng(.TextBox2)
GBb = CLng(.TextBox3)
End With
Set wksDB = ThisWorkbook.Worksheets("Datenbank")
Call wksDB.AutoFilter.ShowAllData
With wksDB.AutoFilter.Range
Call .AutoFilter(2, ">=" & TrL - 5, xlAnd, "<=" & TrL + 5)
Call .AutoFilter(3, ">=" & GBv - 25, xlAnd, "<=" & GBv + 25)
Call .AutoFilter(4, ">=" & GBb - 25, xlAnd, "<=" & GBb + 25)
Set rngFilterResult = .SpecialCells(xlCellTypeVisible)
If rngFilterResult.Rows.Count = 1 Then Set rngFilterResult = Nothing
End With
If rngFilterResult.Areas.Count = 1 And rngFilterResult.Rows.Count = 1 _
Then Set rngFilterResult = Nothing
Sheets("Suchergebnisse").Select
End Sub