HAllo
Versuch mal so: ' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' **********************************************************************
OptionExplicit
PublicFunction machs(zelle) Dim i AsInteger Dim objDic AsObject 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 SelectCase i Case 44, 48 To 57 machs = Replace(machs, Chr(i), objDic(i)) EndSelect Next EndFunction
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