Punkt im Text, Links vom Punkt alle Zeichen löschen

Question

Hallo,
wenn in der ActivenCell ein Punkt im Text vorhanden ist, können dann die Zeichen l links vom Punkt einschließlich den Punkt mit einem Makro gelöscht werden?


A1 A1
H. Meier Meier
Hr.Meier Meier
Hr. Meier Meier


Gruß
fedjo

Answer 1

Hallo fedjo,

wenn Du eine Formellösung meinst, dann ....

=GLÄTTEN(WECHSELN(A1;TEIL(A1;1;FINDEN(".";A1));""))

Gruß
Rainer

Answer 2

Hallo Rainer,
da es immer ganz verschiedene Zellen sind, ist nur eine Lösung mit VBA möglich.

Danke Rainer für die schnelle Antwort.

Gruß
fedjo

Answer 3

Hallo fedja,

per Makro könntest du das z.B. wie folgt lösen, wenn nur ein Punkt im Text vorhanden ist:

Sub Kuerzen()

Dim Textteile As Variant

Textteile = Split(ActiveCell.Value, ".")
ActiveCell = Trim(Textteile(UBound(Textteile)))

End Sub

Gruß

M.O.

Answer 4

Hi Fedjo,

ActiveCell = LTrim(Mid(ActiveCell, InStr(ActiveCell, ".") + 1))

Bis später,
Karin

Answer 5

Hallo,
@ M.O.
@ Karin,
beide Codes funtionieren super, ganau nach meiner Vorstellulng.
Habe mich für den von Karin enschieden da er etwas kürzer ist .

Danke noch mal für die Hilfe.
Schönes Wochenende.

Gruß
fedjo