Alles ausser Zahlen in Excel löschen
Schritt-für-Schritt-Anleitung
Um aus einer Spalte in Excel alles außer Zahlen zu löschen, kannst Du das folgende VBA-Makro verwenden.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Wähle
Einfügen > Modul, um ein neues Modul zu erstellen.
- Kopiere den folgenden Code in das Modul:
Option Explicit
Sub AllesAußerZahlen()
Dim LoLetzte As Long
Dim LoI As Long
If [A65536] = "" Then
LoLetzte = [A65536].End(xlUp).Row
Else
LoLetzte = 65536
End If
For LoI = 1 To LoLetzte
If Not IsNumeric(Cells(LoI, 1)) Then Cells(LoI, 1) = ""
Next LoI
End Sub
- Schließe den VBA-Editor und kehre zu Excel zurück.
- Drücke
ALT + F8, wähle AllesAußerZahlen aus und klicke auf Ausführen.
Dieses Makro löscht alle nicht-numerischen Zeichen in der ersten Spalte (Spalte A). Achte darauf, die Spalte entsprechend anzupassen, falls notwendig.
Häufige Fehler und Lösungen
Alternative Methoden
Falls Du nicht mit VBA arbeiten möchtest, kannst Du auch die Funktion „Suchen und Ersetzen“ verwenden:
- Markiere die betreffende Spalte.
- Drücke
STRG + H, um das Dialogfeld „Suchen und Ersetzen“ zu öffnen.
- Gib in das Feld „Suchen nach“ den Buchstaben oder das Zeichen ein, das Du löschen möchtest.
- Lass das Feld „Ersetzen durch“ leer und klicke auf „Alle ersetzen“.
- Wiederhole den Vorgang für jedes Zeichen, das Du entfernen möchtest.
Diese Methode ist jedoch zeitaufwendiger und weniger effizient, besonders bei großen Datenmengen.
Praktische Beispiele
Angenommen, Du hast in Spalte A die folgenden Telefonnummern:
(089)-42546/234
+49 89 42546 234
089.42546.234
Nach Ausführung des VBA-Skripts wird das Ergebnis in Spalte A wie folgt aussehen:
08942546234
498942546234
08942546234
So kannst Du sicherstellen, dass alle Telefonnummern in einem einheitlichen Format vorliegen.
Tipps für Profis
- Optimierung: Überlege, ob Du den Code so anpassen kannst, dass er mit Arrays arbeitet, um die Laufzeit zu optimieren, besonders bei großen Datenmengen.
- Fehlerbehandlung: Füge Fehlerbehandlung in Dein Makro ein, um sicherzustellen, dass es nicht bei unerwarteten Eingaben abstürzt.
- Benutzerdefinierte Funktionen: Du kannst auch eine benutzerdefinierte Funktion erstellen, die speziell für Deine Anforderungen entwickelt wurde.
FAQ: Häufige Fragen
1. Wie kann ich das Makro anpassen, um nur bestimmte Zeichen zu löschen?
Du kannst die If-Bedingung im Code ändern, um nur spezifische Zeichen zu identifizieren und zu löschen.
2. Funktioniert das Makro in Excel 2016 und älteren Versionen?
Ja, das oben beschriebene VBA-Makro funktioniert in den meisten Excel-Versionen, einschließlich Excel 2016 und älter. Achte darauf, dass Du die Makros in den Excel-Optionen aktiviert hast.