Tabellen über Makro zusammenführen

Ich hab ein Problem mit Excel 2010 bzw einem Makro wo ich keine Ahnung habe das zu realisieren.
Es geht darum dass ich in einem Excelfile zwei Tabellen habe die wöchentlich upgedatet werden.
Damit ich mit den Daten arbeiten kann müssen diese beiden Tabellen in einer bestehenden dritten (final data) zusammengefasst werden.
Die erste Zeile (Überschrift) darf nicht übertragen werden.
Die erste Tabelle (dev data) hat die Spalten A-R befüllt
Die zweite Tabelle (inv data) die Spalten A-J
Die Zugehörigkeit der jeweiligen Zeilen in den beiden Tabellen ist über eine Nummer gegeben.
Diese Nummer ist in dev data in Spalte A
In inv data in Spalte B
Wenn die beiden Tabellen zusammengeführt wurden (also Zeile für Zeile) brauche ich jedoch zwischen den beiden Tabellen eine Spalte abstand.
Ab Spalte AA in der dritten Tabelle (final data) sind Formeln hinterlegt die auf die Daten der anderen Spalten zugreifen.
Ich kenn mich mit Makros absolut Null aus denke aber dass dies mit einem Makro am einfachsten zu erfüllen ist.
Kann mir da jemand von euch helfen?
Lg
phil

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Klärungsbedarf

14.06.2016 08:49:39

MB12

AW: Tabellen über Makro zusammenführen

14.06.2016 13:30:07

Philipp

@alle: INDEX VERGLEICH oder VBA?

14.06.2016 14:37:31

MB12

Mit VBA...

14.06.2016 16:37:26

Michael

AW: Mit VBA...

15.06.2016 10:50:52

Philipp

AW: Mit VBA...

15.06.2016 11:13:14

Philipp

Gern! LG und owT

15.06.2016 12:49:12

Michael

Hallo Philipp!
Test mal (auf Basis Deiner Bsp-Datei):
Code muss in ein allgemeines Modul (in der XL-Mappe Alt + F11 aufrufen, Einfügen - Modul, Code hineinkopieren)

Sub a()
'Daten aus 1. Quell-Blatt in Ziel-Blatt übertragen (nur Werte und Zahl-Formate)
'Daten aus 2. Quell-Blatt gemäß Identifikation (Spalte B) in Ziel-Blatt übertragen
'in passende Zeile zu den bereits kopierten Daten aus 1. Quell-Blatt
Dim Wb As Workbook
Dim WsQ1 As Worksheet
Dim rQ1 As Range
Dim WsQ2 As Worksheet
Dim WsZ As Worksheet
Dim rZ As Range
Dim f As Range
Dim fZ As Long
Dim clc
With Application
.ScreenUpdating = False
clc = .Calculation
.Calculation = xlCalculationManual
End With
Set Wb = ThisWorkbook
With Wb
Set WsQ1 = .Worksheets("dev data") '1. Quell-Blatt, ggf. anpassen
Set WsQ2 = .Worksheets("inv data") '2. Quell-Blatt, ggf. anpassen
Set WsZ = .Worksheets("final data") 'Ziel-Blatt, ggf. anpassen
End With
With WsQ1
Set rQ1 = .Range("A2:Q" & .Cells(.Rows.Count, 1).End(xlUp).Row)
rQ1.Copy
WsZ.Range("A2").PasteSpecial xlPasteValuesAndNumberFormats
End With
With WsQ2
For Each rZ In .Range("B2:B" & .Cells(.Rows.Count, 2).End(xlUp).Row)
With WsZ.Range("A2:A" & WsZ.Cells(WsZ.Rows.Count, 1).End(xlUp).Row)
Set f = .Find(rZ.Value, LookIn:=xlValues)
If Not f Is Nothing Then
fZ = f.Row
End If
End With
.Range("A" & rZ.Row & ":J" & rZ.Row).Copy
WsZ.Range("S" & fZ).PasteSpecial xlPasteValuesAndNumberFormats
Next rZ
End With
Set Wb = Nothing
Set WsQ1 = Nothing
Set rQ1 = Nothing
Set WsQ2 = Nothing
Set WsZ = Nothing
Set rZ = Nothing
Set f = Nothing
With Application
.ScreenUpdating = True
.Calculation = clc
End With
End Sub

Passt?
LG
Michael

Beliebteste Forumthreads (12 Monate)

Tabellen über Makro zusammenführen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

140 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellen über Makro zusammenführen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

140 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread