Hi VBA Spezialisten,
habe anbei 2 Makros (aus Forum von "Eule") die aus einer Zelle die Buchstaben bzw. Zahlen entfernen. Funktiniert hervorragend. Dank an "Eule".
Meine Frage: Wie muss dass Makro angepasst werde, wenn ich in aktiver Tabelle, in der Spalte C, die Buchstaben bzw. Zahlen entfernen will?
Hilfe wäre prima.
Schonmal Dank frür's drum kümmern.
Mit Gruß dieter (drummer)
'Im Modul (von Eule)
Function BuchstabenRaus(rng As Range) 'z.B. =BuchstabenRaus(A1)
Dim intZ As Integer
For intZ = 1 To Len(rng)
Select Case Asc(Mid(rng, intZ, 1))
Case 48 To 57
BuchstabenRaus = Val(BuchstabenRaus & Mid(rng, intZ, 1))
End Select
Next intZ
End Function
' Im Modul (von Eule)
Function ZahlenRaus(rng As Range) 'z.B. =Zahlenraus(A1)
Dim intZ As Integer
For intZ = 1 To Len(rng)
Select Case Asc(Mid(rng, intZ, 1))
Case 48 To 57
Case Else
ZahlenRaus = ZahlenRaus & Mid(rng, intZ, 1)
End Select
Next intZ
End Function