Excel: Zahl durch Wort ersetzen

[Jörg Lorenz]

Hi,

Ich kenne mich  mit Makros leider mal garnicht aus. Naja, du hast mich ja streng genommen auch nur wörtlich genommen "Hat jmd. einen Ansatz für mich" *g*

was bietest Du denn? ;-)

Hier ist mal ein Beispiel:

  
Function ZahlInZiffern(ByVal varZahl As Variant)  
Dim bytS As Byte  
Dim arrSammler()  
Dim strTemp As String  
  
Application.Volatile  
  
If Not IsNumeric(varZahl) Then  
    ZahlInZiffern = False  
    Exit Function  
End If  
  
arrSammler = Array("Null", "Eins", "Zwei", "Drei", "Vier", "Fünf", "Sechs", "Sieben", "Acht", "Neun")  
  
strTemp = ""  
For bytS = 1 To Len(varZahl)  
    If IsNumeric(Mid(varZahl, bytS, 1)) Then  
        strTemp = strTemp & arrSammler(Mid(varZahl, bytS, 1)) & " "  
    Else  
        strTemp = strTemp & Mid(varZahl, bytS, 1) & " "  
    End If  
Next  
ZahlInZiffern = Trim(strTemp)  
End Function  

Das fügst Du in ein allgemeines Modul ein und kannst dann in die Zielzelle z. B. eintippen: =zahlinziffern(A1)

Viele Grüße

Jörg