VBA Tipp: Ziffern aus Zeichenfolge entfernen

Aus DBWiki
Wechseln zu: Navigation, Suche

Problem

In einem String sind unerwünschte Zahlen enthalten.

Lösung

Public Function NoNumbers(ByVal sIn As String, _
                  Optional ByVal trimming As Boolean) As String
Dim i As Long
Dim s As String * 1
Dim t As String
 
For i = 1 To Len(sIn)
     s = Mid(sIn, i, 1)
     If Asc(s) < 48 Or Asc(s) > 57 Then
        t = t & s
     End If
Next i
 
 'optional
If trimming = True Then
   NoNumbers = Trim(t)
 Else
   NoNumbers = t
End If
 
End Function

Aufruf dann z.B. in einer Aktualisierungsabfrage:

UPDATE SET MeinFeld = NoNumbers(MeinAnderesFeld)


Wiki hinweis.png Anmerkung: Diese Funktion enthält ein zusätzliches Trim, was links und rechts die möglicherweise entstehenden Blanks löscht.


Wiki hinweis.png Tipp: Um dieses Beispiel in Excel zu verwenden, einfach sIn als Range deklarieren.