Excel Spalten Ermitteln und kopieren

[GMG-CC]

OK Daniel,

das sollte jetzt hinhauen.
Im Code habe ich 2 Tests eingebaut: 1 Fehler (wegen des Abbruchs) und 1 Mal die Reihenfolge der Suchstrings im Array vertauscht, damit klar ist, dass die endgültige Reihenfolge dennoch stimmt.

Die restlichen Kleinigkeiten wie AutoFit bei den Columns der Zieltabelle und eventuelle Formatierungen kannst du gewiss selber einbauen.

 

[theluda88]

Super!! Dankeschön!!
Geht 1A und macht genau das was ich mir vorgstellt habe. Daran hätte ich wahrscheinlich noch Wochen getüftelt.

Hab das ganze noch schnell ein wenig erweitert:

    Columns("A:A").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft

Einmal um die Leere bzw störende Spalte A zu löschen

    Cells.Select
    Selection.Columns.AutoFit

Und zum anderen um die Spaltenbreite anzupassen.

Nach der Morgenrunde geht es dann mal an die erweiterung der Suchbegriffe und ans komplett durchtesten.

Grüße
Daniel

 

[alxtraxxx]

... bei ca. 11.000 Zeilen ist das wirklich nicht gerade performant

Nuja, dann haben wir unterschiedlich starke Arbeitsrechner, ich habe in der Regel Listen mit im Schnitt vom 50.000 Datensätzen,
geht auch teilweise bis knapp ans Limit von Excel von knapp 1 Mio., da läuft das Spaltentauschen problemfrei