Office: Zwei Tabellen untereinander kopieren

Hallo zusammen,

trotz vieler Bespiele im Netz konnte ich folgendes Problem bis dato leider nicht allein lösen:

die Inhalte zweiter Tabellenreiter (1A + 1B) mit identischem Spaltenaufbau, aber unterschiedlichen, variablen bzw. dynamischen Zeilen sollen in den Reiter "Gesamt" kopiert werden (Übertragung der Werte, da Verknüpfungen in 1A und 1B in anderen Dateien hinterlegt sind).

Den missglückten Code habe ich erst mal wieder rausgenommen. Die Datei ist vollständig anonymisiert und sieht daher derzeit sehr baufällig aus (das Original ist ein bisschen aussagekräftiger).

Wie gesagt: Wunsch ist, per VBA die Bereiche A2-K[variables Tabellenende] aus den Reitern 1A und 1B nach Gesamt zu kopieren. Dies sollte idealerweise ohne Button klappen, sondern z.B. beim Start automatisch ausgeführt werden. Die Daten aus 1A und 1B werden über externe Verlinkungen eingespeist.

Vielen Dank für den Support.
Beste Grüße,
Hans

:)

 

warum nicht einfach markieren, Strg+c und in Zieltabelle Strg+V.
das kann man auch mit Makrorecorder aufzeichnen.
Letzte Zeile
' letzte belegte Zeile unabhängig von Excelversion für Spalte A (1)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)

 

Danke für den Tipp,

ich habe auch schön über den Makrorecorder nachgedacht.
Was meine Probleme sind, ist dass ich

a) immer genau den gesamten, aber variablen Tabellenbereich zu markieren und zu kopieren (Copy Paste kopiert ja nur einen definierten Bereich oder?)

--> löst der gesendete Codeschnippsel dieses Problem?

b) Identifikation der ersten freien Zeile für die zweite einzufügende Tabelle

--> das wäre vermutlich irgendwas in die Richtung "Lastrow + 1", oder?

Wie unschwer erkennbar ist, habe ich da noch ein bisschen Umsetzungsprobleme als VBA-Rookie.

Abermals besten Dank

 

1 mein Vorschlag möchtest Du also nicht umsetzen. Du kennst Dich ja mit VBA aus. Da Du schon programmiert hast.
2 keine Ahnung was Lastrow ist ich hätte Loletzte+1 genommen.

Ich bin dann raus, da mein Vorschlag nicht mehr relevant.

 

Hallo Hans,

ich versuche dir morgen zu helfen, falls dir bis dahin kein anderer eine Lösung anbieten konnte.

 

Hallo Hans,
probier's mal so:
Code:

 

Sorry,
wer lesen kann ist klar im Vorteil *rolleyes.gif*
Du wolltest ja die reinen Werte kopieren.
Plus kleiner nicht unwichtiger Korrektur, dann bitte so:
Code:

 

Guten Morgen zusammen,

ich habe gestern leider keine Zeit mehr gehabt, um mich rechtzeitig zu bedanken.

@Hajo: es war bestimmt nicht ablehnend gemeint, ich hatte nur offensichtlich noch einige Schwierigkeiten, deinen Vorschlag umzusetzen.
Trotzdem nochmals vielen Dank.

@ Berni: Danke für das Angebot, ist dank Uwe nicht mehr erforderlich.

@ Uwe: Vielen Dank für die super Lösung, funktioniert genau so, wie es soll.

VG, Hans