Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bezugszelle auswerten mit UDF

Bezugszelle auswerten mit UDF
12.05.2009 11:23:42
Peter
Guten Tag
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bezugszelle auswerten mit UDF
12.05.2009 11:43:46
Bertram
Hallo Peter,
meinst du so?

Public Function jjmm(Zelle As Range) As String
'Application.Volatile
jjmm = Zelle.Value
jjmm = Right(Year(jjmm), 2) & Right("0" & Month(jjmm), 2)
End Function


Gruß
Bertram

AW: Bezugszelle auswerten mit UDF
12.05.2009 12:00:59
Peter
Hallo Betram
Vom Ansatz genau so. Allerdings bleibt ein Problem Problem. Die Zelle wird in der Variable jjmm mit "31.1.2009" angezeigt und dann ein Fehlerwert ausgegeben. Ich weiss nicht, ob die Funktionen Year und Month diesen String noch als Serielle Zahl interpretieren könnne.
Oder habe ich etwas anderes falsch gemacht?
Gruss, Peter
Anzeige
AW: Bezugszelle auswerten mit UDF
12.05.2009 12:07:14
Bertram
Hallo Peter,
das kann ich so nciht nachvollziehen. Bei mir funktioniert das einwandfrei.
https://www.herber.de/bbs/user/61766.xls
Gruß
Bertram
Wieso formatierst du deine Zielzelle...
12.05.2009 12:12:43
Bertram
...denn nicht einfach mit Benutzerdefiniert "JJMM"?
Gruß
Bertram
AW: Wieso formatierst du deine Zielzelle...
12.05.2009 13:49:17
Peter
Hallo Bertram
Ich hatte einen Schreibfehler gemacht; es funktioniert nun prima! Vielen Dank.
Die Formatierung würde mich nicht weiterbringen, da die Zelle in einer anderen Formel weiterverwendet wird.
Gruss, Peter
Gerne oT
12.05.2009 14:26:13
Bertram

331 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige