Hallo Leute,
ich habe folgendes Problem:
Ich will zwei Zeilen gleichzeitig kopieren und direkt unter einander einfügen.
Die Anzahl der Kopiervorgänge ist festgelegt in Zelle D85
Sprachlich:
Kopiere D11:R12
Füge ein bei D13:R14
Das Problem in meinem Fall ist, dass die Zellen D11 und D12 verbunden sind. Zelle E11 und E12 sollen ständig wiederholen
quasi:
E11 a
E12 b
E13 a
E14 b
alle anderen Zeilen enthalten eine Formel die einfach nach unten kopiert werden soll.
Folgenden Code habe ich schon geschrieben, allerdings scheitert es bei mir an dem Einfügebefehl:
Anzahl = Range("D85").Value - 1
For i = 1 To Anzahl
Range("D11:R12").Select
Selection.Copy
Range("D13").Select -- hier ist der Fehler
ActiveSheet.Paste
'Rows(Zeile).Copy Destination:=Rows(Zeile + i) -- das war ein anderer Versuch
Next i
mit freundlichen Grüßen