Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Einzelne Ziffern aus Zahl auslesen

Forumthread: Einzelne Ziffern aus Zahl auslesen

Einzelne Ziffern aus Zahl auslesen
23.09.2003 08:08:28
Jürgen K.
Guten Morgen Excel Experten.

Ich habe in einer Spalte (A) untereinander mehrere zehnstellige Zahlen, die jeweils einen bestimmten Code darstellen. Ich möchte nun jeweils in die Spalte rechts neben der jeweiligen Ziffer zunächst die ersten beiden Ziffern der zehnstelligen Zahl darstellen (Spalte B) dann in Spalte C die Ziffern 4 und 5 und in Spalte D die Ziffern 7, 8 und 9. Das sieht dann z. B. so aus:
Wert in Zelle A1: 0135688260 Ausgabe in Zelle B1: 01, in Zelle C1: 56 und in Zelle D1: 826.

Über eine Formel würde ich das hinbekommen, ich muß dies aber in jedem Fall über VBA lösen.

Wie bekomme ich das hin?

Wie immer vielen Dank im voraus, Jürgen.
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelne Ziffern aus Zahl auslesen
23.09.2003 08:40:10
BerndE
Hallo Jürgen,

versuch's mal mit folgendem Code:

For Zeile = 1 To ActiveSheet.UsedRange.Rows.Count
Code = Cells(Zeile, 1)
Cells(Zeile, 2) = Left(Code, 2)
Cells(Zeile, 3) = Mid(Code, 4, 2)
Cells(Zeile, 4) = Mid(Code, 7, 3)
Next

Ich hoffe, es funzt...

Gruß
Bernd

www.bernds.page.de.vu
Anzeige
AW: Einzelne Ziffern aus Zahl auslesen
23.09.2003 09:06:51
Jürgen K.
Hi Bernd,

funktioniert einwandfrei!
Vielen Dank dafür!

Gruß, Jürgen
Gern geschehen !!! oT
23.09.2003 09:26:39
BerndE
.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

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:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. 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
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Markiere die Spalte A, die Deine zehnstelligen Zahlen enthält.

  6. 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

  • Fehler: "Typkonflikt"

    • Lösung: Stelle sicher, dass in Spalte A nur Zahlen stehen. Texte oder leere Zellen könnten diesen Fehler verursachen.
  • Fehler: "Index außerhalb des Bereichs"

    • Lösung: Überprüfe, ob die Zellen in Spalte A tatsächlich zehnstellige Zahlen enthalten. Ansonsten könnte der Code versuchen, mehr Ziffern auszulesen, als vorhanden sind.

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:

  • B1: 01
  • C1: 56
  • D1: 826

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige