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