Clever-Excel-Forum

Hallo zusammen,
ich bräuchte mal eure Hilfe in sachen VBA.

Ich habe hier einen Code der soweit funktioniert, den ich erweitern möchte

Code:
For inZeile = 8 To (Range("Q1") - 1) * 2 + 8 Step 2

            Range(Cells(Target.Row, 5), Cells(Target.Row, 15)).Copy

            Worksheets("Bestellung").Cells(inZeile, 3).PasteSpecial Paste:=xlPasteValues

            Application.CutCopyMode = False

Erweitern möchte ich den Teil

Code:
Range(Cells(Target.Row, 5), Cells(Target.Row, 15)).Copy

der Teil soll so erweitert werden, das mir der Wert aus der Zelle U1 unter den gleich Vorausetzungen wie im Code in S8 eingetragen wird.

Wie muss ich die Range umschreiben?

Hallöchen,

Dein code tut erst mal ein Stück einer Zeile in ein anderes Blatt einfügen. das wiederholt sich in einem bestimmten Bereich alle zwei Zeilen.

Jetzt willst Du U1 in S8 eintragen. Auf S8 auf dem gleichen Blatt wie U1 oder auf dem anderen? Und dann? War's das oder kommt U1 in S10 S12, S14 usw?

Hallo Andre,

ich habe dir mal meine abgespeckte Datei mit angefügt.

Ich möchte im Prinzip das Bemerkungsfeld füllen wenn nötig, was über einen sverweis in U1 steht.

Zuerst wird die Mat.Nr eingegeben, dann Anzahl Stöße (max 12) und dann ein Doppelklick in Zelle S1

Wenn ich die Range Range(Cells(Target.Row, 5), Cells(Target.Row, 15)).Copy von 15 auf 21 ändere, dann habe ich den nicht erwünschten Efekt, das auch die Zellen zwischen 15 und 21 übertragen werden.
Ich hoffe ich konnte mich verständlich ausgedrücken.

Vielen Dank für deine Zeit

Hallöchen,

dann im Prinzip so?

Code:
For inZeile = 8 To (Range("Q1") - 1) * 2 + 8 Step 2

            Range(Cells(Target.Row, 5), Cells(Target.Row, 15)).Copy

            Worksheets("Bestellung").Cells(inZeile, 3).PasteSpecial Paste:=xlPasteValues

            Range("U1").Copy

            Worksheets("Bestellung").Cells(inZeile, 24).PasteSpecial Paste:=xlPasteValues

            Application.CutCopyMode = False

Damit wird der Inhalt von U1 auf dem anderen Blatt in Spalte X eingefügt.

Hallo Andre,

vielen lieben Dank, ich habe die 24 noch auf 19 gändert, so passt das und funktioniert. :18:

DietmarD

schauan

DietmarD

schauan

DietmarD