ich habe mit dem Rekorder folgendes aufgezeichnet:
Sub TOP3_aufbauen()
Range("I1").Select
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("J3:O5").Select
Selection.Copy
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("I1").Select
ActiveCell.FormulaR1C1 = "=R[1]C[-1]"
Range("J3:O5").Select
Selection.Copy
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("I1").Select
ActiveCell.FormulaR1C1 = "=R[2]C[-1]"
Range("J3:O5").Select
Selection.Copy
Range("B11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("I1").Select
ActiveCell.FormulaR1C1 = "=R[3]C[-1]"
Range("J3:O5").Select
Selection.Copy
Range("B15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
usw. Auf den ersten Blick funktioniert das auch, das Makro setzt aber nur die ersten drei Blöcke als Werte in die Zielzellen, steuert die weiteren Zellen zwar an und läuft ohne Fehlermeldung durch, füllt sie aber nicht mehr aus. Mache ich das ganze manuell, gibt es die Werte(?).
Hat jemand eine Idee, woran das liegen könnte?
Etwas ratlos
Roland Hochhäuser