Alle 6-stelligen Zahlen auflisten
Schritt-für-Schritt-Anleitung
Um aus einer Zelle alle 6-stelligen Zahlen herauszufiltern und in neue Zellen zu schreiben, kannst Du folgende Schritte befolgen:
-
Öffne Excel und erstelle ein neues Arbeitsblatt.
-
Gib die Daten in eine Zelle ein, z.B.: 056488 RS, 0421, Dokumente, 05699 056969.
-
Aktiviere die Entwicklertools. Falls Du diese noch nicht aktiviert hast, kannst Du dies unter Datei > Optionen > Menüband anpassen tun.
-
Öffne den VBA-Editor mit ALT + F11.
-
Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf VBAProject (DeinDateiname), wähle Einfügen und dann Modul.
-
Kopiere den folgenden VBA-Code in das Modul:
Sub TrennMich()
rngRegexSplit Selection, "(?:^|\D)(\d{6})(?!\d)", , True
End Sub
Sub rngRegexSplit(src As Range, pattern As String, _
Optional IgnoreCase As Boolean = False, _
Optional GlobalSplit As Boolean = False, _
Optional SplitVert As Boolean = False)
Dim cell As Range
Dim i As Integer, j As Integer, k As Integer
Dim re As Object, m As Object
Set re = CreateObject("vbscript.regexp")
re.pattern = pattern
re.IgnoreCase = IgnoreCase
re.Global = GlobalSplit
For Each cell In src
Set m = re.Execute(cell.Value)
k = 1
For i = 0 To m.Count - 1
For j = 0 To m(i).SubMatches.Count - 1
If SplitVert Then
cell.Offset(k, 0).Value = m(i).SubMatches(j)
Else
cell.Offset(0, k).Value = m(i).SubMatches(j)
End If
k = k + 1
Next
Next
Set m = Nothing
Next
Set re = Nothing
End Sub
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
Wähle die Zellen aus, die Du analysieren möchtest, und führe das Makro TrennMich aus.
Das Makro wird nun alle 6-stelligen Zahlen extrahieren und in die ausgewählten Zellen schreiben.
Häufige Fehler und Lösungen
- Fehler: "Typenübereinstimmung": Dieser Fehler tritt auf, wenn Du die falschen Zellreferenzen verwendest. Stelle sicher, dass die Zellen korrekt ausgewählt sind.
- Keine 6-stelligen Zahlen gefunden: Überprüfe, ob die verwendete Regex (
(?:^|\D)(\d{6})(?!\d)) korrekt ist und dass die Daten im richtigen Format vorliegen.
- Makro funktioniert nicht: Stelle sicher, dass Du die Entwicklertools aktiviert hast und das Makro in einem Modul gespeichert ist.
Alternative Methoden
Wenn Du kein VBA verwenden möchtest, kannst Du auch die Excel-Funktionen nutzen, um 6-stellige Zahlen zu isolieren. Eine Kombination aus FILTER, TEXTSPLIT oder SEARCH könnte verwendet werden, um die Daten in kleinere Teile zu zerlegen und anschließend die 6-stelligen Codes herauszufiltern.
Praktische Beispiele
- Beispiel 1: Gegeben ist der Text
056488 RS, 0421, Dokumente, 05699 056969. Das Makro wird 056488 und 056969 in separaten Zellen auflisten.
- Beispiel 2: In einer Zelle steht
123456A, 654321B, 12345. Das Makro gibt 123456 und 654321 zurück.
Tipps für Profis
- Nutze Regular Expressions in VBA, um spezifischere Filter zu erstellen.
- Experimentiere mit verschiedenen Regex-Mustern, um die gewünschten Zahlenkombinationen zu extrahieren.
- Dokumentiere Deinen Code, um bei zukünftigen Anpassungen schneller arbeiten zu können.
FAQ: Häufige Fragen
1. Was ist eine 6-stellige Zahl?
Eine 6-stellige Zahl ist eine Zahl, die genau sechs Ziffern enthält, wie zum Beispiel 123456.
2. Wie viele Möglichkeiten gibt es bei einem 6-stelligen Code?
Es gibt insgesamt 1.000.000 mögliche Kombinationen für 6-stellige Codes (000000 bis 999999).
3. Kann ich auch 18-stellige Zahlen generieren?
Ja, dafür müsstest Du die Regex und das Makro entsprechend anpassen, um eine längere Zahlenkombination zu berücksichtigen.
4. Wo finde ich eine Liste aller 6-stelligen Codes?
Eine komplette Liste aller 6-stelligen Codes findest Du nicht in Excel, da dies sehr viele Kombinationen wären. Du kannst jedoch einen Zahlengenerator verwenden, um diese zu erstellen.