ich suche eine Möglichkeit, die es mir ermöglicht, in der gesamten Spalte
jeweils das erste zusammenhängende Wort aller Zellen zu löschen.
Die Worte sind unterschiedlich lang !
Würde mich über eine Lösung sehr freuen.
Gruß
FR
Sub Erstes_Wort_einschliesslich_Leerzeichen_weg()
''Der Zellbereich muss markiert(selektiert) werden
Dim i As Integer, c As Range
On Error Resume Next
For Each c In Selection.SpecialCells(2, 2)
i = 0
i = InStr(c, " ") + 1
c = Mid(c, i, Len(c))
Next
End Sub
=teil(A1;finden(" ";A1;1)+1;länge(A1))
Formel einfügen,nach unten kopieren und bei bedarf mit
- Kopieren
- Inhalte Einfügen - Werte
die Formeln durch Werte ersetzen
Gruß, Daniel