Hallo
ich möchte diesen Befehl verkürzen. Es soll 20 mal die der Wert kopiert werden.
Danke für eure Hilfe.
Gruß
Karsten
With ActiveCell
Range(.Offset(1, 0), .Offset(1, 0)).Select
End With
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With ActiveCell
Range(.Offset(1, 0), .Offset(1, 0)).Select
End With
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With ActiveCell
Range(.Offset(1, 0), .Offset(1, 0)).Select
End With
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False