unten ein Makro, mit dem ich Werte kopiere. Die definierte Markierung
n = Names("Markierung")
sollte dann mit
Application.Goto Reference:=n
angesprochen werden.
Das klappt jedoch nicht. Kann mir jemand weiterhelfen?
Gruss
thomas
Sub Abschreiben()
Dim iWks As Integer, r1 As Range, r2 As Range
Dim sp As Integer, ro As Integer, s1 As String, s2 As String
Dim n As String
n = Names("Markierung")
ro = ActiveCell.Row
sp = ActiveCell.Column
Set r1 = Range(Cells(ro, 3), Cells(ro, 4))
Set r2 = Range(Cells(ro, 9), Cells(ro, 10))
Set myMultiAreaRange = Union(r1, r2)
myMultiAreaRange.Select
Selection.Copy
Application.Goto Reference:=n
ScreenUpdating = True
Range(Cells(ro, sp + 2), Cells(ro, sp + 2)).Select
Selection.Paste
Application.CutCopyMode = True
ActiveWorkbook.Names("Markierung").Delete
End Sub