Text links vom Leerzeichen löschen.

Question

Hallo Excelfreunde,
kann man mit einem Makro in der aktiven Zelle den Text links von einem Leerzeichen (Platzhalter) löschen?

Beispiel: Fa. Huber (Fa. soll gelöscht werden)
Es ist aber nicht immer ein Punkt im Text vorhanden.

Gruß
fedjo

Answer 1

Hallo Fedjo,

mache es mit Hilfsspalte
=WENN(ISTZAHL(FINDEN(" ";A30));TEIL(A30;FINDEN(" ";A30)+1;LÄNGE(A30));A30)
Die kannst dann ja zurück kopieren (Werte)

Gruß Hajo

Answer 2

Hallo Hajo
Danke für die schnelle Antwort.
Wenn es eine Möglichkeit gibt würde ich den Text lieber mit einem Makro löschen, da er immer wieder in verschiedenen Zellen und Spalten entfernt werden soll.

Gruß
Fedjo

Answer 3

Halo Fedjo,

dann setzte diee Formel in VBA um
TEIL(A30;FINDEN(" ";A30)+1;LÄNGE(A30))
Teil =Mid; Finden =Instr; Länge =Len
Das dürfte Dir aber bekannt sein, da Du es unbedingt über VBA machen willst.

Gruß Hajo

Answer 4

Hallo Fedjo,

teste mal diesen Ansatz

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Target.Value = Mid(Target, InStr(Target, " ") + 1, 99)
End If
End Sub

Gruss
Rainer

Answer 5

Hallo Rainer,
deinen Ansatz finde ich super.
Habe den Code in ActiveCell verändert, und damit mein Problem gelöst.

ActiveCell.Value = Mid(ActiveCell, InStr(ActiveCell, " ") + 1, 99)

Danke und ein schönes Wochenende.

Gruß
fedjo