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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen