Tabelle dynamisch in anderes Worksheet kopieren
12.10.2023 23:28:49
Lukas
ich bräuchte mal eure Hilfe, da ich Neuling bin und mir die VBA Schnippsel überall zusammensuche. Komme aber gerade nicht weiter.
Ich habe 2 Worksheets in Excel. Worksheet "A" und Worksheet "B".
In Worksheet "A" habe ich eine Tabelle auf B2:C5 liegen, mit Rahmen und einigen Funktionen in den Zellen.
Worksheet "B" ist zunächst leer.
Mein Ansinnen ist es, dass die Tabelle aus Worksheet "A" bei Veränderung einer bestimmten Zelle in Worksheet "B" in das Worksheet "B" reinkopiert wird.
Dem Grunde nach habe ich bereits eine Lösung für einen einmaligen Gebrauch:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:B2")) Is Nothing Then
Application.EnableEvents = False
Sheets("A").Select
ActiveSheet.Range("A2:C5").Select
Selection.Copy
Sheets("B").Select
ActiveSheet.Range("A9").Select
ActiveSheet.Paste
Application.EnableEvents = True
End If
End Sub
In meinem Quelltext wird also die Tabelle aus Worksheet "A" in die Zelle A9 aus Worksheet "B" kopiert.
Ich möchte nun innerhalb der kopierten Tabelle wiederum eine Zeile definieren (genau im Abstand 7 Zellen unter der zuvor definierten Zelle, also B9), die genau das gleiche tut. Wenn ich also in der neuen Tabelle in B9 etwas eingebe, dann soll wieder 7 Zeilen weiter unten eine neue Tabelle eingefügt werden mit wiederum einer Zelle, die auf erneute Eingabe wieder eine Tabelle einpflegt. Und das soll immer so weiter gehen. Immer wenn ich also neue Daten in die zuletzt reinkopierte Tabelle eingebe, soll 7 Zeilen darunter wieder eine Tabelle einkopiert werden.
Ich müsste in meinem Code an der Stelle
If Not Intersect(Target, Range("B2:B2")) Is Nothing Thenalso irgendwie ein B2+7+14+21 usw. hinbekommen.
Ebenso im Code
ActiveSheet.Range("A9").Selectein A9+7+14+21 usw.
Die aus Worksheet "A" einzukopierende Tabelle soll immer dieselbe sein.
Wie kann ich das bewerkstelligen?
Danke euch!
