range als argument an sub
15.10.2002 13:53:13
robert
kann mir jemand sagen wieso folgender Code nicht funktioniert (wie im Kommentar angegeben)
Sub test()
Set r = Worksheets("test").Range("a1")
testparameter (Worksheets("test").Range("a1")) 'das funktioniert
testparameter (Range("a1")) 'das hingegen funzt nicht
testparameter (r) 'funzt auch nicht
End Sub
Public Sub testparameter(ByRef target As Range)
Range("a2") = Cells(target.Row, target.Column).Value
End Sub