Kopierschleife
10.10.2017 10:53:58
Norbert
Beispiel:
G10 Max Mustermann ........................ J10 555
G11 Petra Musterfrau ........................ J11 777
G12 Herr Basic ........................ J12 999
G13 Frau Excel ........................ J13 333
Folglich sollen die Werte in diesem Beispiel 555, 777, 999 und 333 kopiert und an selbiger stelle in die folgenden 11 Worksheets (Worksheet 4 bis 15) eingefügt werden.
Weiß jemand, wie man diese Ablauflogik mit einer Schleife realisieren kann?
Derzeit weise ich die zu kopierenden Werte mit einer Copy_To Destination:= an die entsprechende Stelle zu. Dies ist jedoch sehr ineffizient, da es in meinem obigen Beispiel nur viert Werte (da vier Namen in G) sind, jedoch es durchaus auch 50 oder mehr Namen in G und damit verbundene Werte in J sein können.
Ich habe mir schon meine Gedanken gemacht, doch weiß nicht, wie ich den Kopiervorgang programmieren soll:
Sub KopierBefehl()
Dim i As Integer
i = 1
Do While Not Cells(G7) = "" Überprüft bis in welche Zeile in G ein Name Steht
j = Sheets.Count
For i = 4 To 15 Legt die Worksheets für die Kopien fest
Hier müsste die Kopieranweisung rein, also: J10 zu J10 in Worksheet 4, zu Worksheet 5, zu Worksheet 6 usw.
Next i
Ich hoffe, dass jemand Rat weiß.
Vielen Dank!
Beste Grüße,
Norbert