Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zahlen zu Zahlen in Wörter konvertieren

Forumthread: Zahlen zu Zahlen in Wörter konvertieren

Zahlen zu Zahlen in Wörter konvertieren
20.08.2002 21:55:14
Egbert Kerstholt
Hallo zusammen!

Folgende Frage Richtung VBA-Funktionen: Kann man aus Zahlen automatisch die alphabetische Bezeichnung generieren????
Danke + Gruß Egbert

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zahlen zu Zahlen in Wörter konvertieren
20.08.2002 22:31:57
Bonte
Hallo Egbert,

vielleicht hift dir dieser Ansatz weiter:

Sub ZiffernInWorte()

Dim i As Integer
Dim zif As Integer
Dim str As String

For i = 1 To Len(Range("A1").Value)
    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

     Code eingefügt mit Syntaxhighlighter 1.14

Gruß
Bonte

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige