Tabellen zusammenführen

Hallo Zusammen,
eine Datei mit 7 Tabellenblättern, welche identisch aufgebaut sind, sollten in einem Tabellenblatt (Konsolidierung) untereinander gelistet werden.
Aus verschiedenen Foren habe ich versucht VBA-Codes zusammenzuführen, es gelingt mir leider nicht... eine passende Lösung mittels Formel gestaltet sich ebenfalls als schwierig. Könnt Ihr mir bitte helfen?
Folgende Wünsche hätte ich:
- die Formatierung in der Zieltabelle (Konsolidierung) sollte weggelassen werden;
- die Daten sollten in der Konsolidierung ab der Zelle A5 gelistet werden;
- in die Spalte A sollte den Namen der Quelltabelle geschrieben werden;
- die Konsolidierung sollte vielleicht mittels Button aktualisierbar sein;
- die Datei enthält noch zwei weitere Tabellenblätter welche beim Zusammenführen nicht berücksichtigt werden sollen.
Vielen Dank vorab für Eure Hilfe!
Mirjana

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
habe auch nach langer Suche und hin und her kopieren von Codeschnipsel mal was
zusammen gebastelt:

Sub Konsolidiere()
Dim wks As Worksheet
Dim wksK As Worksheet
Dim lngLetzteZeileKons As Long
Dim lngAbZeile As Long
Application.DisplayAlerts = False
On Error Resume Next
Set wksK = ActiveWorkbook.Worksheets("Zieltabelle") 'hier die Tabellennamen der Zieltabelle  _
angeben
wksK.Delete
On Error GoTo 0
Set wksK = Worksheets.Add(Before:=ActiveWorkbook.Sheets(1))
wksK.Name = "Zieltabelle" 'hier die Tabellennamen der Zieltabelle angeben
lngLetzteZeileKons = 4
For Each wks In Sheets(Array("Tabelle3", "Tabelle4")) 'hier die Tabellennamen eintragen welche  _
benötigt werden
If wks.Name  wksK.Name Then
lngAbZeile = lngLetzteZeileKons + 1
wks.Range(wks.Cells(1, 1), wks.Cells(wks.Cells.SpecialCells(xlCellTypeLastCell).Row, 254)). _
Copy _
Destination:=wksK.Cells(lngAbZeile, 2)
lngLetzteZeileKons = wksK.Cells.Find(What:="*", _
After:=wksK.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
wksK.Range(wksK.Cells(lngAbZeile, 1), wksK.Cells(lngLetzteZeileKons, 1)) = wks.Name
End If
Next
Application.DisplayAlerts = True
End Sub

Da ja Stundenlang keine Antwort gekommen ist, versuche ich es mal mit meiner Lösung welche sicherlich verbesserungswürdig sein wird, bin aber kein VBA Profi.
Hier noch meine Versuchsdatei:
https://www.herber.de/bbs/user/117321.xlsm
Hoffe ein wenig geholfen zu haben.
MfG Bernd

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread