Hallo,

Hab einiges im Netz zum Thema gefunden aber nicht richtig umsetzen können.
Doch nun hab ich eine Code von "Hofmann", der funzt, aber ich brauche den auf Englisch.
Habe den Code bereits angepasst, sprich die Wörter ins Englisch übersetzt.
Mein Problem ist aber das ich zwischen den Wörtern gerne ein Lehrzeichen hätte, und das bei z.B.
525 FIVE HUNDRED TWENTY FIVE ausgegeben wird.
Mit dem jetzigen Makro kommt
FIVEHUNDRETFIVEANDTWENTY raus.

Wie ändere ich das am besten, das ich Lehrzeichen dazwischen bekomme und das am Ende TWENTY FIVE steht (also richtig herrum).

Danke schonmal im Vorraus, und hier eben noch der Code

MfG Benjae

Option Explicit

Dim BisNINETEEN As Variant
Dim TEEN As Variant
Dim THAUSEND As Variant

'In Anlehnung an eine Klassenprogrammierung von Hans W. Hofmann
Function ZWort(dZahl As Double, Optional bln As Boolean)
Dim dRest As Double
dRest = WorksheetFunction.Round((dZahl - Fix(dZahl)), 2) * 100
dZahl = Fix(dZahl)
BisNINETEEN = Array("", "ONE", "TWO", "THREE", "FOUR", _
"FIVE", "SIX", "SEVEN", "EIGHT", "NINE", "TEN", _
"ELEVEN", "TWELVE", "THIRDTEEN", "FOURTEEN", "FIFTEEN", _
"SIXTEEN", "SEVENTEEN", "EIGHTEEN", "NINETEEN")
TEEN = Array("", "TEEN", "TWNETY", "THIRTY", _
"FOURTY", "FIFTY", "SIXTY", "SEVENTY", _
"EIGHTY", "NINETY")
THAUSEND = Array("", "THAUSEND", "MILLION", "BILLION")
If dRest = 0 Then
ZWort = Text(dZahl)
Else
If bln Then
ZWort = Text(dZahl) & " " & dRest & "/00"
Else
ZWort = Text(dZahl)
End If
End If
End Function


Private Function Wort(wert As Integer) As String
Dim h As Integer
h = wert Mod 100
If h < 20 Then
Wort = BisNINETEEN(h)
Else
Wort = BisNINETEEN(h Mod 10) & IIf(h Mod 10 > 0, "AND ", "") & _
TEEN(Int(h / 10))
End If
h = (wert Mod 1000 - h) / 100
If h > 0 Then Wort = BisNINETEEN(h) & "HUNDRED" & Wort
End Function



Private Function Text(wert As Double)
Dim l As Integer, i As Integer, p As Integer
If InStr(1, Str(wert), ",") = 0 And InStr(1, Str(wert), ".") = 0 Then
For i = 1 To 1 + Int(Len(Str(wert)) / 3)
p = Val("0" & Mid("000" + Str(wert), _
Len("000" & Str(wert)) - i * 3 + 1, 3))
If p > 0 Then Text = Wort(p) & THAUSEND(i - 1) & Text
Next
Else
Text = "#Ganzzahl!"
End If
If Right(Text, 3) = "ein" Then Text = Text & "s"
End Function