Zahl 9 Stellig / Anzeigen nur 6 Stellig

[Pascala]

Hallo zusammen,

Ich habe folgendes Problem: Ich übertrage aus einer UserForm in eine Excel liste eine Nummer die immer anders ist z.b. so: 200903123 diese Zahl ist immer 9 Stellig jedoch möchte ich das nur die ersten 6 davon angezeigt werden es sollte jedoch alle 9 in der Zelle stehen da ich mit dieser Zahl weiter rechne.

Hat hier jemand zufällig eine Idee wie ich das umsetzen könnte?

Viele Grüße.

[LCohen]

BenDefFmt 0.

[Pascala]

BenDefFmt 0.

Hallo LCohen,


also wenn ivh bei der Benutzerdefinierten Formatierung bei TYP: 0. schreibe dann klappt das leider nicht.

Ich glaube das liegt daran das es von der UserForm befüllt wird.

Ich müsste irgendwie die Formatierung hierzu aktualisieren oder mit enter auf die Zelle klicken dann ändert sich die Formatierung.

Danke & viele Grüße

[Kuwer]

Hallo,

gemeint war die Zellenformatierung mit benutzerdefiniertem Zahlenformat.

Gruß Uwe

[Pascala]

Hallo,

gemeint war die Zellenformatierung mit benutzerdefiniertem Zahlenformat.

Gruß Uwe

Hallo Uwe,


das habe ich soweit verstanden.
Das klappt auch jedoch erst wenn ich auf die Zelle einmal mit enter bestätige.
Ich glaube das liegt daran das die Zelle mit Userform gefüllt wird.

Danke & Grüße.

[LCohen]

Ich weiß gar nicht, was eine Jusoform ist und wofür man das braucht.

[Kuwer]

Ich glaube das liegt daran das die Zelle mit Userform gefüllt wird.

Wie sieht die Codezeile des "Füllvorgangs" aus?

Gruß Uwe

[Pascala]

Wie sieht die Codezeile des "Füllvorgangs" aus?

Hier der Code:

Code:

weit:
Dim X As Integer
For X = 1 To CInt(Me.TextBox5.Value)
                Code128Generate_v2 20, 20, 25, 2, Worksheets("Retouren_Template"), Worksheets("Retouren_Template").Cells(6, 2).Value, 90
                ActiveSheet.PrintOut Copies:=1
                ThisWorkbook.ActiveSheet.Shapes.SelectAll
                Selection.Delete
                Range("B5").FormulaLocal = "=RECHTS(B6;9)+1"
                Range("B6").Value = Range("B5").Value
Next X
             End If

es wird in B6 gefüllt

[Kuwer]

Hallo,

ohne den Sinn des Codes wirklich zu verstehen, wäre mein Vorschlag:

Range("B6").Value = CLng(Range("B5").Value)

Gruß Uwe

[Pascala]

Hallo,

ohne den Sinn des Codes wirklich zu verstehen, wäre mein Vorschlag:

Range("B6").Value = CLng(Range("B5").Value)

Gruß Uwe

Hat leider nicht die Lösung gebracht.

fällt dir vielleicht noch eine Lösung ein womit man einfach die letzten 3 Ziffern ausblendet?
Mir ist auch leider aufgefallen das er mit dem Benutzerdefinierten Zahlenformat die verkürzte Zahl rundet.

Viele Grüße.