Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
148to152
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige