Zahl als Wort

Forumthread: Zahl als Wort

Zahl als Wort

15.02.2007 12:04:03

Dietmar

Hallo an alle
Ich habe eine, für mich komplizierte, Frage !
Ich habe eine Zahl zb. 5168, ich hätte gerne eine Formel die dafür sorgt : fünf-eins-sechs-acht !

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zahl als Wort

15.02.2007 12:15:54

Rudi Maintaire
AW: Zahl als Wort

15.02.2007 13:29:08

peter
AW: Zahl als Wort

15.02.2007 13:47:37

ede
AW: Zahl als Wort

15.02.2007 13:50:45

ingoG
AW: Zahl als Wort

15.02.2007 13:55:20

ede
AW: Zahl als Wort

15.02.2007 13:54:55

Rudi Maintaire
AW: Zahl als Wort

15.02.2007 13:55:57

Walter

AW: Zahl als Wort

15.02.2007 12:15:54

Rudi Maintaire

Hallo,
in ein Modul:


Function inWorten(Zahl As String)
Dim arrWort, i As Integer
Application.Volatile
arrWort = Array("null", "eins", "zwei", "drei", "vier", "fünf", "sechs", "sieben", "acht", "neun")
If IsNumeric(Zahl) Then
For i = 1 To Len(Zahl)
inWorten = inWorten & arrWort(Mid(Zahl, i, 1)) & "-"
Next i
inWorten = Left(inWorten, Len(inWorten) - 1)
Else
inWorten = ""
End If
End Function

In der Tabelle dann z.B.: =inWorten(A1) oder =inWorten(12345)
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Zahl als Wort

15.02.2007 13:29:08

peter

Hallo Rudi
Sehr interessant.
Darf ich eine Anschlussfrage stellen: Wie müsste die Funktion erweitert werden, damit bei einer negativen Zahl das ganze auch klappt und dort dann zuerst "Minus" ..... steht?
Gruss, Peter

AW: Zahl als Wort

15.02.2007 13:47:37

ede

hallo,
so:


Function inWorten(Zahl As String)
Dim arrWort, i As Integer
Application.Volatile
arrWort = Array("null", "eins", "zwei", "drei", "vier", "fünf", "sechs", "sieben", "acht", "neun")
If IsNumeric(Zahl) Then
If Left(Zahl, 1) = "-" Then
inWorten = "Minus -"
Zahl = Mid(Zahl, 2, Len(inWorten) - 1)
End If
For i = 1 To Len(Zahl)
inWorten = inWorten & arrWort(Mid(Zahl, i, 1)) & "-"
Next i
inWorten = Left(inWorten, Len(inWorten) - 1)
Else
inWorten = ""
End If
End Function

gruss

AW: Zahl als Wort

15.02.2007 13:50:45

ingoG

Hallo Peter,
versuchs mal so:
<pre>
Function inWorten(Zahl As String)
Dim arrWort, i As Integer
Application.Volatile
arrWort = Array("null", "eins", "zwei", "drei", "vier", "fünf", "sechs", "sieben", "acht", "neun")
If IsNumeric(Zahl) Then
If Zahl<0 Then
inWorten="Minus-"
Zahl=-Zahl
End If
For i = 1 To Len(Zahl)
inWorten = inWorten & arrWort(Mid(Zahl, i, 1)) & "-"
Next i
inWorten = Left(inWorten, Len(inWorten) - 1)
Else
inWorten = ""
End If
End Function</pre>
Gruß Ingo
PS eine Rückmeldung wäre nett...

AW: Zahl als Wort

15.02.2007 13:55:20

ede

hallo ingo,
zahl ist vom typ=string!!!!
gruss

AW: Zahl als Wort

15.02.2007 13:54:55

Rudi Maintaire

Hallo,
sorry, an negative Zahlen habe ich nicht gedacht.


Function inWorten(Zahl)
Dim arrWort, i As Integer
Application.Volatile
arrWort = Array("null", "eins", "zwei", "drei", "vier", "fünf", "sechs", "sieben", "acht", "neun")
If IsNumeric(Zahl) Then
If Zahl < 0 Then inWorten = "Minus "
For i = 1 - (inWorten <> "") To Len(Zahl)
inWorten = inWorten & arrWort(Mid(Zahl, i, 1)) & "-"
Next i
inWorten = Left(inWorten, Len(inWorten) - 1)
Else
inWorten = ""
End If
End Function

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Zahl als Wort

15.02.2007 13:55:57

Walter

Hallo Dietmar,
hier habe ich die Zahlworte in einer Quittung
https://www.herber.de/bbs/user/40457.xls
Gruß
Rentner Walter
aus dem nördlichen Nordhessen
Eine Antwort wäre nett!

Beliebteste Forumthreads (12 Monate)

Forumthread: Zahl als Wort

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread