Funktion soll eine beliebige Zelle manipulieren
19.05.2005 10:47:30
Nico
ich hoffe das mir jemand dieses Phänomen erklären kann:
Ich habe mir eine einfache Funktion gebaut (zur Vereinfachung) die wie folgt aussieht:
Public
Function copyvalue(value As Range) As String
Dim Caller As Range
Set Caller = Application.Caller
ActiveSheet.Cells(Caller.row, Caller.Column + 1).Text = value.Text
copyvalue = "ok"
End Function
Eigentlich soll sie einen beliebigen Wert der an die Funktion übergeben wird in die Nachbarzelle(1 Spalte weiter) kopieren. Nur leider scheint die Ausführung nicht ganz zu klappen, denn als Rückgabewert steht nicht in der Zelle wie erwartet "ok" sondern #WERT.
Meine Frage ist nun warum steht dort #WERT, bzw. warum funktiert es nicht, das eine Funktion Zellen manipulieren kann?
Gruß
Nico