Fehlermeldung im Script
28.10.2005 15:08:49
Dominik
Sub filternkopieren()
Sheets("Tabelle1").Activate
If Not ActiveSheet.AutoFilterMode = True _
Then Range("A1").AutoFilter
Selection.AutoFilter Field:=7, Criteria1:=("SEI")
ActiveCell.CurrentRegion.SpecialCells(xlVisible).Copy
ActiveSheet.AutoFilterMode = False
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "2nd Level Support"
Sheets("2nd Level Support").Activate
Range("A1").Select
ActiveSheet.Paste
End Sub
Das Makro funktioniert auch einwandfrei, aber ich bekomme immer folgende Fehlermeldung: "Laufzeitfehler '1004': Die Paste-Methode des Worksheet-Objektes konnte nicht ausgeführt werden." Beim Klick auf Debuggen wird die letzte Zeile, also "ActiveSheet.Paste" markiert.
Wieso kommt es zu der Fehlermeldung wenn doch alles ordnungsgemäß kopiert wurde, und wie bekomm ich die Meldung weg?
Vielen Dank schonmal...
Gruß, Dominik
Anzeige