Filterung von ListObject in mehreren Schleifen

[Caligula]

So, habe das Problem selbst gelöst

für Alle, die es interessiert:

    With LOTerm
        .Range.AutoFilter Field:=1, Criteria1:=strFKZ
        .Range.AutoFilter Field:=5, Criteria1:="Zwischenbericht"
        .Range.AutoFilter Field:=12, Criteria1:=""
   
    On Error Resume Next
        Set rngLOTerm = .DataBodyRange.Columns(1).SpecialCells(xlVisible)
'        On Error GoTo 0
        If Not rngLOTerm Is Nothing Then
            wrkShtTerm.Range("E2:E" & wrkShtTerm.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Copy Destination:=wrkShtUeber.Range("A15")
            wrkShtTerm.Range("H2:J" & wrkShtTerm.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Copy Destination:=wrkShtUeber.Range("B15")
        End If
        On Error GoTo 0
    End With