Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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...
Anzeige
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
Anzeige
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!

259 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige