ich möchte eine alphanumerische zahl z.B. a34fg456fg in eine zahl umwandeln, wie geht das, alle meine Versuche enden mit Fehlerwerten
im Voraus schon mal Danke !
Gruss
Iris
Tabelle1 | ||||||||||||||
| ||||||||||||||
Option Base 1
Function Nummer(Ziel As Range)
Dim myarr, strArr
Dim intZähler As Integer, intArr As Integer
ReDim myarr(3, Len(Ziel))
For intZähler = 1 To Len(Ziel)
If IsNumeric(Mid(Ziel, intZähler, 1)) Then
myarr(1, intZähler) = Mid(Ziel, intZähler, 1)
Else
myarr(2, intZähler) = Mid(Ziel, intZähler, 1)
End If
Next
strArr = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j" _
, "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u" _
, "v", "w", "x", "y", "z")
For intZähler = 1 To Len(Ziel)
intArr = 1
Do
If IsEmpty(myarr(2, intZähler)) Then Exit Do
If myarr(2, intZähler) = strArr(intArr) Then
myarr(3, intZähler) = intArr
Exit Do
End If
intArr = intArr + 1
Loop
Next
For intZähler = 1 To Len(Ziel)
If Not IsEmpty(myarr(1, intZähler)) Then Nummer = Nummer & myarr(1, intZähler)
If Not IsEmpty(myarr(3, intZähler)) Then Nummer = Nummer & 0 & myarr(3, intZähler)
Next
End Function