verfaßt von manes 
, Köln, 22.06.2018, 11:59:31
Hallo
> Es soll dann in einer Übersichtstabelle alle Monate zusammen gefügt
> werden. Also einfach alle Daten der einzelnen Tabellen untereinander in der
> Übersichtstabelle.
Wenn ich das recht verstanden habe, soll doch das manuelle Kopieren der einzelnen Monatslisten in die Gesamtliste automatisiert werden.
Das könnte mit dem nachfolgenden Makro realisieren. Dabei wäre folgendes noch einzurichten:
Die einzelnen Monatstabellen müssen im Namen jeweils mit einem # beginnen und das Arbeitsblatt mit der Gesamtliste müsste den Namen Übersicht bekommen.
Das Makro:
Public Sub Sammeln()
Dim wsh As Worksheet
Dim r_Start As Range
Dim r_Monatsliste As Range
Set r_Start = Worksheets("Übersicht").Range("A2")
For Each wsh In ActiveWorkbook.Worksheets
If Left(wsh.Name, 1) = "#" Then
Set r_Monatsliste = wsh.Range("A1").CurrentRegion
Set r_Monatsliste = r_Monatsliste.Offset(1)
Set r_Monatsliste = r_Monatsliste.Resize(r_Monatsliste.Rows.Count - 1)
r_Monatsliste.Copy Destination:=r_Start
Set r_Start = r_Start.CurrentRegion
Set r_Start = r_Start.Offset(r_Start.Rows.Count)
Set r_Start = r_Start.Resize(1, 1)
End If
Next
End Sub
FFPX
Manes
--
Also wenn ich ehrlich sein sollte, müsste ich lügen!
gesamter Thread: