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
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
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