Bezugszelle auswerten mit UDF
12.05.2009 11:23:42
Peter
Nachfolgende Funktion gibt von einem Datum, das von der aufrufenden eine Zelle links steht einen String im Format "JJMM" zurück.
31.12.2008 --- ergibt 0812
Public Function jjmm() As String
'Application.Volatile
jjmm = Application.Caller.Offset(0, -1).Value
jjmm = Right(Year(jjmm), 2) & Right("0" & Month(jjmm), 2)
End Function
Nun möchte ich der Funktion die Zelladresse übergeben, von der ich einen solchen String zurückerhalten möchte.
Mir ist jedoch nicht klar, wie ich das umbauen muss. Als Ergebnis möchte ich eine einfache Funktion,
z.B.
xjjmm(A5)
die mir das gleiche Ergebnis liefert wie
=RECHTS(JAHR(A5);2)&RECHTS("0"&MONAT(A5);2)
Wer hilft kann mir helfen?
Danke, Peter
Anzeige