ZahlenRaus
19.04.2007 11:04:00
Ernst
Mit dem untenstehenden Code werden Buchstaben von Zahlen getrennt und somit nur Zahlen angegeben.
Wie müsste der Code heissen, wenn nur Buchstaben angegeben werden sollen.
Function buchstabenRaus(sAlt As String) As String
Dim i As Integer, s As String * 1
For i = 1 To Len(sAlt)
s = Mid$(sAlt, i, 1)
If (Asc(s) > 45 And Asc(s)
Bitte ab hier den Code abändern.
Mit freundlichen Grüssen
Ernst Dunkel
Function ZahlenRaus(sAlt As String) As String
Dim i As Integer, s As String * 1
For i = 1 To Len(sAlt)
s = Mid$(sAlt, i, 1)
If (Asc(s) > 45 And Asc(s)