Anzeige
Archiv - Navigation
1360to1364
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Macro Daten a. versch.Tabellenbl. zusammenfügen

Macro Daten a. versch.Tabellenbl. zusammenfügen
11.05.2014 21:28:41
jeanny
Nabend zusammen,
ich habe eine Datei mit (in diesem Beispiel) 4 Tabellenblättern (Anzahl der Tabellenblätter ist fix). Alle Tabellen haben das "gleiche" Format. Nun möchte ich die Daten aus Tabellenblatt 2-4 unter dem Basistabellenblatt ergänzt haben. Die Anzahl der Datensätzen in allen vier Tabellen variert jedoch. Hier ein vereinfachtes Beispiel:
https://www.herber.de/bbs/user/90624.xlsx
Ich wäre euch für Lösungansätze sehr verbunden.
Gruss
jeanny

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Macro Daten a. versch.Tabellenbl. zusammenfügen
14.05.2014 00:14:33
fcs
Hallo Jeanny,
hier ein passendes Makro.
Gruß
Franz
'Makro in einem allgemeinen Modul
Sub HoleDaten_aus_Blatt_2_bis_4()
Dim wksZiel As Worksheet, Zeile_Z As Long
Dim wksQuelle As Worksheet, Zeile_Q As Long, rngQ As Range, intJ As Integer
'  Set wksZiel = ActiveWorkbook.Worksheets("Basistabelle")
Set wksZiel = ActiveWorkbook.Worksheets(1)
For intJ = 2 To 4
Set wksQuelle = ActiveWorkbook.Worksheets(intJ)
With wksQuelle
Zeile_Q = .Cells(.Rows.Count, 1).End(xlUp).Row
If Zeile_Q >= 2 Then
Set rngQ = .Range(.Rows(2), .Rows(Zeile_Q))
With wksZiel
Zeile_Z = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
rngQ.Copy Destination:=.Cells(Zeile_Z, 1)
End With
End If
End With
Next
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige