Clever-Excel-Forum

Hallo,

ich bin neu hier und hoffe sehr, dass mir jemand helfen kann!

Folgendes: Eine Assistenz hat eine Arbeitsmappe für mich erstellt, mit vielen Blättern (ca. 200). Leider sind die Spalten wirr angeordnet und ich habe auf Blatt 1 nun die Spalten in die richtige Reihenfolge gebracht. Wie übertrage ich diese Anordnung nun auf die anderen Blätter, natürlich inklusive der zugehörigen Daten? Bei 200 Blättern möchte ich nicht jedes einzeln neu ordnen müssen.

Vielen Dank für Eure Ideen!

Lg Sorceressa

Zitat:Blättern (ca. 200).

Klingt eher nach der Notwendigkeit die Daten auf einem Blatt zusammen zufassen.
Stell bitte eine Bsp.Datei mit drei Blättern zur Verfügung. (Aufbau wie im Original, Daten anonym).

Gruß Elex

Nun, die Blätter zusammenzufassen geht leider nicht, ist auf jedem Blatt ein Kunde, die sollen nicht durchmischt werden.

Beispieldatei ist dabei.

Die Spalten sind in der Reihenfolge A, D, C, B. Wie bekomme ich auf jedem Blatt A, B, C, D, ohne das auf jedem Blatt einzeln verschieben zu müssen?

hier das Beispiel

Moin

Durchmischen! Jetzt!

"Don't split your records into several tabs."
Cristiano Galvão
Aus https://www.mrexcel.com/excel-tips/downl...d-objects/

Zitat:Nun, die Blätter zusammenzufassen geht leider nicht, ist auf jedem Blatt ein Kunde, die sollen nicht durchmischt werden.

Naja, wenn du Dir sicher bist das es so sein soll.

Für deine Bsp.Datei den Code in ein allgemeines Modul und einmal starten.
Es werden alle Blätter bearbeitet. Sollte Blatt 1 schon sortiert sein starte die Schleife mit 2.
For j = 2 to Sheets.Count

Code:
Public Sub SortS()

Dim j As Long

For j = 1 To Sheets.Count

 Sheets(j).Columns("D:D").Copy Sheets(j).Columns("F:F")

 Sheets(j).Columns("C:C").Copy Sheets(j).Columns("G:G")

 Sheets(j).Columns("C:D").Delete Shift:=xlToLeft

Next j

End Sub

Vielen Dank, ich habe das Problem lösen können. Es geht einfacher.

Alle Blätter markieren - Änderungen vom ersten werden auf alle anderen übertragen. Mehr wollte ich ja gar nicht. Voraussetzung ist nur, dass alle Blätter vom Layout gleich sind.

Sorceressa

Elex

Sorceressa

shift-del

Elex

Sorceressa