Office: Tabellen zusammenführen

Helfe beim Thema Tabellen zusammenführen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, benötige mal wieder Eure Hilfe. Habe eine Tabelle mit einem Tabellenblatt "Übersicht" hier möchte ich aus diversen Dateien (Ablage in einem... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Gerd2018, 31. August 2019.

Seite 1 von 5

GERD2018

Gerd2018

Tabellen zusammenführen

Hallo,

benötige mal wieder Eure Hilfe.
Habe eine Tabelle mit einem Tabellenblatt "Übersicht" hier möchte ich aus diversen Dateien (Ablage in einem bestimmten Ordner) immer das 1. Tabellenblatt kopieren und einfügen. Aus dem 2. Tabellenblatt möchte ich immer die Zeile 1 bis 16 in mein Tabellenblatt "Übersicht" -Beginn Zeile 19- übernehmen. Es sollen immer 2 Zeilen dazwischen liegen.
Schön wäre, wenn -siehe Anhang Tabelle Übersicht- alles automatisch zusammengerechnet wird.
Hoffe, das man meiner Schreiblogik folgen kann. Bin da manchmal etwas unbeholfen.

DANKE Gerd

:)

Gerd2018, 31. August 2019

#1
MASE

Mase

Hallo Gerd,

da mir noch nicht alle Randbedingungen klar sind, frage ich einfach nach:

a)

von Gerd

..Immer das erste Tabellenblatt kopieren und einfügen...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jedes neue Tabellenblatt hinter alle bestehenden Tabellenblätter in der
Zielmappe einfügen?

b)

Aus dem 2. Tabellenblatt möchte ich immer die Zeile 1 bis 16 in mein Tabellenblatt "Übersicht" -Beginn Zeile 19- übernehmen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aus Quellmappe:
Aus Blatt 2, die Zeilen 1-16 kopieren und in Zielmappe auf Blatt Übersicht, die letzte beschriebene Zeile finden, dazu 2 weitere Zeilen freilassen, dann einfügen?

c)

Schön wäre, wenn -siehe Anhang Tabelle Übersicht- alles automatisch zusammengerechnet wird.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da ich nicht wissen kann was zusammengezählt werden soll, hilft es, mir die Beispielmappe (mit Blatt1+Blatt2) zur Verfügung zu stellen.

Mase, 2. September 2019

#2
GERD2018

Gerd2018

Hallo Marco,

a = ja, b = ja (genau so hab ich mir das gedacht) und C = das sind immer die gleiche Tabelle wie in der Zielmappe Tabellenblatt Übersicht. Nur das hier in der bestehende Tabelle alle zusammengerechnet werden sollen.

DANKE und hoffe, es hilft Dir weiter.

GERD

Gerd2018, 2. September 2019

#3
GERD2018

Gerd2018

Tabellen zusammenführen

Hallo Marco,

schau mal ich habe Dir die Datei mal angehängt. Ist aber noch nicht fertig, soll zum Schluß bis Dezember gehen und der Stundenkontrolle dienen.

DANKE Gerd

Gerd2018, 2. September 2019

#4
MASE

Mase

Hi Gerd,

anbei die Liste zurück.

Hinweis:
Bevor Du loslegst, pack diese Liste in einen Ordner mit einer Testdatei, anschließend einfach mal den Button Zusammenfügen anklicken.

Hier der Code, sodass die Liste nicht zwingend runtergeladen und aufgemacht werden muss.

Code:

Option Explicit
Const m_sWkbZiel As String = "Übernahme_Testkalender.xlsm"
Const m_sWksZiel As String = "Übersicht"
Const m_sWksQuelle As String = "Übersicht"

Sub CopyWksAndÜbersicht()
Dim wkbQuelle As Workbook, wkbZiel As Workbook
Dim wksZiel As Worksheet
Dim rngQuelle As Range, rngZiel As Range
Dim lngRow As Long
Dim sDatei As String
'
On Error GoTo err
'
Call TurnOffFunctionality
'
Set wkbZiel = Workbooks(m_sWkbZiel)
Set wksZiel = wkbZiel.Worksheets(m_sWksZiel)
'
ChDir (ThisWorkbook.Path)
sDatei = Dir(ThisWorkbook.Path & Application.PathSeparator & "*.xlsm")
'
While sDatei vbNullString And sDatei ThisWorkbook.Name
Set wkbQuelle = Workbooks.Open(sDatei)
'1.Tabelle kopieren
wkbQuelle.Worksheets(1).Copy after:=wkbZiel.Worksheets(wkbZiel.Worksheets.Count)
'Übersicht kopieren
With wksZiel
Set rngZiel = .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 3, 1)
Set rngQuelle = wkbQuelle.Worksheets(m_sWksQuelle).UsedRange
rngQuelle.Copy
rngZiel.PasteSpecial xlPasteAllUsingSourceTheme
rngZiel.PasteSpecial xlPasteValuesAndNumberFormats
End With

sDatei = Dir
Wend
'
err:
If err.Number 0 Then
MsgBox err.Number & vbCrLf & err.Description, vbCritical + vbOKOnly, "Autor informiert:"
End If
'
Call TurnOnFunctionality
Set rngQuelle = Nothing: Set rngZiel = Nothing: Set wksZiel = Nothing: Set wkbZiel = Nothing: Set wkbQuelle = Nothing
End Sub

Public Sub TurnOffFunctionality()
Application.Calculation = xlCalculationManual
Application.DisplayStatusBar = False
Application.EnableEvents = False
Application.ScreenUpdating = False
End Sub
Public Sub TurnOnFunctionality()
Application.Calculation = xlCalculationAutomatic
Application.DisplayStatusBar = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Feedback erwünscht.
Wie? Links das mittlere Symbol .

Meld Dich wenn noch etwas unklar sein/nicht funktionieren sollte.

Mase, 2. September 2019

#5
GERD2018

Gerd2018

Hallo Marco,

muss gleich nach Köln zum Lehrgang, schau mir das nächste Woche an.
Aber schon einmal …. vielen DANKE für Deine Hilfe.

BG Gerd

Gerd2018, 2. September 2019

#6
GERD2018

Gerd2018

Hallo Marco,

wenn ich Direkt Antworte bekommst Du da eine Info oder wie kann ich Dich nächste Woche erreichen.

BG Gerd

Gerd2018, 2. September 2019

#7
MASE

Mase

Tabellen zusammenführen

Moin Gerd,

einfach hier antworten, bekomme das dann mit.

Mase, 2. September 2019

#8
GERD2018

Gerd2018

Hallo Marco,

sieht ganz gut aus, sind nur ein paar kleine Sachen.

1. Hab Dir eine Datei angehängt, das fragt er mich bei jeder Datei die er einspielt/ausliest und nach dem einspielen sind diese geöffnet.

2. Da ich das jeden Monat mache, müssten vorher alle Tabellenblätter - außer Übersicht- gelöscht werden. Das hab ich vergessen zu sagen.

3. Das gilt auch für alles was in Tabellenblatt "Übersicht" eingefügt wurde.

4. Wenn alle Tabellenblätte 2 in Übertsicht eingespielt wurden, soll oben in Tabelle Übersicht-Gesamt die Summe aus allen anderen Übersicht... stehen.

DANKE Gerd

Gerd2018, 8. September 2019

#9
MASE

Mase

Hi Gerd,

zu 2 und 3)
Warum nicht einen Ordner als Vorlage verwenden und diesen Ordner je Monat kopieren?

Wenn Januar vorbei, belasse alle Dateien im Ordner Januar, kopiere den Vorlageordner und benenne diesen zu Februar um.

Mase, 9. September 2019

#10
MASE

Mase

zu 1)
In Deiner Datei 'Test Thomas.xlsm' ist eine Verknüpfung zu 'Tätigkeitsbericht 2019_Test.xlsx' im Tabellenblatt 'Test Thomas' hinterlegt. Diese wird mitkopiert und führt zu diesen Abfragen.

Wenn dies nicht benötigt wird, dann einfach per Hand löschen.
Wenn Du via VBA löschen möchtest, hier eine Möglichkeit dazu:
Code:

Sub BreakExLinks()
Dim varExLinks() As Variant
Dim wkb As Workbook
Dim x As Long
'
Set wkb = Application.Workbooks(m_sWkbZiel)
'
With wkb
If IsEmpty(.LinkSources(Type:=xlLinkTypeExcelLinks)) Then Exit Sub
varExLinks = .LinkSources(Type:=xlLinkTypeExcelLinks)
For x = 1 To UBound(varExLinks)
.BreakLink Name:=varExLinks(x), Type:=xlLinkTypeExcelLinks
Next x
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mase, 9. September 2019

#11
GERD2018

Gerd2018

Hallo Marco,

derzeit ist ein großes Thema Digitalisierung …. und ich kann jetzt schon sagen was wir die nächsten Jahr machen. Wir sprechen über Datenmüll, Du weist was ich meine. Deshalb ist es schöner, wenn alles gelöscht und neu verarbeitet wird.

DANKE Gerd

Gerd2018, 9. September 2019

#12
GERD2018

Gerd2018

Tabellen zusammenführen

Hallo Marco,

die Verknüpfung habe ich einfach gelöscht -wie Du gesagt hast- und es geht.

Jetzt wäre schön, wenn das mit der Summe noch funktioniert,das mit dem löschen und wenn die Dateien die er einspielt geschlossen werden.

DANKE Gerd

Gerd2018, 9. September 2019

#13
MASE

Mase

Hi Gerd,

zum Thema Datei schließen:
Code:

Option Explicit
Const m_sWkbZiel As String = "Übernahme_Testkalender.xlsm"
Const m_sWksZiel As String = "Übersicht"
Const m_sWksQuelle As String = "Übersicht"

Sub CopyWksAndÜbersicht()
Dim wkbQuelle As Workbook, wkbZiel As Workbook
Dim wksZiel As Worksheet
Dim rngQuelle As Range, rngZiel As Range
Dim lngRow As Long
Dim sDatei As String
'
On Error GoTo err
'
Call TurnOffFunctionality
'
Set wkbZiel = Workbooks(m_sWkbZiel)
Set wksZiel = wkbZiel.Worksheets(m_sWksZiel)
'
ChDir (ThisWorkbook.Path)
sDatei = Dir(ThisWorkbook.Path & Application.PathSeparator & "*.xlsm")
'
While sDatei vbNullString And sDatei ThisWorkbook.Name
Set wkbQuelle = Workbooks.Open(sDatei)
'1.Tabelle kopieren
wkbQuelle.Worksheets(1).Copy after:=wkbZiel.Worksheets(wkbZiel.Worksheets.Count)
'Übersicht kopieren
With wksZiel
Set rngZiel = .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 3, 1)
Set rngQuelle = wkbQuelle.Worksheets(m_sWksQuelle).UsedRange
rngQuelle.Copy
rngZiel.PasteSpecial xlPasteAllUsingSourceTheme
rngZiel.PasteSpecial xlPasteValuesAndNumberFormats
End With
wkbQuelle.close False

sDatei = Dir
Wend
'
err:
If err.Number 0 Then
MsgBox err.Number & vbCrLf & err.Description, vbCritical + vbOKOnly, "Autor informiert:"
End If
'
Call TurnOnFunctionality
Set rngQuelle = Nothing: Set rngZiel = Nothing: Set wksZiel = Nothing: Set wkbZiel = Nothing: Set wkbQuelle = Nothing
End Sub

Public Sub TurnOffFunctionality()
Application.Calculation = xlCalculationManual
Application.DisplayStatusBar = False
Application.EnableEvents = False
Application.ScreenUpdating = False
End Sub
Public Sub TurnOnFunctionality()
Application.Calculation = xlCalculationAutomatic
Application.DisplayStatusBar = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mase, 9. September 2019

#14
GERD2018

Gerd2018

Hallo Marco,

habe Dein Makro entsprechend hinterlegt und beim Start sagt er "9 Index außerhalb des Bereichs". Hab ich was falsch gemacht?

DANKE Gerd

Gerd2018, 9. September 2019

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 5

Thema:

Tabellen zusammenführen

Die Seite wird geladen...

Tabellen zusammenführen - Similar Threads - Tabellen zusammenführen
mehrere Excel-Tabellen in eine große Tabelle zusammenführen
in Microsoft Excel Hilfe
mehrere Excel-Tabellen in eine große Tabelle zusammenführen: Hallo, ich habe folgendes Problem: Ich würde gerne mehrere Excel-Tabellen in eine große Tabelle zusammenführen. Es handelt sich um eine Punkterangliste mit mehreren tausend Namen. Grundsätzlich...
Tabellenübersicht aus mehreren Tabellen nach Datum sortieren
in Microsoft Excel Hilfe
Tabellenübersicht aus mehreren Tabellen nach Datum sortieren: Hallo, ich habe eine Tabelle für die Autowartung erstellt und möchte nun eine Übersichtseite als "Deckblatt" erstellen auf dem man alle wichtigen Daten sehen kann. Es gibt für alles auf einem...
VBA - Zwei Tabellen anhand ID zusammenfügen
in Microsoft Excel Hilfe
VBA - Zwei Tabellen anhand ID zusammenfügen: Hallo zusammen, ich habe folgendes Problem: Es gibt eine „Mutterliste“ mit Bezeichnungen, ID und Status. Die „Kinderlisten“ haben in unterschiedlicher Reihenfolge die selben IDs aber...
Zusammenführen zweier Tabellen und automatisches Markieren von Werten
in Microsoft Excel Hilfe
Zusammenführen zweier Tabellen und automatisches Markieren von Werten: Guten Tag, an meiner Schule haben wir ein Problem - vorab schon vielen Dank für eure Hilfe: Tabelle 1: Anwesenheitsliste * Ich kann eine Liste aller Schüler bzgl. ihrer An-. und Abwesenheit...
Zusammenführen von zwei oder mehr Tabellen
in Microsoft Excel Tutorials
Zusammenführen von zwei oder mehr Tabellen: Zusammenführen von zwei oder mehr Tabellen Excel für Microsoft 365 Excel 2019 Excel 2016 Excel 2013 Mehr... Weniger...
Excel Tabelle zusammenführen
in Microsoft Excel Hilfe
Excel Tabelle zusammenführen: Hallo zsm., ich möchte, wie ganz rechts in der Tabelle, die ganzen Felder zusammenführen. Überschrift : getrennt und dann die jeweilig Zeile. Das wäre ja eine "reines Fleiß" abtippen, doch was...
Zwei Tabellen mit Hilfe von ID-Nummern zusammenführen?
in Microsoft Excel Hilfe
Zwei Tabellen mit Hilfe von ID-Nummern zusammenführen?: Hallo! Vielleicht kann mir jemand Kundiges hier im Forum zu folgendem Problem eine Lösung anbieten ....? Ich erhalte jeden Monat von einem Obst-/Gemüselieferanten eine Preisliste mit über 100...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden