Einzelne Ziffern aus einer Zahl auslesen in Excel
Schritt-für-Schritt-Anleitung
Um in Excel einzelne Ziffern aus einer Zahl auszulesen und dies über VBA zu erledigen, kannst Du die folgenden Schritte befolgen:
-
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen
und wähle Modul
, um ein neues Modul zu erstellen.
-
Füge den folgenden Code in das Modul ein:
Sub ZiffernAuslesen()
Dim Zeile As Long
Dim Code As String
For Zeile = 1 To ActiveSheet.UsedRange.Rows.Count
Code = Cells(Zeile, 1).Value
Cells(Zeile, 2).Value = Left(Code, 2) ' Erste zwei Ziffern
Cells(Zeile, 3).Value = Mid(Code, 4, 2) ' Ziffern 4 und 5
Cells(Zeile, 4).Value = Mid(Code, 7, 3) ' Ziffern 7, 8 und 9
Next Zeile
End Sub
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
Markiere die Spalte A, die Deine zehnstelligen Zahlen enthält.
-
Drücke ALT + F8
, wähle das Makro ZiffernAuslesen
aus und klicke auf Ausführen
.
Nun solltest Du in den Spalten B, C und D die gewünschten Ziffern auslesen können.
Häufige Fehler und Lösungen
Alternative Methoden
Falls Du die Ziffern ohne VBA auslesen möchtest, kannst Du auch Excel-Formeln verwenden:
- In Zelle B1:
=LINKS(A1, 2)
- In Zelle C1:
=TEIL(A1, 4, 2)
- In Zelle D1:
=TEIL(A1, 7, 3)
Kopiere diese Formeln dann nach unten, um die Ziffern für alle Zeilen zu erhalten.
Praktische Beispiele
Angenommen, Du hast in Zelle A1 den Wert 0135688260
. Nach Ausführung des VBA-Codes oder der Formeln erhältst Du:
Das zeigt, wie Du bestimmte Ziffern aus einer Zelle auslesen kannst.
Tipps für Profis
- Überlege, wie Du die Anzahl der Stellen einer Zahl in Excel überprüfen kannst. Du kannst die Funktion
LÄNGE(A1)
verwenden, um sicherzustellen, dass die Zahl die richtige Länge hat.
- Um die Effizienz beim Auslesen mehrerer Zellen zu erhöhen, kannst Du den VBA-Code anpassen, um nur die benötigten Zeilen zu durchlaufen.
FAQ: Häufige Fragen
1. Wie kann ich die Ziffern aus einer Zahl in einer anderen Excel-Version auslesen?
In den meisten Excel-Versionen ist der VBA-Code identisch. Achte darauf, dass Du die richtige Version des VBA-Editors verwendest.
2. Gibt es eine Möglichkeit, den Prozess zu automatisieren?
Ja, Du kannst das VBA-Makro so einstellen, dass es sich beim Öffnen der Datei automatisch ausführt, um die Ziffern sofort auszulesen.
3. Kann ich den Code anpassen, um mehr Ziffern auszulesen?
Ja, Du kannst die Parameter in den Mid
-Funktionen anpassen, um verschiedene Ziffern zu extrahieren.