Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1492to1496
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

Tabellen zusammenführen Makro oder Formel oder...

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...

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

Betreff
Datum
Anwender
Anzeige
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

Anzeige
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.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige