Fehler 1004
17.11.2016 16:39:00
Fred Neumann
Hallo Experten,
ich will mit vba u.a. Daten von "Basis" gefiltert in Tabelle "HeimTeam" kopieren.
folgendes Script:
Dim wks As Worksheet
Application.ScreenUpdating = False
Worksheets("Kriterien").Range("N2:CY3").ClearContents 'enttfernt bisherige Kriterien-HeimTeam
Application.CutCopyMode = False
Set wks = ActiveWorkbook.Worksheets("HeimTeam")
With wks
' .Activate
' prüft ob Filterfunktionen in HeimTeam vorhanden sind, vorhandene werden entfernt
If .AutoFilterMode Then
If .FilterMode Then .ShowAllData
.AutoFilterMode = False
End If
End With
' von Basis gefiltert nach HeimTeam
Sheets("Basis").Columns("A:J").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Kriterien").Range("A1:E3"), CopyToRange:=Range("A6:J6") _
, Unique:=False
Application.ScreenUpdating = True
Wenn es um die Daten von "Basis" gefiltert in "HeimTeam" geht, kommt die Meldung:
Fehler 1004
Fehlender bzw ungültiger Feldname im Zielbereich.
Was mache ich falsch, Worksheets("HeimTeam") ist doch aktiviert und dort in "A6:J6" sollen auch die Daten hin.
Kann mir bitte jemand helfen?
mfg
Fred