Hallo!
Folgendes möchte ich erreichen:
Ab Spalte F soll ein je nach Datei in der Größe variierender Zellbereich kopiert werden und daneben wieder eingefügt werden.
Das klappt schonmal.
Dann sollen die eingefügten Zeilen aber je mit einem Wert in Spalte D addiert werden.
Sprich: alle Werte der Zeile 8 sollen mit dem Wert in "F8" addiert werden,
alle Werte der Zeile 9 mit dem Wert in "F9" usw.
Das soll bis zur letzten beschrieben Zeile so weiter gehen.
Momentan sieht es so aus:
Range("F8").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
ActiveSheet.Cells(8, ActiveSheet.UsedRange.Columns.Count + 2).PasteSpecial
For Each Cell In Selection
Cell.Value = Cell.Value + Range("$D$8").Value
Next
Ich bin für jeden Tip dankbar!!
Viele Grüße