Nummer generieren

[MM-David01]

Guten Tag,

ich möchte aus zum Bsp.: 1.25  -->  00125
                                      25.1 -->  02510
                                      134  -->  13400
                                      210.4--> 21040
generieren.



Kann mir da jemand weiter helfen?




Grüße,
David

[WillWissen]

Hallo David,

du musst erst einmal deine Textzahlen in echte Zahlen umwandeln:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	1.25	00125
2	25.1	02510
3	134	13400
4	210.4	21040

Zelle	Formel
B1	=WECHSELN(A1;".";",")*100

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

Die Spalte dann benutzerdefiniert 5-stellig formatieren:

Code:

00000

Anschließend die Spalte kopieren und als Werte wieder einfügen.

[MM-David01]

Kann man das auch direkt mit einer Formel lösen?

[Käpt'n Blaubär]

Hallo,

Kann man das auch direkt mit einer Formel lösen?

ich bin kein Formelmensch, darum erlaube ich mir mal die Bemerkung, das wird nicht klappen,
weil mehrere Arbeitsschritte in einer Zelle passieren sollen.
Manchmal können die Formelmenschen aber auch Erstaunliches zaubern.

Mit einem VBA-Code würde das aber schon funktionieren.

[Dieter63]

Hallo ,

mit  Text drumherum 

=TEXT(WECHSELN(A1;".";",")*100;"00000")

[MM-David01]

mit  Text drumherum 

=TEXT(WECHSELN(A1;".";",")*100;"00000")

Perfekt Danke 

[WillWissen]

Hallo David,

was hat jetzt Dieters Formel, außer dass sie anstelle Zahlen Texte produziert, mit deiner Frage zu tun, ob man das auch in einer Formel lösen kann. Das verstehe ich nicht. Die Arbeitsschritte sind doch dieselben.  

Mein Hinweis auf

Anschließend die Spalte kopieren und als Werte wieder einfügen.

sollte dir nur sagen, dass du damit feste Werte und keine Formeln mehr in deiner Spalte hast.

Um das Ganze ein wenig zu automatisieren, kannst du ein Makro nutzen. Ich habe mal eins und aufgezeichnet etwas optimiert.

Code:

Option Explicit
Sub TextInZahl()

   With Range("B1:B100")
       .FormulaR1C1 = "=IFERROR(SUBSTITUTE(RC[-1],""."","","")*100,"""")"
       .Copy
       .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   End With
   Application.CutCopyMode = False
   Range("B1").Select
End Sub