Clever-Excel-Forum - Zahl 9 Stellig / Anzeigen nur 6 Stellig

Seiten: 1 2

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.

BenDefFmt 0.

(21.07.2020, 11:48)LCohen schrieb: [ -> ]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

Hallo,

gemeint war die Zellenformatierung mit benutzerdefiniertem Zahlenformat. Wink

Gruß Uwe

(21.07.2020, 12:02)Kuwer schrieb: [ -> ]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.

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

(21.07.2020, 12:05)Pascala schrieb: [ -> ]Ich glaube das liegt daran das die Zelle mit Userform gefüllt wird.

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

Gruß Uwe

(21.07.2020, 12:07)Kuwer schrieb: [ -> ]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

Hallo,

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

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

Gruß Uwe

(21.07.2020, 12:21)Kuwer schrieb: [ -> ]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.

Seiten: 1 2