ich habe folgendes Problem:
die Datenübergabe der mit Spezialfilter ausgewählten Daten funktioniert einwandfrei, solange die Arbeitsmappe nicht freigegeben ist. Nach erfolgter Freigabe bricht Excel die Verarbeitung mit Laufzeitfehler 1004 ab.
Private Sub Worksheet_Activate()
Sheets("Teilnehmer").Range("B6:AS8000"). _
AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Teilnehmer").Range("C1:G5"), _
CopyToRange:=Sheets("Druckdaten").Range("B1:AS52"), Unique:=False
End Sub
Ich benötige eine Lösung, die es mir erlaubt, obenstehende Anweisung in einer freigegebenen Arbeitsmappe zu nutzen.
Über geeignete Vorschläge freue ich mich sehr.
Mit vielem Dank für Eure Mühe verbleibe ich für heute
Hans-Dieter Friedrich