Option Explicit
Sub Test()
Dim wksDB As Excel.Worksheet
Dim rngFilterResult As Excel.Range
Dim TrL As Long
Dim GBv As Long
Dim GBb As Long
TrL = 50
GBv = 220
GBb = 340
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 Not rngFilterResult Is Nothing Then
End If
End Sub