Hallo Leute,
Ich habe seit heut früh ein Problem. Ich bekomme diesen Laufzeitfehler nicht raus.
Ich habe etwas längeres programmiert, und beim abspielen funktioniert alles bis auf den letzten Teil.

Dim Januar1 As Integer
Application.Goto (ActiveWorkbook.Sheets("Copy of Salesforce Cases QS").Range("F1")) 'das funktioniert noch
Dim Bereichc As Range
Set Bereichc = Worksheets("Copy of Salesforce Cases QS").UsedRange 'Ab hier kommt der Fehler
Bereichc.AutoFilter Field:=6, Criteria1:="*01.2020*"
ThisWorkbook.Worksheets.Add.Name = "ZS"
Worksheets("Copy of Salesforce Cases QS").Range("J:J").Copy _
Destination:=Worksheets("ZS").Range("A2")
Application.Goto (ActiveWorkbook.Sheets("ZS").Range("A:A"))
Januar1 = 0
For Each X In ActiveSheet.UsedRange.Columns(1).Value
If X Like "*DWL*" Or X Like "*HI*" Then
Januar1 = Januar1 + 1
End If
Next
Worksheets("openclosedcases").Range("I4").Value = "Januar open:"
Worksheets("openclosedcases").Range("J4").Value = Januar
Application.DisplayAlerts = False
Worksheets("ZS").Delete
Application.DisplayAlerts = True
With Sheets("openclosedcases")
If .FilterMode Then
.ShowAllData
End If
End With

Das problem ist, dass ich vorher auch schon gefiltert habe und keine Probleme aufkommen.
ich bitte um Hilfe