ich hoffe ihr könnt mir helfen, ich finde den Fehler nicht, aber in Zeile 3 des hier abgedrucken Codes bleibt das Makro stehen. Was muß ich verändern?
Selection.AutoFilter Field:=50, Criteria1:=""
LR1 = Cells(Rows.Count, 50).End(xlUp).Row 'last row in column AX
Columns("$AX$1:$AX$" & LR1).Select
Selection.Copy
Gruß,
Ellen