VBA Tipp: Ziffern aus Zeichenfolge entfernen

Aus DBWiki
Wechseln zu: Navigation, Suche

Anforderung

Ich möchte alle Ziffern aus einer Zeichenfolge (String) entfernen.

Lösung

Die Funktion wird in einem globalen Modul gespeichert.

Public Function StringOhneZiffern(ByVal Text As Variant) As Variant
 
 'Quelle: www.dbwiki.net oder www.dbwiki.de
 
 Dim strText As String
 Dim Zeichen As String
 Dim i As Long
 
 If IsNull(Text) Then
   StringOhneZiffern = Null
 Else
   For i = 1 To Len(Text)
     Zeichen = Mid(Text, i, 1)
     If Not IsNumeric(Zeichen) Then
       strText = strText & Zeichen
     End If
   Next i
 End If
 StringOhneZiffern = Trim(strText)
 
End Function

Aufruf

Debug.Print StringOhneZiffern("a20bc 20am16 aaa25rt") 'ergibt abc am aaart


  • in einer Abfrage

Ausdr1: StringOhneZiffern([MeinTextfeld])


  • in einer Aktualisierungsabfrage:
UPDATE MeineTabelle SET MeinTextOhneZiffernFeld = StringOhneZiffern(MeinTextfeld)


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