AW: Tabellen zusammenführen Makro oder Formel oder...
13.05.2016 06:49:30
Werner
Hallo,
versuch mal folgenden Code:
Public Sub Zusammenführen()
Dim wsQuelle As Worksheet
Dim loQuelle As Long
Dim loZiel As Long
Application.ScreenUpdating = False
'** ermittelt die erste freite Zeile in Spalte A des Zielblattes ********
loZiel = Sheets("Zusammenfassung").Cells(Rows.Count, 1).End(xlUp).Row + 1
'** hier Blattname und Spalte an deine Bedürfnisse anpassen **************
If loZiel = 2 Then loZiel = 1
For Each wsQuelle In Sheets
If wsQuelle.Name "Zusammenfassung" Then 'Blattname anpassen
With wsQuelle
'** ermittelt die letzte belegte Zeile in Spalte A des jew. Quellblattes **
loQuelle = .Cells(Rows.Count, 1).End(xlUp).Row
'** hier die Spalte an deine Bedürfnisse anpassen**************************
'** kopiert von A1 bis J letzte belegte Zeile ****
.Range(.Cells(1, 1), .Cells(loQuelle, 10)).Copy
'** Bereich an deine Bedürfnisse anpassen ********
'** kopiert (nur Werte) nach Zusammenfassung A erste freie Zelle
Sheets("Zusammenfassung").Cells(loZiel, 1).PasteSpecial xlValues 'Blattname anpassen
'** Zielspalte an deine Bedürfnisse anpassen *******************
loZiel = Sheets("Zusammenfassung").Cells(Rows.Count, 1).End(xlUp).Row + 1
End With
End If
Next wsQuelle
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Gruß Werner