title image


Smiley Re: Geldbetrag im Zahlenformat in Worte umwandeln
Hallo Tobias,da gab es mal einen Beitrag von einem Excel-Fan, den ich hiermit uitiere:Function IN_WORTE_FORMEN(wert As Double) As String Dim textzahl As String Dim laenge As Integer Dim In_Worten As String Dim wort As String Dim buchstabe As String ' Integer in String textzahl = Format(wert) laenge = Len(textzahl) For i = 1 To laenge buchstabe = Left(textzahl, 1) 'Zahl in Wort umformen Select Case buchstabe Case Is = "0" wort = "Null" Case Is = "1" wort = "Eins" Case Is = "2" wort = "Zwei" Case Is = "3" wort = "Drei" Case Is = "4" wort = "Vier" Case Is = "5" wort = "Fünf" Case Is = "6" wort = "Sechs" Case Is = "7" wort = "Sieben" Case Is = "8" wort = "Acht" Case Is = "9" wort = "Neun" End Select akt_laenge = Len(textzahl) textzahl = Right(textzahl, akt_laenge - 1) buchstabe = Left(textzahl, 1) ' Nächste Zahl wäre Nachkomma, daher Ausstieg If ((buchstabe = ",") Or (i = laenge)) Then i = laenge + 1 In_Worten = In_Worten + wort Else In_Worten = In_Worten + wort + "-" End If Next i laenge = Len(textzahl) ' Bei Nachkommastellen If (laenge > 0) Then wort = Right(textzahl, laenge - 1) laenge = Len(wort) If (laenge = 1) Then In_Worten = In_Worten + "-" + wort + "0" + "/100" Else In_Worten = In_Worten + "-" + wort + "/100" End If End If IN_WORTE_FORMEN = In_WortenEnd FunctionSub Aufruf() Dim ergebnis As String ergebnis = IN_WORTE_FORMEN(100.1) MsgBox (ergebnis)End Sub>Viele GrüßeBerndDie MacHero EXCEL/WORKS Homepage Mein neues Excel-VBA-Programmierung-Kompendium (Excel97/2000) mit derzeit 6 Leserbeurteilungen

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: