Gibt es in Excel 2013 eine Formel, mit der Ziffern aus Zeilen entfernt werden können?
Ich möchte nur Buchstaben und Symbole hinterlassen.
Die Formel muss für Zahlen funktionieren, die an jeder beliebigen Stelle stehen können, obwohl ihnen immer ein Leerzeichen vorangestellt ist.
Suchen und Ersetzen funktioniert nicht, da es sich um unterschiedliche Zahlenreihen handelt und vor manchen ein Komma oder nur ein Name steht.
Ausgangstabelle:
- Baleys, 23 Glencoe Road
- Sorglos, Daten Nr. 4 Kabine
- Dundas Village, 222 Geheimer Garten
- 88 Byron Crescent, Verona
Was ich möchte:
- Baleys, Glencoe Straße
- Sorglos, Daten Keine Kabine
- Dundas Village, Geheimer Garten
- Byron Crescent, Verona
Antwort1
Ich möchte VBA-Makros vorschlagen. Dies ist die schnellste Methode und zudem einfach zu verwenden.
Function ExtractTextOnly(pWorkRng As Range) As String
Dim xValue As String
Dim OutValue As String
xValue = pWorkRng.Value
For xIndex = 1 To VBA.Len(xValue)
If Not VBA.IsNumeric(VBA.Mid(xValue, xIndex, 1)) Then
OutValue = OutValue & VBA.Mid(xValue, xIndex, 1)
End If
Next
ExtractTextOnly = OutValue
End Function
Wie es funktioniert:
- Um den VB-Editor zu öffnen, drücken Sie entwederAlt+F11oderRechtsklickdie Registerkarte Blatt dann drückenCode anzeigen.
- Klicke aufEinfügenund wählen SieModul.
- Pastediesen Code inMModul undSchließenVB-Editor.
Achtung
Vergessen Sie nichtSSpeichern Sie die Arbeitsmappe alsArbeitsmappe mit Makros.
- Formel in Zelle
M52
(ausfüllen):
=ExtractTextOnly(L52)
Passen Sie die Zellbezüge in der Formel nach Bedarf an.