Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Zahl zu Buchstaben | Herbers Excel-Forum


Betrifft: Zahl zu Buchstaben von: Jürgen
Geschrieben am: 31.12.2009 12:43:45

Hallo Leute,

wünsche guten Rutsch.

Wie kann ich per VBA eine Zahl zu einem Buchstaben machen ?

z.B. 3=C

Gruß Jürgen

  

Betrifft: AW: Zahl zu Buchstaben von: ransi
Geschrieben am: 31.12.2009 12:53:59

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


  

Betrifft: Falls Zahl in Spaltenbuchstabe... von: NoNet
Geschrieben am: 31.12.2009 15:50:20

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


  

Betrifft: AW: Falls Zahl in Spaltenbuchstabe... von: Jürgen
Geschrieben am: 31.12.2009 16:38:03

Hallo NoNet,

genau das suchte ich !!.
Wie lernt man so was ?
Gibt es ein gutes VBA - Buch ?

Gruß Jürgen


  

Betrifft: AW: Zahl zu Buchstaben von: BoskoBiati
Geschrieben am: 31.12.2009 12:55:15

Hallo,

mit chr$(64+Deine Zahl)
Chr$(65) ergibt A

Gruß

Bosko


  

Betrifft: AW: Zahl zu Buchstaben von: Jürgen
Geschrieben am: 31.12.2009 12:57:12

Hallo,

ich danke Euch beiden.

Gruß Jürgen


Beiträge aus den Excel-Beispielen zum Thema "Zahl zu Buchstaben"