Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1316to1320
1316to1320
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen automatisch mit "Nullen" füllen

Forumthread: Zahlen automatisch mit "Nullen" füllen

Zahlen automatisch mit "Nullen" füllen
18.06.2013 07:07:13
Dirk
Hallo.
Ich habe immer wieder das Problem, daß ich Artikelnummern von unserem System ins Excel downloade und in Excel dann die ganzen Nullen weg sind.
Beispiel: Unsere Artikelnummer ist 000456 oder 025489 und Excel macht mir nach dem Download daraus 456 und 25489.
Ich füge dann immer relativ aufwendig die Nullen mit: "000"&(Zelle) hinzu.
Jetzt ist das Ganze aber bei fast 5.000 Artikelnummern immer recht nervig.
Geht das nicht irgendwie einfacher, z.B. durch ein Makro, daß Excel mir automatisch so viele Nullen vor die Zahlen stellt, daß sie immer 6-stellig werden?
Danke und Grüße
Dirk

Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlen automatisch mit "Nullen" füllen
18.06.2013 07:12:14
hary
Moin Dirk
Hast du schon probiert:
Vor dem Download die Zellen als Text zu formatieren?
gruss hary

AW: Zahlen automatisch mit "Nullen" füllen
18.06.2013 07:23:45
Dirk
Hallo.
Ja hab ich aber es funktioniert nicht und die Artikelnummern sind auch nicht immer in der gleichen Spalte.

AW: Zahlen automatisch mit "Nullen" füllen
18.06.2013 07:29:31
hary
Moin
Dann hier ein Makro. Bereich markieren und Makro starten. 
Sub NullenVor()
Dim Zelle As Range
For Each Zelle In Selection
Zelle = "'" & Application.WorksheetFunction.Rept("0", 6 - Len(Zelle)) & Zelle
Next
End Sub

gruss hary

Anzeige
oder per Formatierung
18.06.2013 08:18:49
Klaus
Hi,
wenn du die Artikelnummern nur "ansehen" willst und es dir egal ist wie viele Stellen sie wirklich haben, kannst du die Spalte einfach benutzerdefiniert im Format "000000" darstellen.
In beiden Fällen (formatierung oder Makro) musst du aber aufpassen, wenn du mit SVERWEIS, SUMMEWENN oder ähnlichem auf die Zellen zugreifen willst könnte es seltsame Ergebnisse geben.
Grüße,
Klaus M.vdT.

Anzeige
AW: oder per Formatierung
18.06.2013 08:23:55
Dirk
Hallo.
Es ist mir ja nicht egal wie viele Stellen sie haben, es müssen immer 6 Stellen sein.
Ansonsten kann ich nämlich, wie du schon vermutet hast, keine sverweis Abfragen zu anderen Listen machen :-(
Danke und Gruß
Dirk

AW: oder per Formatierung
18.06.2013 08:33:27
Klaus
keine sverweis Abfragen
Hi Dirk,
in den anderen Listen stehen die Artikelnummern als 6-Stellige TEXTE, ja?
https://www.herber.de/bbs/user/85882.xlsx
SVERWEIS findet "000000"-formatierte Zahlen in TEXT-Datenbank, ganz ohne VBA. Gleiche Lösung geht natürlich auch für SUMMEWENN und alles andere.
Wenn in deiner Datenbank sowohl TEXT-formatierte Zahlen (000123) auch echte Zahlen (123456 braucht keine führende Null, könnte als Zahl durchgehen) vorkommen, meldest du dich nochmal.
Grüße,
Klaus M.vdT.
Grüße,
Klaus M.vdT.

Anzeige
AW: oder per Formatierung
18.06.2013 08:44:46
Dirk
Hallo.
Ja, in der Datenbank kommen sowohl Text-formatierte Zahlen als auch echte Zahlen (Artikelnummer ist bereits 6-stellig, z.B. 568987) vor.
Gruß
Dirk

AW: oder per Formatierung
18.06.2013 09:08:06
Klaus
Hi Dirk,
die Makrolösung im anderen Zweig scheint erfolgreich zu sein. Wenn du auch an einer Formellösung interessiert bist, melde dich eben!
Grüße,
Klaus M.vdT.

Anzeige
AW: oder per Formatierung
18.06.2013 09:30:42
Dirk
Hallo Klaus.
Vielen Dank für deine Hilfe!
Ich probiere es mal so, falls ich noch was brauch melde ich mich.
Grüße
Dirk

AW: Zahlen automatisch mit "Nullen" füllen
18.06.2013 08:21:50
Dirk
Hallo.
Wenn ich das Makro ausführe kommt die Fehlermeldung:
Laufzeitfehler'1004'
Die Rept-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden.
Gruß
Dirk

Anzeige
AW: Zahlen automatisch mit "Nullen" füllen
18.06.2013 08:36:40
hary
Moin
Dann liegt es am Inhalt.
Tabelle2
 AB
7000123 
81238979<-hier tritt der Fehler auf

Tabellendarstellung in Foren Version 5.30


Versuch mal: 
Sub NullenVor()
Dim Zelle As Range
For Each Zelle In Selection
If Len(Zelle)

Ansonsten mal eine Bsp.-Mappe hochladen
gruss hary

Anzeige
AW: Zahlen automatisch mit "Nullen" füllen
18.06.2013 08:48:55
Dirk
Hallo Hary!
Ja jetzt passt es. Hat wohl daran gehangen, daß es teilweise schon 6-stellige Nummern gab und das Makro sich daran gestört hat.
Vielen vielen Dank!!
Gruß
Dirk

AW: Zahlen automatisch mit "Nullen" füllen
18.06.2013 09:00:00
Dirk
Jetzt nochmal ne vielleicht ganz blöde Frage...
Das Makro benötige ich ja in verschiedenen Listen und nicht immer im gleichen Worksheet.
Kann ich das Makro irgendwie "global" speichern, damit ich es von jeder Liste aus starten kann oder muss ich das Makro immer in das aktuelle Sheet kopieren und dann ausführen, bzw immer parallel das Worksheet öffnen, in dem das Makro gespeichert ist?
Gruß
Dirk

Anzeige
AW: Zahlen automatisch mit "Nullen" füllen
18.06.2013 09:21:59
Rudi
Hallo,
kopier es in die Personl.xlsm
Kürzer: 
Sub NullenVor()
Dim Zelle As Range
For Each Zelle In Selection
Zelle = "'" & Right("000000" & Zelle, 6)
Next
End Sub

Gruß
Rudi

AW: Zahlen automatisch mit "Nullen" füllen
18.06.2013 09:29:42
Dirk
Hallo.
?in die Personl.xlsm?

Anzeige
AW: Zahlen automatisch mit "Nullen" füllen
18.06.2013 09:35:42
Rudi
Hallo,
ja.
Starte eine Makroaufzeichnung.
Makro speichern in: Persönliche Makroarbeitsmappe
OK.
Aufzeichnung beenden.
Im VB-Editor findest du jetzt Personl.xlsm
Die wird bei jedem Excel-Start geladen.
Gruß
Rudi

AW: Zahlen automatisch mit "Nullen" füllen
18.06.2013 09:43:52
Dirk
Aaahh....und wieder etwas schlauer. Hat sich der Tag doch schon wieder etwas gelohnt! ;-)
Vielen Dank !!!!
gruß
Dirk
Anzeige
;

Forumthreads zu verwandten Themen

Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Alphanumerische Zahl mit Makro hochzählen
Andre´

Hallo alle zusammen,
ich habe in der Zelle A1 folgendes stehen:
2009_0000001
aufgebaut nach Jahr und einer fortlaufenden Nummer.
Wie kann ich es erreichen, dass in dieser Zelle mit jedem Makrodurchlauf
um eins höher gezählt wird.
Bsp.:
Ich starte heute einmal das Mak...
30.01.2009 09:58:00
Thread-ID: 1045302
3 Beiträge
Zahl in Zelle finden und mit 0/1 ausgeben
klaus

Hallo!
Folgendes Problem:
In jeder Zelle einer Spalte sind Zahlenwerte jeweils mit Kommata getrennt. Ich möchte nun einen beliebigen Wert auslesen lassen, d.h. wenn dieser Wert vorkommt die Zahl 1 in die Zelle rechts daneben schreiben lassen.
Wenn ich also aus der Zelle (10,10012,30...
27.02.2009 10:54:59
Thread-ID: 1054649
2 Beiträge
Makro Zahlen mit drei 0 löschen
Jeron

Hallo zusammen,
kann mir jemand bitte bei einem Makro helfen ?
Das Makro soll aus einer beliebig langen Tabelle alle Nummern in der ersten Spalte überprüfen.
Wenn die Zahl mit drei Nullen beginnt, soll die gesamte Zeile gelöscht werden.
Vielen Dank für eure Hilfe!!
Beste Grü...
07.04.2009 11:07:59
Thread-ID: 1067314
6 Beiträge
VBA für Zahlen mit drei Nullen
Jeron

Hallo zusammen,
ich bräuchte bitte ein Makro für folgenden Fall: in meiner Spalte liegen drei Sorten von Zahlen vor
1) 0001234 : In Zeile 1) und 2) stehen die gleichen Zahlen, ich brauch aber nur die Zahl aus Zeile 2)
2) 1234 : " " Zeile 1) muss gelöscht werden
3) 00012...
07.04.2009 16:27:50
Thread-ID: 1067456
4 Beiträge
Letzte Stelle einer Zahl mittels VBA in 0 umwand.
Josef

Guten Morgen!
Ich habe in der Spalte A in einem Arbeitsblatt eine Menge siebenstelliger Zahlen, am Schluß mit einer Prüfziffer versehen, stehen. Ich möchte nun, wenn möglich, mittels VBA immer die letzte Zahl in eine 0 umwandeln.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
10.04.2009 06:26:04
Thread-ID: 1068138
12 Beiträge
Diagramm, Sekundärachse mit neg. Zahlen
Tina

Das ist sicher eine Frage, die schon oft gestellt wurde...ist nämlich kein neues Problem:
2 Datenreihen mit z.T. neg. Zahlen eine in % (Säule) die andere absolut (Linie)...also brauche ich 2 Achsen
Wie kann ich der Sekundärachse beibringen, daß auch hier die horizontale Achse bei 0 schn...
12.06.2009 13:36:43
Thread-ID: 1080986
9 Beiträge
Anzeige
Dateien Zählen mit VBA 2003 Mac
Jan

Hallo!
Wie erstellt mann einen Macro die die Anzahl an Dateien in einen Verzeichnis ermittelt. Dazu habe ich verschieden Beispiele gefunden die mit "FileSearch" arbeiten. Leider verwende ich Excel 2003 für Apple, wo dieser Funktion nicht vorhanden ist. Vielleicht kennt jemand einen Workarou...
23.06.2009 16:02:28
Thread-ID: 1083851
3 Beiträge
Anzeige
Suchfunktion für 6stellige Zahlenkolonnen
Florian

Hallo Ihr alle.
Ich habe ein VBA-Skript geschrieben welches beim klick auf ein Textfeld die enthaltene Zahlenkolonne übernimmt und in einer anderen Excel-Tabelle die entsprechende Zahl sucht. Wird diese gefunden wird der Text zu der Zahl in der benachbarten Spalte in einer MsgBox ausgegeben...
09.07.2009 10:01:09
Thread-ID: 1087342
5 Beiträge
Anzeige
Zählenwenn mit Teilergeb. bei Suche ">00:20"
manasse

Hallo zusammen,
ich habe eine Tabelle mit Autofilter, in der in einer Spalte Zeiten stehen. Nun möchte ich bei eingeschaltetem Autofilter zählen, wie oft in der Spalte eine Zelle mit einer Zeit größer 20 Minuten vorkommt.
Die Formel
=SUMMENPRODUKT(TEILERGEBNIS(3;INDIREKT("C"&ZE...
13.07.2009 15:24:18
Thread-ID: 1088236
6 Beiträge
Zellen mit Wert 0 löschen
Mario

Hallo zusammen,
zellen mit wert = 0 zu löschen sollte eigentlich kein Problem sein, aber ich weiß bei untenstehendem Code nicht, wo ich dies einfügen soll. Wenn ich nach IsEmpty(rngZelle) noch ein Or not IsNull(rngZelle) hinsetze, dann verschiebt mir das Makro auch die leeren Zellen....und...
10.08.2009 10:42:10
Thread-ID: 1094641
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zahlen automatisch mit "Nullen" füllen

Schritt-für-Schritt-Anleitung

Um Zahlen in Excel automatisch mit führenden Nullen aufzufüllen, somit sicherzustellen, dass sie immer 6-stellig sind, kannst du folgende Schritte befolgen:

  1. Zellen auswählen: Markiere den Bereich, der die zu bearbeitenden Zahlen enthält.

  2. Makro einfügen: Öffne den VBA-Editor mit ALT + F11.

  3. Modul erstellen: Klicke auf "Einfügen" und wähle "Modul".

  4. Code einfügen: Füge den folgenden VBA-Code ein:

    Sub NullenVor()
   Dim Zelle As Range
   For Each Zelle In Selection
       Zelle = "'" & Right("000000" & Zelle, 6)
   Next
End Sub

  5. Makro ausführen: Schließe den VBA-Editor und führe das Makro über ALT + F8 aus. Wähle das Makro „NullenVor“ und klicke auf „Ausführen“.

Jetzt werden alle ausgewählten Zellen mit führenden Nullen aufgefüllt!

Häufige Fehler und Lösungen

  • Laufzeitfehler '1004': Dieser Fehler tritt auf, wenn der Inhalt der Zelle nicht korrekt ist. Stelle sicher, dass die Zellen keine bereits 6-stelligen Zahlen enthalten.
  • Zahlen werden nicht korrekt formatiert: Achte darauf, dass die Zellen als Text formatiert sind, bevor du das Makro ausführst. Gehe dazu zu „Start“ > „Zahl“ > „Text“.
  • Makro nicht verfügbar: Wenn das Makro nicht in anderen Arbeitsmappen verfügbar ist, speichere es in der PERSONAL.XLSM, damit du es in jeder Excel-Datei verwenden kannst.

Alternative Methoden

  1. Benutzerdefinierte Formatierung: Du kannst die Zellen auch einfach im benutzerdefinierten Format "000000" formatieren. Dadurch erscheinen die Zahlen mit führenden Nullen, ohne den Wert zu ändern.

  2. Excel-Formel: Eine einfache Formel, die du verwenden kannst, lautet:

    =TEXT(A1;"000000")

    Dabei wird die Zahl in Zelle A1 in eine 6-stellige Zahl umgewandelt.

Praktische Beispiele

  • Beispiel 1: Du hast eine Spalte mit Artikelnummern, die teilweise nur aus 3 oder 4 Ziffern bestehen. Wenn du das Makro anwendest, wird 456 zu 000456 und 25 zu 000025.

  • Beispiel 2: Wenn du eine Liste von Bestellnummern hast und sicherstellen möchtest, dass alle Bestellnummern immer 6-stellig sind, kannst du die oben genannten Methoden anwenden.

Tipps für Profis

  • Wenn du regelmäßig mit Artikeln oder Bestellungen arbeitest, die immer 6-stellig sein müssen, speichere dein Makro in der PERSONAL.XLSM, um es jederzeit verfügbar zu haben.
  • Verwende die Formel =TEXT(A1;"000000"), um während der Eingabe sofort die Formatierung zu sehen, ohne das Makro ausführen zu müssen.
  • Achte darauf, dass du die Daten vor der Anwendung von Makros oder Formeln sicherst, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass meine Excel-Zahlen immer 6-stellig sind?
Du kannst entweder das VBA-Makro verwenden oder die Zellen im benutzerdefinierten Format "000000" formatieren.

2. Was mache ich, wenn ich eine Fehlermeldung beim Ausführen des Makros erhalte?
Überprüfe den Inhalt der Zellen. Der Fehler tritt oft auf, wenn die Zellen bereits 6-stellige Zahlen enthalten oder nicht korrekt formatiert sind.

3. Kann ich das Makro in verschiedenen Excel-Dateien verwenden?
Ja, speichere das Makro in der PERSONAL.XLSM, damit es bei jedem Excel-Start verfügbar ist.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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