Tabellen zusammenführen Makro oder Formel oder...

Forumthread: Tabellen zusammenführen Makro oder Formel oder...

13.05.2016 05:15:49

Sdravi

Hy
habe 5 Mappen und eine Hauptmappe
In den den 5 Mappen sind Einträge manchmal bis
Zeile 10 manchmal bis Zeile 17 usw also immer
unterschiedlich.
Ich möchte jetzt alle Einträge aus Mappe1 in die Hauptmappe kopieren
wenn die Einträge z.B bei Zeile 13 aufhören dann soll mit Mappe 2 weiter gemacht werden,
dann mit Mappe 3 usw...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

AW: Tabellen zusammenführen Makro oder Formel oder...

18.05.2016 22:00:33

Sdravi

Hy, Sorry musste das Projekt verschieben werd mich morgen
drum kümmern, gebe dir dann das Feedback dazu.

Beliebteste Forumthreads (12 Monate)

Tabellen zusammenführen Makro oder Formel oder...

Forumthread: Tabellen zusammenführen Makro oder Formel oder...

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Tabellen zusammenführen Makro oder Formel oder...

Forumthread: Tabellen zusammenführen Makro oder Formel oder...

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread