AW: VÖLLIG FALSCH
15.10.2009 12:26:53
Heinz
Hallo Christian,
ich glaube, dass die Lösung mit meiner Funktion wesentlich einfacher ist (auch nicht böse gemeint).
Z.B:
Sub AllesAußerZahlenLöschen1()
Dim z As Range
'zuerst den Bereich, z.B. Spalte A markieren
For Each z In Selection
If z.Value "" Then z.Value = NurZahlen(z.Value)
Next z
End Sub
Sub AllesAußerZahlenLöschen2()
Dim z As Range
'speziell für die Spalte A
For Each z In Range("A:A")
If z.Value "" Then z.Value = NurZahlen(z.Value)
Next z
End Sub
Function NurZahlen(Text As String) As Long
Dim i%, tmp As Long
For i = 1 To Len(Text)
If IsNumeric(Mid(Text, i, 1)) Then tmp = tmp & Mid(Text, i, 1)
Next i
NurZahlen = tmp
End Function
Gruß
Heinz