Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlende "0" am Anfang ? Mit Beispiel

Forumthread: Fehlende "0" am Anfang ? Mit Beispiel

Fehlende "0" am Anfang ? Mit Beispiel
02.03.2006 15:13:50
Fabio
Hallo zusammen,
danke der Tips und Hilfen im Forum habe ich das VBA-Script hinbekommen.
Problem :
Er sucht nach dem "letzten Wert der Spalte 9"
und da steht im Beispiel : 060118
Bei Ausführen des Makros findet er auch den Wert - der heisst aber plötzlich 60118".
Wie bringe ich Excel bei, das der sowohl beim kopieren als auch beim "Makroausführen" die "0" behält?
Danke!
Fabio
https://www.herber.de/bbs/user/31572.xls
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlende "0" am Anfang ? Mit Beispiel
02.03.2006 15:28:13
Reinhard
Hi Fabio,
im Editor Einfügen Modul, dort gehört der Code typischerweise hin, den in DieseArbeitsmappe löschen.
Option Explicit

Sub letzte_zeile_kopieren()
Dim finde
Rows(Range("A65535").End(xlUp).Row).Copy
Rows(Range("A65535").End(xlUp).Row + 1).Insert
Rows(Range("A65535").End(xlUp).Row).Select
finde = Cells(ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row, 9).Text
Application.Dialogs(xlDialogFormulaReplace).Show finde
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Fehlende "0" am Anfang ? Mit Beispiel
02.03.2006 15:37:50
IngGi
Hallo Fabio,
du musst unterscheiden zwischen Zahlen als Text und Zahlen als Wert. Zahlen als Wert können keine führenden Nullen haben, das wäre sinnlos. In deiner Datei, in Zelle I19 steht 60118 als Wert drin. Die führende Null ist nur optisch, infolge des eingestellten Zahlenformates da. Der tatsächliche Inhalt der Zelle ist aber 60118 als Wert, ohne führende Null. Wenn du den Wert 60118 siebenstellig mit führender Null in eine Variable einlesen willst, musst du dazu eine Stringvariable nehmen und den Wert 60118 unter Verwendung des Zahlenformates "0000000" in einen String umwandeln. Also:
Sub einlesen()
Dim strMeinText As String
strMeinText = Format(Range("I19"), "0000000")
End Sub
Gruß Ingolf
Anzeige
Ändert den Wert nicht ?
02.03.2006 16:05:33
Fabio
Hallo zusammen,
Danke für die schnelle Info's.
a) habe ich das ganze jetzt in ein Modul gepackt
B) lautet das jetzt wie folgt :

Sub letzte_zeile_kopieren()
Dim strMeinText As String
strMeinText = Format(Range("I19"), "0000000")
Dim finde
Rows(Range("A65535").End(xlUp).Row).Copy
Rows(Range("A65535").End(xlUp).Row + 1).Insert
Rows(Range("A65535").End(xlUp).Row).Select
finde = Cells(ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row, 27).Text
Application.Dialogs(xlDialogFormulaReplace).Show finde
End Sub

Nun das Problem : Der "Wert 060118" steht nun (weil ich meine Tabelle geändert habe in der Spalte AA) - wie muss ich das Script anpassen, damit der dann immer das Format auf das Zahlenformates "0000000" ändert ?
Danke !
Fabio
die geänderte Datei: https://www.herber.de/bbs/user/31577.xls
Anzeige
AW: Ändert den Wert nicht ?
02.03.2006 16:27:57
IngGi
Hallo Fabio,
so müßte es gehen:

Sub letzte_zeile_kopieren()
Rows(Range("A65536").End(xlUp).Row).Copy Destination:=Range("A65536").End(xlUp).Offset(1, 0)
Cells(Range("A65536").End(xlUp).Row, 27).NumberFormat = "000000"
End Sub

Gruß Ingolf
Anzeige
Kein Fenster öffnet sich mehr
02.03.2006 16:33:14
Fabio
Hei,
Danke - jetzt scheint es das richtige Format zu sein - aber das "Suchen/Ersetzen" Fenster mit der "vorbelegung" öffnet sich jetzt nicht mehr :-(
Fabio
AW: Kein Fenster öffnet sich mehr
02.03.2006 16:45:57
IngGi
Hallo Fabio,
das hab ich übersehen. Diesen Teil muss man natürlich auch noch anhängen. Komplett sieht das dann so aus:

Sub letzte_zeile_kopieren()
Rows(Range("A65536").End(xlUp).Row).Copy Destination:=Range("A65536").End(xlUp).Offset(1, 0)
Cells(Range("A65536").End(xlUp).Row, 27).NumberFormat = "000000"
Application.Dialogs(xlDialogFormulaReplace).Show _
Format(Cells(Range("A65536").End(xlUp).Row, 27), "000000")
End Sub
Gruß Ingolf
Anzeige
Das war es - vielen Dank !
03.03.2006 08:40:33
Fabio
Vielen Dank - jetzt funktioniert es so wie es sollte !
;

Forumthreads zu verwandten Themen

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
Tabellenblatt auf Name (Anfang) überprüfen
Joachim

Hallo,
bevor ich einen Code ausführe , möchte ich per Makro überprüfen, ob es in meiner Mappe bereits ein Tabellenblatt gibt, das mit "Liste" beginnt. Tabellenblätter heisen bei mit zB "Liste Werkzeug" oder "Liste Material"..
Wenn ein Tabellenblatt in den ersten 5 Zeichen mit "Liste" be...
13.01.2010 15:37:07
Thread-ID: 1129534
4 Beiträge
Nullwerte im Diagramm nicht anzeigen
Stephan

Hallo,
habe jetzt schon ne ganze weile im Forum nach einer passenden Lösung gesucht und nicht gefunden.
Nun mein kleines Problem.
Ich möchte lediglich im Diagramm selber alle Balken die den Wert 0 haben nicht anzeigen. Also die 0 einfach ausblenden. Habe auch das mit dem Wert #NV od...
10.04.2010 19:51:41
Thread-ID: 1150986
2 Beiträge
Nullwerte im Diagramm nicht anzeigen
Savarol

Hai Leute,
ich stehe kurz vor dem mentalen Suizid. Ich versuche ein Säulendiagramm aus einer Liste zu erstellen, die #NV-Werte enthält. In den Zellen ist eine WENN(A1>0;A1;#NV) drin. Ich habe das in einer 2003-Mappe, da funktioniert es, kann es aber selbst da nicht reproduzieren (trotz E...
10.02.2011 10:03:12
Thread-ID: 1200009
3 Beiträge
30 Tabellen mit je 60 Blättern zusammenführen
Ernst

Hallo liebe Community,
ich stehe vor folgendem Problem. Ich habe 30 Excel-Dokumente, die jeweils aus ca. 60 Blättern bestehen. Um vielleicht erstmal zu erklären, was ich gerne möchte: Die 60 Blätter beinhalten immer die gleichen Tabellen - nur mit anderen Inhalten. Ich würde also gerne, das...
15.06.2015 12:54:19
Thread-ID: 1430965
3 Beiträge
Wenn 0 am Anfang einer Zahlenfolge, dann löschen
Justin

Hallöchen allerseits....
ich stoße an meine Grenzen:
ich teile durch ein Makro eine Vertragsnummer, zB "AB 0123456789" wird zu AB und 0123456789 in 2 nebeneinanderliegenden Zellen.
Die Zahlenfolge ist nicht immer gleich lang. Am Anfang können jetzt aber zwischen 1-3 Nullen sein, mu...
08.07.2016 09:38:23
Thread-ID: 1503272
4 Beiträge
Anzeige
Tabellenblätterinhalt in Excel2016 zuammenführen
ackibaun

Guten Tag,
betr. Office 365 (Excel 2016)
ich habe eine ganze Reihe von Tabellenblätter innerhalb einer Excel Datei (jeweils ein Jahr) mit Monatsbuchungskonteneinträgen (im Beispiel Muster ganz einfach komprimiert - da es sich um eine grosse Menge von Monatseinträgen mit vielen Arten un...
26.09.2016 09:51:10
Thread-ID: 1516316
5 Beiträge
AW: Tabellenblätterinhalt in Excel2016 zuammenführ
ackibaun

an Bernd
vielen Dank das mit den Codes anzeigen und einfügen ging soweit gut.
Aber wie wo erstelle ich jetzt diese Schaltfläche...
Wie muss ich dann abspeichern?
Danke nochmal für eine Rückinfo
27.09.2016 23:33:08
Thread-ID: 1516779
2 Beiträge
Anzeige
Nullwerte nicht in Diagramm und Legende anzeigen
Rainer

Hallo,
ich habe folgendes Problem: Meine Tabelle, die als Datenbasis meiner Diagramme dient, ändert sich dynamisch. D.h. ich habe immer wieder Nullwerte in der Diagrammbeschriftung und der Legende. Diese möchte ich aber ausgeblendet habe.
Ich habe zu diesem Thema schon in verschiedenen...
26.06.2017 09:52:15
Thread-ID: 1565765
4 Beiträge
Ziffer 0 am Anfang in CSV Datei
Helmut

Hallo, mein Problem ist wenn ich in Excel eine Zelle Formatiere als Text und Trage dort den Wert "05" ein, dann zeigt excel mir auch diese Zahl.
Wenn ich diese Datei dann als *.CSV Datei speichere geht die Information 0(Null) vor der 5 verloren. Ich brauche aber die Null vor der 5 was kann...
20.06.2003 08:55:32
Thread-ID: 271465
2 Beiträge
Nullwerte in Diagramm nicht anzeigen
Andreas
Hallo
also ich habe folgendes Problem:
Ich habe eine Tabelle mit Formeln, die Egrebnisse sollen in einem Diagramm
dargestellt werden. Alle Formelergebnisse mit dem Wert 0 oder ohne Wert ("")
sollen nicht dargestellt werden.
Ich habe es schon mit EXTRAS\OPTIONEN\DIAGRAMM\LEERE ZELLEN p...
05.01.2004 15:10:33
Thread-ID: 359018
6 Beiträge
Anzeige
Zeilen mit Nullwerten nicht im Diagramm anzeigen
Christoph Heynen
Hallo,
mit VBA möchte ich ein xy-Diagramm erstellen, bei dem Nullwerte nicht als Reihe mit aufgenommen werden. Das Erstellen des Diagramms funktioniert ganz gut. Nur das Abfragen der Zeilen mit Nullwerten will nocht nicht klappen (siehe Worksheet-Abfrage unten im code) Kann mir jemand helfen. Da...
29.01.2004 10:24:17
Thread-ID: 372795
3 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

Fehlende "0" am Anfang in Excel anzeigen

Schritt-für-Schritt-Anleitung

Um sicherzustellen, dass Excel die "0" am Anfang einer Zahl korrekt anzeigt, kannst du folgende Schritte befolgen:

  1. Zellenformat anpassen: Wähle die Zelle oder den Bereich aus, in dem die Zahl steht. Rechtsklicke und wähle „Zellen formatieren“.
  2. Benutzerdefiniertes Format: Wähle „Benutzerdefiniert“ und gebe das Format 000000 ein, um sicherzustellen, dass die Zahl immer mit sechs Ziffern angezeigt wird, auch wenn sie mit "0" beginnt.
  3. VBA-Skript verwenden: Wenn du oft mit solchen Zahlen arbeitest, kannst du ein VBA-Skript verwenden, um die Formatierung automatisch anzuwenden (siehe Beispiel unten).

Häufige Fehler und Lösungen

  • Excel entfernt die "0" am Anfang: Dies passiert, wenn die Zahl als Wert und nicht als Text gespeichert wird. Stelle sicher, dass die Zelle als Text formatiert ist oder verwende das Benutzerdefinierte Format.

  • VBA ändert die letzte Zahl in 0: Achte darauf, dass du die richtige Formatierung im VBA-Skript verwendest. Beispielsweise:

    Cells(Range("A65536").End(xlUp).Row, 27).NumberFormat = "000000"

  • Suchen/Ersetzen funktioniert nicht: Wenn das Dialogfenster nicht geöffnet wird, stelle sicher, dass der Code korrekt ist. Zum Beispiel:

    Application.Dialogs(xlDialogFormulaReplace).Show _
Format(Cells(Range("A65536").End(xlUp).Row, 27), "000000")

Alternative Methoden

  • Textformatierung: Vor dem Eingeben einer Zahl kannst du ein Apostroph (') vor die Zahl setzen. Zum Beispiel: '060118 wird als „060118“ angezeigt.
  • Text in Spalte: Wenn du eine ganze Spalte mit Zahlen hast, die mit "0" beginnen sollen, kannst du die Funktion „Text in Spalten“ verwenden, um die Formatierung in Excel zu ändern.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie du die "0" am Anfang in Excel anzeigen kannst:

  • Postleitzahlen: In Deutschland beginnen viele Postleitzahlen mit "0". Wenn du „01234“ eingibst, sollte die Zelle das Format 00000 haben.

  • Telefonnummern: Telefonnummern, die mit „0“ beginnen, sollten ebenfalls als Text oder im passenden Zahlenformat eingegeben werden.

    Sub telefonnummer_formatieren()
  Cells(1, 1).NumberFormat = "000000000"
End Sub

Tipps für Profis

  • Verwende VBA für Automatisierung: Wenn du regelmäßig Zahlen mit "0" am Anfang verwendest, erstelle ein VBA-Makro, das automatisch die Formatierung anpasst.
  • Zahlen als Text speichern: Wenn du eine Importdatei hast, stelle sicher, dass alle Zahlen als Text gespeichert werden, um Probleme zu vermeiden.
  • Regelmäßige Überprüfung: Überprüfe regelmäßig, ob die Formatierung deiner Daten korrekt ist, insbesondere wenn du Daten importierst oder exportierst.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass Excel nicht die "0" am Anfang entfernt?
Du kannst die Zellen als Text formatieren oder ein benutzerdefiniertes Zahlenformat wie 000000 verwenden.

2. Was passiert, wenn ich Zahlen mit "0" am Anfang importiere?
Excel entfernt in der Regel die führenden Nullen. Stelle sicher, dass die Quelldatei die Zahlen als Text speichert oder wähle beim Import die richtige Formatierung aus.

3. Gibt es eine Möglichkeit, eine ganze Spalte auf einmal zu formatieren?
Ja, du kannst die gesamte Spalte auswählen und das Zellenformat ändern oder ein VBA-Skript verwenden, um die Formatierung für alle Zellen anzuwenden.

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