Okay ich habe inzwischen den Fehler oben gefunden. ist scheinbar eine Versionssache von Excel. ich habe bei
.Sort.SortFields.Add2
einfach die 2 hinter Add weg gelassen. nun funktioniert der teil.
Habe allerdings einen Fehler beim zweiten Schleifendurchlauf vonder zeile 69:
.Rows(i + 1).Insert xlDown
hier kommt folgenede Fehlermeldung:
Laufzeitfehler '1004':
Das wir nicht funktionieren, weil dadurch Zellen in einer Tabelle in Ihrem Arbeitsblatt verschoen würden.
Ich versuche schon seit einer Weile der Ursache auf den Grund zu gehen.
MfG Guest4747
|