Hallo, bitte um Hilfe bei folgendem Problem.
In der Zeile Columns("A:C").select bekomme ich den Fehler 1004.
Habe das Makro vorher so mit Recorder aufgezeichnet.
Was kann die Ursache sein?
Danke für eure Hilfe.
Gruß Hartmut
Sub Sammeldatei()
'Filter setzen auf "n"
ActiveSheet.Range("$A$1:$M$1000").AutoFilter Field:=7, Criteria1:="n"
ActiveSheet.Range("A1:H" & ActiveSheet.UsedRange.Rows.Count). _
SpecialCells(xlCellTypeVisible).Copy
Worksheets("Sammeldatei").Visible = True
Worksheets("Sammeldatei").Select
Worksheets("Sammeldatei").Range("A1").PasteSpecial xlValues
Application.CutCopyMode = False
'Übertrag für Sammeldatei vorbereiten
Columns("A:C").Select