Wie entfernt man ausschließlich den Text aus Zellen, die sowohl Zahlen als auch Text enthalten?
Wie im folgenden Screenshot gezeigt, stellt sich bei Zellen, die eine Mischung aus Zahlen und Text enthalten, die Frage, wie sich sämtlicher Text entfernen und ausschließlich die Zahlen in den Zellen behalten lassen. Die in diesem Artikel beschriebenen Methoden helfen Ihnen dabei.
Nur Text aus Zellen entfernen, die Zahlen und Text enthalten, mithilfe einer benutzerdefinierten Funktion
Text einfach aus Zellen entfernen, die Zahlen und Text enthalten, mit Kutools für Excel
Nur Text aus Zellen entfernen, die Zahlen und Text enthalten, mithilfe einer benutzerdefinierten Funktion
Sie können auch die folgende benutzerdefinierte Funktion nutzen, um Text aus bestimmten Zellen zu entfernen und ausschließlich die Zahlen beizubehalten.
1. Drücken Sie gleichzeitig die Tasten Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Einfügen > Modul. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster ein. Siehe Screenshot:
VBA-Code: Nur Text aus Zellen entfernen, die Zahlen und Text enthalten
Function OnlyNums(strWord As String)
Dim strChar As String
Dim x As Integer
Dim strTemp As String
strTemp = ""
Application.ScreenUpdating = False
For x = 1 To Len(strWord)
strChar = Mid(strWord, x, 1)
If Asc(strChar) >= 48 And _
Asc(strChar) <= 57 Then
strTemp = strTemp & strChar
End If
Next
Application.ScreenUpdating = True
OnlyNums = Val(strTemp)
End Function
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then Cancel = True
End Sub
3. Drücken Sie die Tasten Alt + Q, um das Fenster Microsoft Visual Basic für Applikationen zu schließen.
4. Wählen Sie eine leere Zelle aus, geben Sie die Formel =OnlyNums(A2) in die Formelleiste ein und drücken Sie anschließend Enter, um das Ergebnis zu erhalten. Markieren Sie anschließend die Ergebniszelle und ziehen Sie deren Ausfüllkästchen nach unten, um alle Ergebnisse zu generieren. Siehe Screenshot:
Hinweis: In der Formel steht A2 für die Zelle, aus der Sie Text entfernen und nur die Zahlen behalten möchten. Passen Sie diese Zellreferenz entsprechend Ihren Anforderungen an.
Nun sehen Sie, dass der gesamte Text entfernt wurde und nur noch Zahlen in den angegebenen Zellen verbleiben.
Text einfach aus Zellen entfernen, die Zahlen und Text enthalten, mit Kutools für Excel
In diesem Abschnitt wird das Hilfsprogramm Bestimmte Zeichen löschen von Kutools für Excel empfohlen. Mit diesem Tool entfernen Sie mit nur wenigen Klicks alle nicht-numerischen Zeichen aus Zellen und behalten ausschließlich die Zahlen bei. Gehen Sie dazu wie folgt vor.
1. Wählen Sie die Zellen aus, aus denen Sie Text entfernen und nur Zahlen behalten möchten, und klicken Sie dann auf Kutools > Text > Bestimmte Zeichen löschen.
2. Aktivieren Sie im Dialogfeld Bestimmte Zeichen löschen ausschließlich das Kontrollkästchen Nicht-numerisch und klicken Sie anschließend auf die Schaltfläche OK.
Alle nicht-numerischen Zeichen wurden umgehend aus den ausgewählten Zellen entfernt – wie im folgenden Screenshot veranschaulicht.
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Verwandter Artikel:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins