Gleiche Tabellen zusammenführen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Gleiche Tabellen zusammenführen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

N3O
Newbie
Newbie

Anmeldedatum: 20.05.2008
Beiträge: 19

Verfasst am: 26.05.2008, 10:15

Hallo zusammen,

Ich hab da mal wieder ein kleines Problem! Ich möchte Tabellen mit gleichem Inhalt (Tabellenkopf) in einer Tabelle zusammenführen.

Ein einfaches Beispiel hierführ habe ich angehängt (Tabelle 1 und 2 = Quelltabelle, Tabelle 3 = Zieltabelle)

Das Makro sollte unabhängig von Zellenbezügen der zu kopierenden Daten sein da Tabelle 1 und 2 stetig wachsen.

Danke vorab für eure kompetente Hilfe!

LG, N3O

PS: Wäre super wenn der oder die Antwortgebende den Code ein wenig aufschlüsseln könnte.

Tabellen zusammenführen.xls

Beschreibung:

Download

Dateiname:

Tabellen zusammenführen.xls

Dateigröße:

25 KB

Heruntergeladen:

53 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 26.05.2008, 12:04

Hallo!

Würde dir auch diese Formel in Tabelle3!A2 helfen?

=WENN(ZEILE(A1)>ANZAHL2(Tabelle1!A:A)-1;INDEX(Tabelle2!A$2:A$1000;ZEILE(A1)-ANZAHL2(Tabelle1!A:A)+1);Tabelle1!A2)

Du kannst sie nach unten und nach rechts ausfüllen.

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

N3O
Newbie
Newbie

Anmeldedatum: 20.05.2008
Beiträge: 19

Verfasst am: 26.05.2008, 12:47

Hallo Schatzi,

danke für deine Antwort. Für zwei Tabellen ist diese Formel anwendbar, aber wie siehts mit 3,4 ...oder am Ende gar 10 Tabellen aus? Da ist diese Formel nicht geeignet (Ich kann sie jedenfalls nicht anpassen!).

Schade ist auch das beim Anhängen von Tabelle 2 ein Zellenbereich definiert wird (Scheint aber mit der Formel notwendig zu sein da sonst der Tabellenkopf kopiert wird).

Grundsätzlich bin ich gegen Formeln nicht abgeneigt aber in diesem Fall fände ich es schön wenn das über VBA machbar wäre.

LG, N3O

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 26.05.2008, 13:00

Hallo!

Dieser Code kopiert die ersten neun Blätter untereinander ins zehnte. Die Überschriften müssen im zehnten Blatt bereits vorhanden sein.

Code:

Sub AlleInEins()
Dim Letzte As Long, i As Integer
Sheets(10).Range("2:65536").ClearContents
For i = 1 To 9
Letzte = Sheets(10).Range("A65536").End(xlUp).Row + 1
Sheets(i).Range("A2").CurrentRegion.Offset(1, 0).Copy Sheets(10).Cells(Letzte, 1)
Next i
End Sub

N3O
Newbie
Newbie

Anmeldedatum: 20.05.2008
Beiträge: 19

Verfasst am: 26.05.2008, 14:17

Hallo Schatzi,

danke für deine Antwort Smile

. Klappt soweit schonmal super!
Jetzt hab ich vorläufig noch ein letztes Problem: Anstatt For i = 1 To 3 möchte ich die Tabellen 1-3 (Bsp.: Anna, Otto und Frank) bennen. Hab ein wenig rumprobiert komme aber nicht drauf!

Code:

Sub AlleInEins()

Dim Letzte As Long, i As Integer
Sheets("Sammel").Range("2:65536").ClearContents
For i = 1 To 3
Letzte = Sheets("Sammel").Range("A65536").End(xlUp).Row + 1
Sheets(i).Range("A2").CurrentRegion.Offset(1, 0).Copy Sheets("Sammel").Cells(Letzte, 1)
Next i

End Sub

LG, N3O

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 26.05.2008, 14:29

Hallo!

Vielleicht so?

Code:

Sub AlleInEins()
Dim Letzte As Long, ws As Worksheet
Sheets("Sammel").Range("2:65536").ClearContents
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Anna", "Otto", "Frank"
Letzte = Sheets("Sammel").Range("A65536").End(xlUp).Row + 1
ws.Range("A2").CurrentRegion.Offset(1, 0).Copy Sheets("Sammel").Cells(Letzte, 1)
End Select
Next ws
End Sub

N3O
Newbie
Newbie

Anmeldedatum: 20.05.2008
Beiträge: 19

Verfasst am: 27.05.2008, 06:26

Hallo Schatzi,

Danke für deine Hilfe. Klappt super! Very Happy

LG, N3O

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Umlauf um Tabellen nur wie?	Blaui	Microsoft Word Hilfe	4	25.11.2008, 11:36
	Werte aus zwei Tabellen zusammenführen	bettenjagd	Microsoft Excel Hilfe	1	24.11.2008, 10:58
	Tabellen vergleich	crudi	Microsoft Access Hilfe	1	17.11.2008, 10:59
	Sehr komplexes Thema!! Verknüpfung d...	wowa	Microsoft Excel Hilfe	1	14.11.2008, 10:12
	Maximale Anzahl der Zeilen bei Pivot ...	McPilsbier	Microsoft Excel Hilfe	1	05.11.2008, 13:55

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de