Ersetzen Funktion erweitern

Forumthread: Ersetzen Funktion erweitern

09.11.2006 12:01:19

achim

Hallo excel freunde
wer kann das erweitern?
es soll auch wenn in einer Zelle NE5 steht daraus 5 machen.
Selection.Replace What:="U35", Replacement:="35", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
danke
achim h.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ersetzen Funktion erweitern

09.11.2006 12:30:25

Beni
danke

09.11.2006 16:45:36

achim

AW: Ersetzen Funktion erweitern

09.11.2006 12:30:25

Beni

Hallo Achim,
hinterlässt nur numerische Werte.
Gruss Beni


Sub ersetzen()
For n = 1 To Len(ActiveCell)
a = Mid(ActiveCell, n, 1)
If IsNumeric(a) = True Then Num = Num & a
Next n
Selection.Replace What:=ActiveCell, Replacement:=Num
End Sub

danke

09.11.2006 16:45:36

achim

hallo beni
eine interessante variante
danke
achim h.

Forumthread: Ersetzen Funktion erweitern

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread