AW: Zahlen aus Textfeld isolieren
27.09.2004 22:17:44
k.reffert
Hallo, bin selbst noch Anfänger, aber DAS habe ich heute zufällig gelernt:
im VBA-Editor Modul anlegen, dort mit folgendem Code
Function anlegen, im Excel-Sheet dann die Funktion im Funktionsassistenten unter "benutzerdefiniert" aufrufen...:
Function ZiffernSuche(ZA As String) As String
Dim Z As String * 1
Dim ZN As String
Dim I As Integer
For I = 1 To Len(ZA) ' vom ersten bis zum letzten Zeichen des Ausdrucks
Z = Mid(ZA, I, 1) ' ab hier haben wir erst mal genau ein Zeichen
ZN = ZN & IIf(IsNumeric(Z), Z, "") ' handelt es sich um Ziffer?
Next
ZiffernSuche = Left(ZN, I) ' Ausgabe der I Anzahl Ziffern
End Function