Ich habe folgenden Code geschrieben, er funktioniert auch. Wenn ich allerdings Selection.Cells.SpecialCells(xlVisible), _ hinzufüge geht nichts mehr.
Ich bin VBA Anfänger und weiß einfach nicht weiter.
Windows("Datafile092012.xlsm").Activate
Range("Data[[#Headers],[#Data]]").AdvancedFilter _
Selection.Cells.SpecialCells(xlVisible), _
Action:=xlFilterCopy, _
CriteriaRange:=Range("Kriterium1"), _
CopyToRange:=Bereich, _
Unique:=False
Kann mir irgendjemand dazu helfen?