Readdy Write  
0,00 €
Your View Money
Views: Count
Self 20% 0
Your Content 60% 0

Users by Links 0
u1*(Content+Views) 10% 0
Follow-Follower 0
s2*(Income) 5% 0

Count
Followers 0
Login Register as User

Excel: Funktion zum Umwandeln von Buchstaben in Zahlenwerte als Text

26.11.2019 (👁6506)

Excel: Wandle Buchstaben in Ascii Zahlen um

 

Hier findet man einen Code, mit welchem man in Excel Buchstaben in Zahlen umwandlen kann.

Im Beispiel wird A zu 1 , B->2, C->3….

 

Der vba Code ist zum Kopieren und eine Beispiel Datei im Anhang

 

Nach dem Lauf

 

Im vba Editor das Modul 1

 

Der vba Code zum Test

Option Explicit



Public Function Convert_Letter_To_Value(ByRef range_To_Convert As Range)

    '--------< Convert_Letter_To_Value() >------------

    '*Korrekturen : Tausche Buchstaben aus

    

    Dim intOffset_StartBuchstabe As Integer

    intOffset_StartBuchstabe = Asc("A")

    

    '----< @Loop: Alle Rows >----

    Dim cell As Range

    For Each cell In range_To_Convert.Cells

        Dim sValue As String

        sValue = cell.Value2

        

        '-< Korrektur Zeichen >-

        '*Wandle das erste Zeichen in Buchstaben um

        If Len(sValue) > 0 Then

            Dim sBuchstabe As String

            sBuchstabe = Mid$(sValue11)

            

            Dim ascii_Value_Buchstabe As Integer

            ascii_Value_Buchstabe = Asc(sBuchstabe)

            

            Dim intNeu As Integer

            intNeu = ascii_Value_Buchstabe - intOffset_StartBuchstabe + 1

            

            Dim sZahlenwert As String

            sZahlenwert = CStr(intNeu)

            '< austauschen >

            sValue = sZahlenwert & Mid$(sValue2)

            '</ austauschen >

        End If

        '-</ Korrektur Zeichen >-

        

        '< schreiben in Excel Zelle >

        cell.Value2 = sValue

        '</ schreiben in Excel Zelle >

    Next

    '----</ @Loop: Alle Rows >----

    

    '--------</ Convert_Letter_To_Value() >------------

End Function