Text aus Zelle entfernen
24.02.2015 08:01:37
Roger
Habe wieder ein Problem.
Ich habe in der Spalte G verschiedene Werte. z.B.
ca. 5000.00
4000,00
0
nichts
Ich möchte nun, dass alle Buchstaben entfernt werden und die , durch . ersetzt werden.
Folgendes Makro, habe ich gefunden. Funktioniert aber nicht richtig und mein VBA ist zu schwach um es anzupassen.
Besten Dank für die Hilfe
Private Sub CommandButton21_Click()
Dim i As Integer
Dim inhalt As String
Dim zelle As Range
Application.ScreenUpdating = False
For Each zelle In Selection
For i = 1 To Len(zelle)
If Asc(zelle.Characters(i, 1).Text) > 47 And Asc(zelle.Characters(i, 1).Text)