Sub FilterUntersuchungen()
Dim Untersuchung As String
Dim Intervention As String
Dim Aufnahme As String
Dim Art As String
Dim rng As Range
On Error GoTo errHandler:
Untersuchung = Tabelle1.Range("d9").Value
Intervention = Tabelle1.Range("e9").Value
Aufnahme = Tabelle1.Range("g9").Value
Art = Tabelle1.Range("h9").Value
Set rng = Tabelle2.Range("b8:l8")
If Untersuchung = "" Then Untersuchung = "*"
If Intervention = "" Then Intervention = "*"
If Aufnahme = "" Then Aufnahme = "*"
If Art = "" Then Art = "*"
rng.AutoFilter Field:=8, Criteria1:=Untersuchung
rng.AutoFilter Field:=9, Criteria1:=Intervention
rng.AutoFilter Field:=5, Criteria1:=Aufnahme
rng.AutoFilter Field:=6, Criteria1:=Art
CopyFilter
Showall
Tabelle1.Select
On Error GoTo 0
Exit Sub
errHandler:
MsgBox "nichts"
Showall
Tabelle1.Select
End Sub