EXCEL - VBA: Zahlen in Zelle erhalten, Buchstaben löschen
Inhaltsverzeichnis
- Was ist die Aufgabe?
- Einsatzzweck
- Lösungsansatz
- VBA-Lösung
- Zusammenfassung
Was ist die Aufgabe?
Aus einer Zelle, die sowohl Zahlen als auch Buchstaben enthält, sollen die Buchstaben entfernt werden, während die Zahlen, Leerzeichen und führende Nullen erhalten bleiben.
Einsatzzweck
Manchmal werden Daten, insbesondere Telefonnummern, in einem Format eingegeben oder importiert, das sowohl Zahlen als auch beschreibende Wörter enthält. Um nur die reinen Telefonnummern zu erhalten, können Buchstaben und andere nicht relevante Zeichen entfernt werden.
Lösungsansatz
Durch den Einsatz eines VBA-Makros können wir den Textinhalt einer Zelle analysieren und nur die gewünschten Zeichen beibehalten. Das VBA-Makro wird jeden einzelnen Buchstaben in der Zelle überprüfen und die ungewünschten Buchstaben entfernen.
VBA-Lösung
Function EntferneBuchstaben(strEingabe As String) As String
Dim char As String
Dim i As Integer
Dim resultStr As String
For i = 1 To Len(strEingabe)
char = Mid(strEingabe, i, 1)
If IsNumeric(char) Or char = " " Or char = "+" Then
resultStr = resultStr & char
End If
Next i
EntferneBuchstaben = resultStr
End Function
Um diese VBA-Funktion zu verwenden:
- Drücken Sie
ALT + F11, um den VBA-Editor zu öffnen.
- Einfügen → Modul, um ein neues Modul hinzuzufügen.
- Kopieren Sie den oben stehenden Code und fügen Sie ihn in das Modul ein.
- Schließen Sie den VBA-Editor.
- In Excel können Sie nun die Funktion
EntferneBuchstaben(A1) verwenden, wobei A1 die Zelle mit dem zu bereinigenden Text ist.
Zusammenfassung
Mit einem VBA-Makro kann man Buchstaben aus einer Zelle entfernen und nur Zahlen, Leerzeichen und führende Nullen beibehalten. Dies ermöglicht es, reine Daten, wie Telefonnummern, effizient aus gemischten Daten zu extrahieren.