Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: alphanumerische Zellen um Text bereinigen

alphanumerische Zellen um Text bereinigen
30.06.2004 15:11:51
Russi
Hallo Zusammen,
hat jemand von euch einen Ansatz, wie ich aus allen Zellen in einem Bereich alle alphabetischen Zeichen entfernen kann, sollen nur die Zahlen enthalten bleiben. Zellen haben kein konstantes Erscheinungsbild.
Finde in der Recherche nichts passendes...
Beispiel 1:
"AUFTRAG-NR. 84275" soll "84275" werden
Beispiel 2:
Achtung, hier soll nur die Währung übrig bleiben, Rest kann raus...!
Von den Stellen her kann die Währung aber auch "###.##0,00" aussehen...
"PLZ 55758 BETR. 86,77" soll "86,77" werden
Für Feedback besten Dank
Andreas
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alphanumerische Zellen um Text bereinigen
WernerB.
Hallo Andreas,
markiere den relevanten Bereich und starte dann dieses Makro:
Option Explicit

Sub Andreas()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Selection
If c.Text <> "" Then
If InStrRev(c.Text, " ") > 0 Then
If IsNumeric(Right(c.Text, Len(c.Text) - InStrRev(c.Text, " "))) Then
c.Value = CDbl(Right(c.Text, Len(c.Text) - InStrRev(c.Text, " ")))
End If
End If
End If
Next c
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
Anzeige
Super...
01.07.2004 15:42:50
Russi
... Klasse Ansatz.
Vielen Dank und noch einen schönen Tag...
Andreas
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige