Re: Zahlen als Text ausgeben
13.01.2003 16:57:11
Bernd Held
Hallo,benutze eine benuzerdefinierte Funktion:
Function ZIT(Zahl)
Dim Tausender As Single
Dim Hunderter As Single
Dim Zehner As Single
Dim Einstellig As Variant
Dim Zweistellig As Variant
Dim zVar As Single
Einstellig = Array("", "Ein", "zwei", "drei", "vier", "fünf", _
"sechs", "sieben", "acht", "neun", "zehn", "elf", _
"zwölf", "dreizehn", "vierzehn", "fünfzehn", "sechzehn", _
"siebzehn", "achtzehn", "neuzehn")
Zweistellig = Array("", "zehn", "zwanzig", "dreißig", "vierzig", _
"fünfzig", "sechzig", "siebzig", "achtzig", "neunzig")
ZIT = ""
If Zahl = 0 Then
ZahlInText = "Null"
End If
Tausender = Zahl \ 1000
If Tausender > 0 Then
ZIT = Einstellig(Tausender) & "tausend"
End If
Zahl = Zahl - Tausender * 1000
Hunderter = Zahl \ 100
If Hunderter > 0 Then
ZIT = ZIT & Einstellig(Hunderter) & "hundert"
End If
Zahl = Zahl - Hunderter * 100
If Zahl < 20 Then
Zehner = Zahl
ZIT = ZIT & Einstellig(Zehner) & " "
Else
Zehner = Zahl \ 10
zVar = Zahl - Zehner * 10
ZIT = ZIT & Einstellig(zVar) & "und"
ZIT = ZIT & Zweistellig(Zehner) & " "
End If
End Function
Aufruf in Tabelle:
=ZIT(A1)
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-VBA-Bücher, neue FAQs und Makros unter: http://held-office.de