vielleicht kann sich mal jemand die Datei mit dem Makro ansehen.
Es wird Spalte B nach den verschiedenen Positionsnummern gefiltert - ein neues Blatt wird angelegt - Blattname die jeweilige Positionsnummer - das Filterergegnis wird ins neu angelegte Blatt nach A1 kopiert.
Im Ausgangsblatt habe ich in Spalte J eine Formel. Ist nur zu Testzwecken.
Für mich seltsam (kann mir das Verhalten nicht erklären) werden im ersten neu angelegten Blatt in Spalte J die Formeln übernommen - ist für mich auch logisch.
Bei den weiteren angelegten Blättern ist die Formel in Spalte J weg und es stehen die Festwerte drin. Ich kann mir nicht erklären warum.
Wenn ich beim Einfügen des Kopierbereichs über PasteSpecial Paste:=xlAll gehe, übrnimmt der Code die Formeln in alle Blätter.
Das sollte doch bei
With .AutoFilter.Range
.Copy Worksheets(strBlattname).Range("A1")
End With
eigentlich auch so sein.
Oder sehe ich vor lauter Bäumen den Wald nicht?
https://www.herber.de/bbs/user/139544.xlsm
Gruß Werner