Office: (Office 2016) VBA Code um Tabelle beliebig oft (mit def. Abstand) zu kopieren

Hallo Leute!

Ich bin neu hier.. auf Grund fehlender Selbsthilfe-Qualitäten bei meinem Problem habe ich dieses Forum entdeckt und hoffe ihr könnt mir weiterhelfen. Ich versuche im Rahmen einer Projektarbeit ein "Tool zu modellieren" (leider ohne Makro- und VBA-Kenntnisse), mit denen man die Total Cost of Ownership eines zu beschaffenden Guts berechnen kann.

Ich möchte eine Tabelle Kostenkategorie#1, die durch den Nutzer um beliebig viele Zeilen (Kostenelemente 1.1 bis 1.n) erweitert werden kann, immer mit einer Zeile Abstand unter die besagte Tabelle kopieren, sodass eine neue Tabelle für die Kostenkategorie #2 (mit Kostenelementen 2.1 bis 2.n) entsteht. Und so weiter.

[video]https://youtu.be/MNY38JZhJjw[/video]

Mein angehängtes Video zeigt, was ich bisher mit verzweifelter Internetrecherche gemacht habe. Allerdings bezieht sich die Kopierfunktion immer nur auf eine bestimmte Zelle unter der ersten Tabelle. Mir fehlt die theoretisch "unendliche Schleife" an untereinander kopierbaren Tabellen mit einem definierten Abstand zueinander (gerne 2 Zellen).

Das Ganze soll mit einer Schaltfläche funktionieren.

Ich hoffe meine Beschreibung war verständlich und führt zu einer Erkenntnis/Lösungen..

Vielen lieben Dank!

LG Julian

 

Hi Julian,

nach diesem Prinzip:

Code:

    Dim lngErste As Long
    lngErste = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) + 2
    Range("DeineTabelle[#All]").Copy Cells(lngErste, 1)  '<== Name der Tabelle anpassen

Bis später,
Karin