Code-Optimierung (@Marc: bis hierher vielen Dank)
Bibo
der in der in der beigefügten Mappe beinhaltete, mit umfassender und unverzichtbarer Hilfe von Marc erstellte Code, den ich im Rahmen meiner beschränkten Möglichkeiten noch etwas anzupassen versucht habe, macht im Ergebnis all das, was er auch machen soll.
Ich befinde mich noch ganz am Anfang des Einstiegs in VBA und habe deshalb wie allerorten als unverzichtbar beschworen nachträglich die verwendeten Variablen deklariert und dimensioniert und dabei festgestellt, dass die Dimensionierung der Variable kopf as String oder auch as Integer zu Problemen führt, da in Zeile 30 .Range("A" & einfüg) = kopf(0) 'Kopf einfügen bei kopf ein Datenfeld erwartet wird.
Wie ist das zu erklären?
Die Sortierung im Blatt Output hat zunächst auch zu Problemen geführt. Bei Aufruf der Prozedur aufbereiten aus dem Blatt Input oder direkt aus dem VBA-Editor hat es verblüffender Weise geklappt, nicht aber aus dem Blatt Output, bis ich erkannt habe, dass dieses Blatt im (ursprünglichen) Code nicht zum activesheet wurde. Habe das Problem dann mit dem verpönten .activate unelegant gelöst.
Kann bitte einer der VBA-Profis unter Euch mal drübergucken, was da im Sinne einer sauberen Struktur des Codes da noch alles zu optimieren wäre? Wäre sehr dankbar, wenn mich jemand auf den richtigen Weg führen könnte.
Nochmals ganz herzlichen Dank für die bisherige Hilfe an Marc, der mir dieses Ergebnis überhaupt erst ermöglicht hat und jetzt hoffentlich nicht sauer ist.
https://www.herber.de/bbs/user/77318.xls
Mit freundlichem Gruß
Bibo