Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
200to204
200to204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zahlen als Text ausgeben

Zahlen als Text ausgeben
13.01.2003 16:48:50
SagIchNicht
ich wollte wissen wie ich zahlen als text ausgeben kann in excel
als beispiel was ich meine:

in zelle a1 steht die zahl 100 ich will das in zelle b1 einhundert steht. wie geht das ?

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zahlen als Text ausgeben
13.01.2003 16:53:20
WF
siehe Tip Nr. 371 in der Rubrik Sonstige (8) auf meiner homepage
http://www.excelformeln.de/
die ultimative Formelseite
Re: Zahlen als Text ausgeben
13.01.2003 16:56:34
SagIchNicht
konnte auf der seite nix finden
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

Anzeige
Danke (wie kann man sich dermaßen vertippen?)
13.01.2003 17:08:57
WF
.
Re: Zahlen als Text ausgeben
13.01.2003 17:13:04
Stratis
keine gescheite lösung, bringt mal was konstruktives
Ist eigentlich unmöglich;-)))
13.01.2003 17:14:08
Boris
.
Hast du geraucht?
13.01.2003 17:15:37
Boris
Ich denke, du vergreifst dich etwas im Ton.
Thread ist beendet.

Boris

Re: Hast du geraucht?
13.01.2003 17:18:08
SagIchNicht
hast du geraucht?
@Hans W. Herber:
13.01.2003 17:19:25
Boris
Bitte tu uns allen den Gefallen und lösche diesen Thread!

Gruß Boris

Re: @Hans W. Herber:
13.01.2003 17:20:59
SagIchNicht
seit ihr nicht fähig mir ne lösung zu geben, man man man
SagIchNicht
13.01.2003 17:22:29
Boris
.
Re: SagIchNicht
13.01.2003 17:24:54
SagIchNicht
.
Re: SagIchNicht
13.01.2003 17:27:53
SagIchNicht
boris du bist fei wirklich cool.... rofl

375 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige