Schau dir mal die Excel-Funktion SVERWEIS an

Wie viel Code hast du den schon?
Ich würde in etwa diesen Ansatz versuchen:

Hallo Doc

ich habe gerade solch einen Code gebaut. Vielleicht hilft er weiter. Er kopiert die Daten der einzelnen Blätter untereinander ins erste Tabellenblatt. Das kann sicher abgeändert werden auf eine seitliche Verschiebung. Weiter müsste bei jedem For Step ein Sortieren der eingefügten Daten durchgeführt werden. Dann könnte auch das Durcheinander gelöst werden.

Sub Tabellenblaetter_zusammenfuehren()

Dim iZeile As Integer
Dim i As Integer
Dim s As Integer
Dim z As Integer

Range("A1").Select
Cells.Select

Application.ScreenUpdating = False
Application.DisplayAlerts = False

' Anzahl Schritte für die "For" Schleife zählen (Anzahl Tabellenblätter minus 1)

For Each Sheet In Sheets
s = s + 1
Next
s = s - 1

' Tabellenblätter an erstes Tabellenblatt anhängen

z = 1

For i = 1 To s

Sheets(Worksheets(ActiveWorkbook.ActiveSheet.Index + z).Name).Select
Range("A1:B47").Select
Selection.Copy
Sheets(Worksheets(ActiveWorkbook.ActiveSheet.Index - z).Name).Select
Range("A1").Select
iZeile = Selection.End(xlDown).Row + 1
Cells(iZeile, 2).Select
ActiveSheet.Paste

z = z + 1

Next

Range("A1").Select

' Warnmeldungen wieder einschalten

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Freundlichen Gruss

Urs Schmid

urs_a_schmid schrieb:

Sheets(Worksheets(ActiveWorkbook.ActiveSheet.Index + z).Name).Select
Range("A1:B47").Select
Selection.Copy
Sheets(Worksheets(ActiveWorkbook.ActiveSheet.Index - z).Name).Select
Range("A1").Select
iZeile = Selection.End(xlDown).Row + 1
Cells(iZeile, 2).Select
ActiveSheet.Paste

Aua.
Das tut richtig weh.
Da sind so ziemlich alle Faux-Pas in wenigen Zeilen vereinigt.
.Select / Selection.
.Copy / .Paste
ActiveWorkbook / ActiveSheet
sind alles Objekte und Methoden, die in einem gesunden Code nichts zu suchen haben.
So sieht nur Code aus, der aus dem Macro-Recorder blind kopiert wird.


@Docviper:
Der Code ist so gut wie fertig und muss nur noch kopiert werden.
Lege ein Sheet Summary an und kopiere in Spalte 1 alle Bezeichnungen die in den anderen Sheets in Spalte 1 vorkommen.
Den Code kannst du an fast beliebiger Stelle platzieren. Leg ihn am besten auch in Summary.
Einen Rahmen mit Sub / End Sub drum herum wirst du ja wohl noch selbst schreiben können.
Einmal ausführen. Fertig.

Wenn du es noch etwas dynamischer haben willst kannst du auch die erste Spalte zur Laufzeit erzeugen.
Der Tipp wäre hier .Find
aber am besten kriegst du erst mal diesen Code zum Laufen.
In den 11 Zeilen ist alles enthalten, was du brauchst.

Hallo Petaod

Dein Code ist natürlich das gelbe vom Ei und ich bin meilenweit davon entfernt solchen Code zu schreiben.

Aber es ist so wie ein mir bekannter Chinese mal gesagt hat, es spielt keine Rolle wie man die Stäbchen hält. Das einzige Ziel ist es das Essen vom Teller in den Mund zu bekommen .

So verhält es sich auch bei einem Code. Er kann noch so schlecht aussehen oder so miserabel programmiert sein, Hauptsache er tut seinen Dienst und macht das was man machen möchte.

Freundliche Grüsse

Urs Schmid

Dein Code ist natürlich das gelbe vom Ei

Aber nein doch.
Das ist nur eine Code-Skizze, die nicht mal getestet ist.
Der Code soll nur einen Weg aufzeigen, wie es gehen könnte.

So verhält es sich auch bei einem Code. Er kann noch so schlecht aussehen oder so miserabel programmiert sein, Hauptsache er tut seinen Dienst und macht das was man machen möchte.

Die Optik ist auch einigermassen egal, solange es sich um Code handelt, den kein anderer in die Hand nehmen muss.

Meist hat es seinen Grund, wenn man von schlechtem Code spricht:
Er läuft nicht in allen Fällen fehlerfrei.

Vielleicht stört dich die schlechte Performance durch die ewige Arbeitsblattumschalterei nicht.
Du solltest dennoch wissen, was du Excel dabei zumutest.

Aber das Copy/Paste ist ein echtes KO-Kriterium.
Lass das Script mal im Hintergrund laufen und mache in einer anderen Anwendung manuelle Copy/Paste-Vorgänge, dann siehst du, wie sie sich ins Gehege kommen.

Oder, noch besser, lass zwei solcher Macros parallel laufen.
Die werfen sich gegenseitig ihre Daten zu, dass kein Stein auf dem anderen bleibt.

Wenn du auf chinesische Sprichwörter stehst, hätte ich auch noch eines:

Wer einen Fehler gemacht hat und ihn nicht korrigiert, begeht einen zweiten.
(Konfuzius)

;)

Danke für die Aufklärung.



Grüsse

Urs