Hallo an alle,
folgender Code funtzt bei mir nicht,
marke = 5
ZellePos2 = 2
marke = marke + 1

Worksheets("Optionen").Range(Cells(marke, ZellePos2), Cells(150, ZellePos2)).Select
Selection.Copy

marke = marke - 1

Worksheets("Optionen").Cells(marke, ZellePos2).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
hat vo euch jemand eine Idee warum das nicht klappt, er hält bei
Worksheets("Optionen").Range(Cells(marke, ZellePos2), Cells(150, ZellePos2)).Select
an.
Danke!
Gruß
Wuntschi