Relative Bezüge in Makro
21.11.2018 18:36:00
Wallenfang
habe folgendes Problem:
Mit dem Makro-Rekorder habe ich dieses Makro aufgezeichnet:
Sub test()
' test Makro
Range("D14:K14").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Range("B14").Select
ActiveSheet.PasteSpecial Format:=5, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("B14").Select
Selection.Copy
Range("D14:K14").Select
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
Es ist ein Kopiervorgang innerhalb einer Zeile (im Beispiel oben Zeile 14).Nun möchte ich diesen Kopiervorgang in anderen Zeilen durchführen.Fnktioniert nicht wegen der absoluten Bezügen.
Was muss ich an dem Makro ändern? bzw. Wie muss das Makro dann aussehen?
Im Voraus schon mal vielen Dank.
Gruß Roland