Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1408to1412
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1408to1412
1408to1412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen mit führenden Nullen

Zahlen mit führenden Nullen
17.02.2015 15:06:23
Peter
Hallo,
ich habe folgenden Befehl in meinem Modul:
strArtNr = Format(Right(wsUmsatz.Name, 5), "0000000")
Hiermit ermittel ich die letzten 5 Stellen aus dem Namen des Tabellenblatts wsUmsatz.
Diesen 5 Stellen sollen 2 führende Nullen vorangestellt werden und dieser Wert soll in einer Zelle meiner Tabelle erscheinen.
Das klappt alles...bis auf die 2 führenden Nullen. Die werden nicht angezeigt.
Habe ich den Befehl Format falsch verstanden oder (mal wieder) eine Referenzierung oder was auch immer vergessen?
Gruß,
Peter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlen mit führenden Nullen
17.02.2015 15:18:42
Daniel
Hi
1. strArtNr muss als String deklariert sein. Beim Verwenden einer ZahlVariablen verschwinden die führenden Nullen sofort beim Zuweisen des Wertes (Umwandlung in eine Zahl)
2. wenn du den Wert in eine Zelle schreibst, musst du das Texterkennungszeichen Hochkomma (')voranstellen.
Excel prüft bei einer Eingabe nochmal was da eingegeben wurde und wandelt entsprechend um, dh auch hier wird dein Text ggf in eine Zahl gewandelt und die führenden Nullen verschwinden.
Das Texterkennungszeichen verhindert das.
dim strArtNr as String
strArtNr = Format(Right(wsUmsatz.Name, 5), "0000000")
Range("A1").Value = "'" & strArtNr
Gruß Daniel

Anzeige
AW: Zahlen mit führenden Nullen
17.02.2015 15:34:36
Peter
Danke Daniel, das hat geklappt.
Jetzt erscheinen allerdings die grünen Ecken von der Fehlerüberprüfung. Kann ich die über VBA ausschalten bzw. die "Fehler"anzeige ignorieren
Könnte sich das Hochkamma später bei der Weiterverarbeitung der Daten mit Filtern oder Pivottabellen störend bemerkbar machen?
Gruß,
Peter

AW: Zahlen mit führenden Nullen
17.02.2015 15:39:06
Daniel
Hi
die grünen Ecken kannst du über die Optionen steueren:
Datei - Optionen - Formeln - Regeln für die Fehlerüberprüfung - Zahlen, die als Text formatiert sind oder den ein Apostroph vorangestellt ist
Gruß Daniel

AW: Zahlen mit führenden Nullen
17.02.2015 15:45:50
Peter
Hallo Daniel,
das war mir bewusst. Allerdings ist es den späteren Anwendern nicht zwingend bewusst und bevor die einen dann 100 mal mit der gleichen Frage behelligen, nochmals meine Frage, ob man diese Option mittels VBA deaktivieren kann.
Gruß,
Peter

Anzeige
AW: Zahlen mit führenden Nullen
17.02.2015 16:01:44
Daniel
Der Makrorecorder ist dein Freund.
Gruß Daniel

AW: Zahlen mit führenden Nullen
17.02.2015 16:03:23
Daniel
Du kannst auch die Zellen vor dem Einfügen mit dem Zahlenformat TEXT formatieren.
Das Hochkomma ist aber "stabiler"
Gruß Daniel

50 Forumthreads zu ähnlichen Themen

Zahl mit Nullen auffüllen !!!
Zoran

Hallo zusammen.
Habe folgenden Code:
Sub NullWert() Dim c As Range Dim laenge As Integer Dim maxNull As Byte Dim i As Integer For Each c In Selection laenge = Len(c) If c "" And IsNumeric(c) Then c.Select maxNull = laenge - 10 For i = maxNull To 1 Step -1 c = c & "0" Next i Activ...
17.11.2008 15:49:00
Thread-ID: 1025268
5 Beiträge
Anzeige
Formelergebnis mit führender Null
Josef

Hallo!
Ich habe z.B. in A1 die Zahl 01 stehen.
Wenn ich jetzt die Formel : =A1+1 in die ZelleA2 schreibe so erhalte ich zwar 2, jedoch ohne führende Null.
Wie müßte die Formel bitte lauten, damit auch die führende Null eingetragen ist?
Danke
Josef
08.07.2009 10:44:25
Thread-ID: 1087112
7 Beiträge
Zahl mit führenden Buchstaben
gerhard

Hallo,
Bitte um VBA Hilfe,
Wie kann ich nach Eingabe einer Nummer in der Spalte ab C6 zwei führende Buchstaben automatisch
anhängen.
z.B.
Eingabe in Zelle C10 die Nummer 4711 dann sollte nach Abschluß der Zelleingabe die
beiden führenden Buchstaben VA automatisch angefüg...
14.07.2009 13:22:48
Thread-ID: 1088460
13 Beiträge
Anzeige
führende Null anzeigen
Jens

Hallo zusammen!
Stehe vor folgendem Problem: Ich lasse über ein Formular Personendaten (Name, Straße, Tel...) erfassen und in eine Tabelle eintragen. Bei der Telefonnummer habe ich das Problem, dass mir Excel die voranstehende 0 nicht anzeigt. Eine formatierung der Zelle als Text schafft ke...
04.03.2010 08:21:46
Thread-ID: 1143201
9 Beiträge
Zahlen mit führenden Nullen in TextBox
Josef

Hallo!
Ich möchte, wenn ich z. B. die Zahl 25 in eine Textbox in einer UF eingebe, dass in der TextBox die Zahl mit führenden Nullen eingegeben wird: 0025.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
30.03.2010 14:51:59
Thread-ID: 1149374
3 Beiträge
VBA Autofilter und führende Nullen
Joachim

Wer hat eine Lösung?
Eine Spalte ist als Texte formatierte Spalte enthält 4-ziffrige Zahlen (0001 bis 9999).
Es sollen nun alle Zeilen gefiltert werden die nicht ="0010"sind. Selection.AutoFilter Field:=3, Criteria1:="0001", Operator:=xlAnd
bzw. als flexible Variante Zahl="0001" Se...
03.11.2010 23:59:34
Thread-ID: 1185073
5 Beiträge
Zahl inkl. führende Null übernehmen
Peter

Guten Tag
Eine Funktion liefert mir in einem Spaltenbereich Tabellennamen zurück. Die Tabellennamen sind in der Regel vierstellige Zahlen, wobei die erste Zahl jeweils eine "0" ist.
Diesen Spaltenbereich übernehme ich nun in eine andere Spalte:
rDest.Value = rTemp.Value
mit...
27.06.2011 10:41:03
Thread-ID: 1219837
4 Beiträge
Formatbefehl für führende Nullen
Josef

Hallo!
Ich habe in der TextBox61 den Wert 003 stehen und möchte diesen jetzt in der Tabelle in der spalte AI mittels CommandButton in einer UF im Format führende Nullen, also 003 eintragen lassen.
wks1.Range("ai65536").End(xlUp).Offset(1, 0).Value = TextBox61.Text
Wie lautet hier bi...
02.08.2011 12:17:32
Thread-ID: 1224557
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
3
6
12
4
8
2
4
3
2
12
2
8
17
8
6
4
3
3
6
3
10
8
3
6