Zahlen aus gemischtem String ziehen
Beate
Hallo Thomas,
mit folgendem Code werden alle Buchstaben und Sonderzeichen gelöscht und nur Zahlen bleiben über:
Sub Zahlen_extrahieren()
y = 3
y_e = Cells(65536, 3).End(xlUp).Row
For y = 3 To y_e
Wort = ""
For n = 1 To Len(Cells(y, 3))
Zeichen = Mid(Cells(y, 3), n, 1)
For z = 1 To 11
If Zeichen = Chr(46 + z) Then Wort = Wort & Zeichen
Next
Next
Cells(y, 4) = Wort
Next
End Sub
Dabei steht der bisher gemischte String in Spalte 3 und die Zahlen werden jeweils in Nachbarzelle Spalte 4 ausgegeben. Die Zahlen kannst du dann ja in die Ursprungsspalte kopieren und die dann überflüssige Spalte löschen.
Gruß,
Beate