0 vorne dran bleibt nicht

Forumthread: 0 vorne dran bleibt nicht

18.05.2017 09:13:20

Manuela

Hallo,
ich habe hier ein VBA Code bei dem ich die Zahlen in den Feldern schreibe. Leider haben die Zahlen immer einer 0 NULL davor. Diese bleibt aber trotz formatierung nicht stehen.
Wenn ich die Zahl Händisch ohne VBA eingebe, dann funktioniert es.

Sub Daten_Ausfuellen()
Dim sTabCopyName$, sTabNewName$, iZahl%
Dim lZahl As Long
lZahl = InputBox("Barcode 1", "Zahl_C1")
Range("C1").Value = lZahl
lZahl = InputBox("Barcode 2", "Zahl_C2")
Range("C2").Value = lZahl
End Sub

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

NumberFormat = "@"

18.05.2017 09:35:23

Matthias
evtl auch NumberFormat = "00000"

18.05.2017 09:43:13

Matthias
AW: 0 vorne dran bleibt nicht

18.05.2017 09:53:54

Daniel
AW: 0 vorne dran bleibt nicht

18.05.2017 11:46:27

Manuela

NumberFormat = "@"

18.05.2017 09:35:23

Matthias

Hallo
Evtl hilft das.

Range("C1").NumberFormat = "@"
Range("C1").Value = lZahl

Dann steht allerdings Text in der Zelle.
Gruß Matthias

evtl auch NumberFormat = "00000"

18.05.2017 09:43:13

Matthias

Hallo
oder Du probierst

NumberFormat = "00000"

Je nachdem wie lang Deine Zahlenkolonne ist, soviele Nullen eintragen.
Dann bleibt es eine Zahl.
Gruß Matthias

AW: 0 vorne dran bleibt nicht

18.05.2017 09:53:54

Daniel

Hi
die Werte sind Barcodes.
dh mit diesen Werten wird nicht gerechnet, daher kann man sie wie Texte behandeln.
Dann so:


Sub Daten_Ausfuellen()
Dim sTabCopyName$, sTabNewName$, iZahl%
Dim lZahl As String
lZahl = InputBox("Barcode 1", "Zahl_C1")
Range("C1").Value = "'" & lZahl
lZahl = InputBox("Barcode 2", "Zahl_C2")
Range("C2").Value = "'" & lZahl
End Sub

die Variable, die den Wert der Inputbox aufnimmt, muss vom Typ String sein.
Ist sie vom Typ Long, dann verschwindet die 0 schon bei der Übergabe des Inputbox-Ergebnisses an die Variable, weil dann der Inputboxtext in eine Zahl gewandelt werden muss (Zahlen haben nie eine führende 0)
das Hochkomma ist das Texterkennungszeichen.
es gehört nicht zum Text, verhindert aber dass der Wert in eine Zahl gewandelt wird, wenn du den Wert in eine Zelle schreibst.
(das ist die Alternative zum Zahlenformat "@", welches in manchen Fällen problematisch sein kann)
Gruß Daniel

AW: 0 vorne dran bleibt nicht

18.05.2017 11:46:27

Manuela

Vielen Dank Daniel
Und auch danke für die Ausführliche Beschreibung wieso das so ist :-)
Wieder was gelernt.
Gruß
Manu

Beliebteste Forumthreads (12 Monate)

Forumthread: 0 vorne dran bleibt nicht

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

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread