Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1124to1128
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
Zahl zu Buchstaben
Jürgen
Hallo Leute,
wünsche guten Rutsch.
Wie kann ich per VBA eine Zahl zu einem Buchstaben machen ?
z.B. 3=C
Gruß Jürgen

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zahl zu Buchstaben
31.12.2009 12:53:59
ransi
HAllo
Versuch mal so:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit


Public Function machs(zelle)
Dim i As Integer
Dim objDic As Object
machs = zelle.Text
Set objDic = CreateObject("Scripting.Dictionary")
objDic(44) = "Komma "
objDic(48) = "Null "
objDic(49) = "Eins "
objDic(50) = "Zwei "
objDic(51) = "Drei "
objDic(52) = "Vier "
objDic(53) = "Fünf "
objDic(54) = "Sechs "
objDic(55) = "Sieben "
objDic(56) = "Acht "
objDic(57) = "Neun "
For i = 44 To 57
    Select Case i
        Case 44, 48 To 57
            machs = Replace(machs, Chr(i), objDic(i))
    End Select
Next
End Function


Der Aufruf geht dann so:
Tabelle1

 CD
1efg 123,45 abc efg Eins Zwei Drei Komma Vier Fünf  abc

Formeln der Tabelle
ZelleFormel
D1=machs(C1)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi
Anzeige
Falls Zahl in Spaltenbuchstabe...
31.12.2009 15:50:20
NoNet
Hallo Jürgen,
falls es sich bei der "Zahl" um einen Spaltenindex handelt, der in einen Spaltenbuchstaben umgewandelt werden soll, dann verwende folgenden Algorithmus :
strBuchstabe = Replace(Cells(1,lngSpaltenindex).Address(0,0,1,0),1,"")
z.B. : MsgBox Replace(Cells(1,43).Address(0,0,1,0),1,"") ergibt : AQ
Gruß und Guten Rutsch (an alle !), NoNet
AW: Falls Zahl in Spaltenbuchstabe...
31.12.2009 16:38:03
Jürgen
Hallo NoNet,
genau das suchte ich !!.
Wie lernt man so was ?
Gibt es ein gutes VBA - Buch ?
Gruß Jürgen
AW: Zahl zu Buchstaben
31.12.2009 12:55:15
BoskoBiati
Hallo,
mit chr$(64+Deine Zahl)
Chr$(65) ergibt A
Gruß
Bosko
Anzeige
AW: Zahl zu Buchstaben
31.12.2009 12:57:12
Jürgen
Hallo,
ich danke Euch beiden.
Gruß Jürgen

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige