Office: Zahl vorne mit Nullen auffüllen

Hallo liebe Excel-Gemeinde,

ich habe folgende Frage. In Spalte A stehen Zahlen mit 1 bis 4 Stellen.
Ich möchte dieser gerne in Spalte B schreiben jedoch mit Nullen aufgefüllt. Die Zahl soll dabei stets 4 stellig sein.

Bsp:

Spalte A Spalte B
5 = 0005
15 = 0015
155 = 0155
1555 = 1555
2 = 0002
0 = 0000
13 = 0013
153 = 0153

Dafür muss ja wahrscheinlich das Zellenformat auf Text umgestellt werden.
Ich möchte jedoch kein führendes Hochkomma haben.
Wenn in einer Zelle in Spalte A kein Wert steht sollen nur 4 Nullen in B stehen.

Ist das einfach mit VBA möglich?
Fülle bisher die Spalte B über eine Schleife, bis zur letzten Zeile (A) mit Inhalt.


Danke für Eure Hilfe.

Gruß
JayJay

:)

 

Zellen markieren
STRG+1, benutzerdefiniertes Zahlenformat: 0000

aber Zellen ohne Wert ( 0000 ist auch ein Wert ) sollten auch leer sein und nichts anzeigen.

 

veachte dasZahlenformat in Spalte B das ist immer noch eine Zahl, in C ist Text


Tabelle2

	A	B	C
1	5	5	0005
2	15	15	0015
3	155	155	0155
4	1555	1555	1555
5	2	2	0002
6	0	0	0000
7	13	13	0013

verwendete Formeln
Zelle	Formel	Bereich	N/A
B1:B7	=A1
C1:C7	=TEXT(A1;"0000")

Zahlenformate
Zelle	Format	Wert
B1	'0
B2	'0
B3	'0
B4	'0
B5	'0
B6	'0
B7	'0

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 24.04 einschl. 64 Bit

 

Hallo Jay JAy,

Formatier B:B doch einfach so: 0000

Tabelle1

	A	B	C
1	5	0005	Format von $B := "0000"
2	15	0015	Format von $B := "0000"
3	155	0155	Format von $B := "0000"
4	1555	1555	Format von $B := "0000"
5		0000	Format von $B := "0000"

Zelle	Formel
B1	=A1

Excel Tabellen im Web darstellen >>

 

Hallo JayJay,

das geht vbafrei entweder
- mit Zahlenformat:
Formel in B1:=A1
über Strg+1
Zahlenformat B1: Benutzerdefiniert 0000

- mit einer Formel:
Code:

(das Ergebnis ist dann tatsächlich Text)

Grüße
EarlFred

 

Hey Leute,
danke für eure Hilfe. Ich werde die Lösungen mal testen.

Da ich jedoch eh schon ein VBA Code ausführe der mir meine Tabelle optimiert, würde ich das gerne per VBA mit erledigen lassen. Ein Ergebnis im Zellenformat "Text" wäre für weitere Zwecke ideal. Ich muss mit der Spalte nicht mere rechnen nur noch filtern.

Danke soweit.

Gruß
JayJay

 

Auch da wieder gilt, keine Datei - keine effiziente Hilfe.

Soweit ich weiss, kann man in eine Zelle, die im Standard formatiert ist (noch nicht angerührt worden ist), nicht direkt formatierte, numerischen Werte als Text / String schreiben.
Sowohl ein "Format(numerischer Wert, "0000"), als auch ein formatiertes Cstr(Wert) führen nicht zum Ziel.
Im VBA-Direktfenster ja, in der Zelle aber nicht. Die Daten werden automatisch zu einer Zahl.

Es bleibt also nur, numerische Werte in deine Tabelle zu schreiben und den Zellbereich nach Bedarf über das Zellformat zu formatieren.
Da aber niemand weiss, wie deine Daten in die Zellen kommen, kann auch niemand helfen. Also musst du selber fummeln oder Dateien zur Verfügung stellen..

PHP:

         Beispiele für Spalte C
.Range("CX").NumberFormat = "0000" ' eine Zelle direkt formatieren
.Cells(Zeile, 3).NumberFormat = "0000"  ' eine Zelle (Schnittmenge) formatieren
.Columns(3).NumberFormat = "0000"    ganze Spalte formatieren, wenn Wert numerisch