Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: führende Nullen

führende Nullen
08.05.2014 08:21:30
Wilfied
Hallo Leutz,
ich habe eine Access Datenbank in der sich mehr als 500k an Datensätzen befinden.
Aus diesem Gesamtvolumen extrahiere ich wöchentlich eine varierende Zahl x und konvertiere diese nach Excel. Diese Daten werden dann in SAP weiterverarbeitet.
In den Datensätzen befinden sich Teilnummern die überwiegend 7 stellig sind. Allerdings gibt es auch Teilnummern mit nur 5 oder 6 Stellen.
ich brauche aber immer 7 Stellen für SAP
Beim Konvertieren aus Access nach Excel wird die in Access definierte vorgestellte Null von Excel ignoriert und in der Excel-Zelle steht die 6 stellige Ziffer.
In Access gibt es zwar die Möglichkeit mit Format zu exportieren, das funktioniert aber bis max 64k an Datensätzen und das ist manchmal zu wenig.
Die Teilnummer in Access bereits als Textfeld zu definieren geht auch nicht, da die Rohdaten für Access als Zahl definiert sind und bei einer Aktualiserung ein numerisches Feld erwartet wird.
Ich kann jetzt in Excel das Zahlenformat so einstellen, dass mir die führende Null gezeigt wird, der Zellinhalt bleibt aber letztendlich 5 oder 6 stellig und SAP ist am Zahlenformat wenig interessiert.
gibt es eine Möglichkeit, die Zellen mit den Teilnummern so zu manipulieren, dass immer sieben Stellen in der Zelle sind?
Grüße Will

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: führende Nullen
08.05.2014 08:29:36
Hajo_Zi
Hallo Will,
Hilsspalte

Tabelle1
 JK
2410000001

verwendete Formeln
Zelle Formel Bereich N/A
K24=TEXT(J24;"0000000")  

Zahlenformate
Zelle Format Wert
J24 '0000000 1
Zellen mit Format Standard werden nicht dargestellt
Excel-Inn.de
Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 17.17 einschl. 64 Bit


oder VBA.

Anzeige
AW: führende Nullen
08.05.2014 08:38:06
Hajo_Zi
Hallo will,
und die VBA Lösung.
Option Explicit
Sub führende()
Dim LoI As Long                                 ' Schleifen Variable
Dim LoLetzte As Long                            ' Letzte Zeile
' 11 = Spalte K
Application.ScreenUpdating = False              ' Bildschirm aus
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 11)), Cells(Rows.Count, 11).End(xlUp).Row, Rows. _
Count)
For LoI = LoLetzte To 1 Step -1                 ' Schleife über alle Datensatze
If Cells(LoI, 11)  "" Then
Cells(LoI, 11).NumberFormat = "@"
Cells(LoI, 11) = Format(Cells(LoI, 11), "0000000")
End If
Next LoI
Application.ScreenUpdating = True               ' Bildschirm ein
End Sub
Gruß Hajo

Anzeige
AW: führende Nullen
08.05.2014 08:44:51
Wilfied
mal wieder ... !!! Bestens !!!!

AW: führende Nullen
08.05.2014 08:42:49
UweD
Hallo
so?
Sub Sieben()
On Error GoTo Fehler
Dim TB1
Dim SP%, Zelle
Application.ScreenUpdating = False
'*** Stammdaten Anfang
Set TB1 = ActiveSheet
SP = 1 'Spalte A
'*** Stammdaten Ende
For Each Zelle In TB1.Columns(SP).SpecialCells(xlCellTypeConstants, 1)
Zelle.NumberFormat = "@"
Zelle.Value = Format(Zelle.Value, "0000000")
Next
'*** Fehlerbehandlung
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err. _
Clear
End Sub
Gruß UweD
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Führende Nullen in Excel hinzufügen und anzeigen


Schritt-für-Schritt-Anleitung

Um führende Nullen in Excel zu einer Zahl hinzuzufügen, kannst du die folgende Schritt-für-Schritt-Anleitung nutzen:

  1. Zelle auswählen: Wähle die Zellen aus, in denen du führende Nullen hinzufügen möchtest.
  2. Zahlenformat ändern: Klicke mit der rechten Maustaste auf die ausgewählten Zellen und wähle „Zellen formatieren“.
  3. Benutzerdefiniertes Format: Wähle „Benutzerdefiniert“ aus der Liste. Gib im Formatfeld 0000000 ein (für 7 Stellen).
  4. Formel verwenden: Alternativ kannst du die Formel =TEXT(A1;"0000000") verwenden, um Zellen mit führenden Nullen zu erstellen.

Für eine VBA-Lösung kannst du folgenden Code verwenden:

Option Explicit
Sub führendeNullenHinzufügen()
    Dim LoI As Long
    Dim LoLetzte As Long
    LoLetzte = Cells(Rows.Count, 1).End(xlUp).Row ' Letzte Zeile in Spalte A
    For LoI = 1 To LoLetzte
        Cells(LoI, 1).NumberFormat = "@"
        Cells(LoI, 1) = Format(Cells(LoI, 1), "0000000")
    Next LoI
End Sub

Häufige Fehler und Lösungen

  • Problem: Die führenden Nullen werden nicht angezeigt.

    • Lösung: Stelle sicher, dass das Zahlenformat auf „Text“ oder ein benutzerdefiniertes Format gesetzt ist.
  • Problem: Nach dem Export aus Access erscheinen die Teilnummern ohne führende Nullen.

    • Lösung: Überprüfe die Datenquelle und stelle sicher, dass die Teilnummern als Text exportiert werden. Alternativ kannst du nach dem Import in Excel das Format ändern.
  • Problem: VBA-Code funktioniert nicht.

    • Lösung: Stelle sicher, dass die Makros aktiviert sind und der Code korrekt in das VBA-Editor-Fenster eingefügt wurde.

Alternative Methoden

  1. Excel Formel: Du kannst die Formel =TEXT(A1;"0000000") in einer neuen Zelle verwenden, um die Zahl in einen Text mit führenden Nullen umzuwandeln.

  2. Zellen mit Nullen auffüllen: Verwende die Funktion =REPT("0",7-LEN(A1))&A1, um führende Nullen dynamisch zu einer Zahl hinzuzufügen.

  3. Access führende Nullen hinzufügen: Wenn du Daten aus Access importierst, kannst du in Access das Format im Exportdialog anpassen oder eine Abfrage erstellen, die die Zahlen als Text formatiert.


Praktische Beispiele

  • Beispiel 1: Für eine Teilnummer wie „123“ möchtest du diese in „0000123“ umwandeln. Verwende die Formel =TEXT(A1;"0000000"), wobei A1 die Zelle mit der Zahl ist.

  • Beispiel 2: Wenn du eine Liste von 5-stelligen Zahlen hast und alle auf 7 Stellen bringen möchtest, setze das benutzerdefinierte Format 0000000 für die gesamte Spalte.


Tipps für Profis

  • Nutze VBA, um die führenden Nullen in großen Datensätzen automatisch hinzuzufügen. So sparst du Zeit und vermeidest Fehler.
  • Achte darauf, die Daten vor der Verarbeitung immer zu sichern, insbesondere wenn du mit VBA arbeitest.
  • Verwende die Funktion TEXTJOIN oder CONCATENATE, um Text und Zahlen zu kombinieren und dabei führende Nullen zu erhalten.

FAQ: Häufige Fragen

1. Was sind führende Nullen?
Führende Nullen sind Nullen, die vor einer Zahl stehen, um die Gesamtzahl der Ziffern zu erhöhen. Sie sind besonders nützlich, um die Formatierung zu vereinheitlichen.

2. Wie kann ich führende Nullen in einem Excel-Dokument anzeigen?
Du kannst das Format der Zelle auf „Text“ setzen oder ein benutzerdefiniertes Zahlenformat verwenden, um die führenden Nullen anzuzeigen.

3. Gibt es eine Möglichkeit, führende Nullen automatisch hinzuzufügen?
Ja, du kannst VBA verwenden, um führende Nullen in einer Vielzahl von Zellen automatisch hinzuzufügen. Der bereitgestellte VBA-Code kann dir dabei helfen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige