Kategorie: 
Wie kann man einen Betrag in Eurobetrag und Centbetrag trennen? Aus 3,25 Euro müsste in der einen Zelle die 3, in der anderen Zelle die 25 stehen.
Die benutzerdefinierten Funktionen in ein Standardmodul:
Getrennte Funktionen für Euro und Cent
Function WEuro(Zelle) If Not IsNumeric(Zelle) Then WEuro = "" Else WEuro = Fix(Zelle) End Function Function WCent(Zelle) If Not IsNumeric(Zelle) Then WCent = "" Else WCent = (Zelle - Fix(Zelle)) * 100 End Function
In die Zellen braucht man dann nur die Formeln einzugeben:
= WEuro(A1) = WCent(A1)
Eine Funktionen mit Wahlparameter für Euro oder Cent
Function EuroCent(Zelle, was) EuroCent = "" If IsNumeric(Zelle) Then EuroCent = IIf(was = 1, Fix(Zelle), (Zelle - Fix(Zelle)) * 100) End If End Function
In die Zellen käme dann
=eurocent(A1;1) für den Eurobetrag,
=eurocent(A1;2) für die Cent.
Dynamische Arrayformel mit Matrixfunktion (ab Excel 365)
Die folgende Funktion gibt beide Werte, also Euro und Cent, als Datenfeld zurück:
Function EuroCent_Beide(Zelle) Dim arrTemp(1 To 2) Application.Volatile arrTemp(1) = "" arrTemp(2) = "" If Zelle <> "" And IsNumeric(Zelle) Then arrTemp(1) = Fix(Zelle) arrTemp(2) = (Zelle - Fix(Zelle)) * 100 End If EuroCent_Beide = arrTemp End Function
In die Zelle wird dazu eingetragen:
=EuroCent_Beide(D1)