Text in Zahl

01/09/2008 - 12:55 von Wilfried | Report spam
Gibt es die Möglichkeit, einen Text in eine Zahl zu verwandeln. Z.B

A-275-D1-Xa_15 -> eindeutige Zahl (z.B. 237589721564873258).

Damit möchte ich prüfen, ob die gleiche Bezeichnung öfters vorkommt.
Leerzeichen sollten nicht berücksichtigt werden.

Merci
 

Lesen sie die antworten

#1 Peter Schleif
01/09/2008 - 13:21 | Warnen spam
Wilfried schrieb am 01.09.2008 12:55 Uhr:
Gibt es die Möglichkeit, einen Text in eine Zahl zu verwandeln. Z.B

A-275-D1-Xa_15 -> eindeutige Zahl (z.B. 237589721564873258).



Mit einer benutzerdefinierten Funktion kein Problem:

B1: =TextInZahl(A1)

Function TextInZahl(ByVal str As String) As String
Dim i As Integer

For i = 1 To Len(str)
If Mid(str, i, 1) <> "" Then
TextInZahl = TextInZahl & Format(Asc(Mid(str,i,1)),"000")
End If
Next
End Function


Damit möchte ich prüfen, ob die gleiche Bezeichnung öfters vorkommt.
Leerzeichen sollten nicht berücksichtigt werden.



Warum vergleichst Du nicht direkt den leerzeichen-bereinigten Text?

Peter

Ähnliche fragen