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$(sValue, 1, 1)
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$(sValue, 2) '</ 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
|