AW: Zahlenformat
12.11.2005 13:15:21
kiwimusic
Wenn du das über VBA lösen willst, musst du die Zahl auseinandernehmen
Um den Wert während der Laufzeit eines Makros zu ermitteln machts du das so:
Sub ZahlenPfluecken
Dim a,b,c,d,e,f,i
a = ActiveCell.Value 'Zellenwert
b = CStr(a)'Wandelt Zahl in Text um
i = Len(b)'Ermittelt die Länge der des Zahlentextes
c = Left(b,i-3)'Ermittelt den Linken Teil deiner Zahl
d = Right(b,2)'Ermittelt die Dezimalstellen
d = Left(d,1)'Ermittelt die Nachkommazahl
e = c & "," & d'Setzt den Text wieder zusammen
f = CDec(e)'Stellt eine Zahl aus dem Text her
ActiveCell.Value=f ' Schreibt den Wert wieder in die Zelle
End Sub
Dass gleiche als Funktion (Kannst du dann in dein Tabellenblatt als Benutzerdefinierte Funktion einsetzen):
Function DezimalEins(a)
Dim b, c, d, e, i
b = CStr(a) 'Wandelt Zahl in Text um
i = Len(b) 'Ermittelt die Länge der des Zahlentextes
c = Left(b, i - 3) 'Ermittelt den Linken Teil deiner Zahl
d = Right(b, 2) 'Ermittelt die Dezimalstellen
d = Left(d, 1) 'Ermittelt die Nachkommazahl
e = c & "," & d 'Baut die Zahl Textuell wieder zusammen
DezimalEins = CDec(e) 'Wandelt den Text wieder in eine Zahl um
End Function
Einfach den Code in ein Modul einfügen
Hoffe hat dir gehlfen
Gruß Kiwi