Kopieren von Bereichen

Hallo!
Leider komme ich mit einer Herausforderung nicht wirklich weiter. Folgende Situation:
Ich habe eine Arbeitsmappe mit - sagen wir - 10 Tabellenblättern, die unter anderem der Eingabe von geplanten Investitionen dienen. Auf jedem dieser Tabellenblättern erfassen die Verantwortlichen in definierten Bereichen (Bereichsnamen CAPEX_xxx) eben ihre Investitionen in diesem Jahr.
Nun möchte ich mittels Makro mir diese 10 definierten Bereichsnamen auf ein "Sammel"-Tabellenblatt holen/kopieren, um weiterführende Auswertungen zu tätigen. Klar könnte ich ein Makro schreiben, in dem ich 10 mal den Befehl kopieren/einfügen mit den 10 unterschiedlichen Bereichsnamen habe. Jedoch könnten sich diese Bereichsnamen ändern/ergänzen/reduzieren. Deshalb hätte ich gerne meine Bereichsnamen in eine Tabelle (also alle zu kopierenden Bereichsnamen, zB "CAPEX_1" - "CAPEX_i") geschrieben, die als Basis für den Kopiervorgang dient.
Meine Frage an euch: wie sieht ein solcher Befehl aus, der mit meine variable Liste an Bereichsnamen abarbeitet und in mein Ziel-Tabellenblatt kopiert?
Danke!
Liebe Grüße
Philipp

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Allgemein gesagt, da ich momentan mit Ähnlichem beschäftigt bin:
Ich würde ein einheitliches Format der Capex Planung für jeden Bereich anstreben. Klar, dass sich nicht immer alle Bereichsleiter daran halten. Deswegen werde ich denen ein sehr allgemeines Format zur Verfügung stellen, dass jedoch alle benötigten Infos abfragt und die Kategorien der einzelnen Investitionen klar vorgibt. Damit kann ich dann alle Iputs zu einheitlichen Datentabellen transformieren und diese in einem Ordner abspeichern. Den Ordner kann ich dann per Makro durchgehen und die vereinheitlichte Darstellung rauskopieren. Damit kann man dann wunderbar weiter arbeiten und alles in eine Summenansicht zusammenfassen. Das so als grobe Richtung, die ich empfehlen kann.
Sag Bescheid wenn du Unterstützung brauchst.
Grüße
Daniel

Public Sub Test() Dim ws As Worksheet, wsZiel As Worksheet Application.ScreenUpdating = False Set wsZiel = ThisWorkbook.Worksheets("Sammelblatt") For Each ws In ThisWorkbook.Worksheets If ws.Name Like "CAPEX*" Then ws.UsedRange.Copy wsZiel.Cells(wsZiel.Rows.Count, 1).End(xlUp).Offset(1) End If Next ws Set wsZiel = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread