Folgende Frage Richtung VBA-Funktionen: Kann man aus Zahlen automatisch die alphabetische Bezeichnung generieren????
Danke + Gruß Egbert
Folgende Frage Richtung VBA-Funktionen: Kann man aus Zahlen automatisch die alphabetische Bezeichnung generieren????
Danke + Gruß Egbert
Versuch mal diesen Code aus dem Archiv:
https://www.herber.de/forum/archiv/0to4/t1065.htm
Viel Erfolg,
Charlie
vielleicht hift dir dieser Ansatz weiter:
Dim i As Integer For i = 1 To Len(Range("A1").Value)Sub ZiffernInWorte()
Code eingefügt mit Syntaxhighlighter 1.14
Dim zif As Integer
Dim str As String
zif = Mid(Range("A1").Value, i, 1)
Select Case zif
Case 1
str = str & "Eins "
Case 2
str = str & "Zwei "
Case 3
str = str & "Drei "
Case 4
str = str & "Vier "
Case 5
str = str & "Fünf "
Case 6
str = str & "Sechs "
Case 7
str = str & "Sieben "
Case 8
str = str & "Acht "
Case 9
str = str & "Neun "
Case 0
str = str & "Null "
End Select
Next i
MsgBox str
End Sub
Gruß
Bonte