Microsoft Excel

Herbers Excel/VBA-Archiv

Nummernformat

Betrifft: Nummernformat
von: Christian
Geschrieben am: 16.04.2003 - 16:30:25

Hi

ich habe zwei variablen, hier Wert1 und j, diese Stehen für einen NummernCode. Werden wo anders aber auch als Zähler benutzt.
In der Folgenden Schleifen soll nun in der Spalte A der Nummerncode dargestellt werden.

For j = 1 To Wert3 Step 1
Cells(i - 1 + j, 1).Value = Wert1 & "." & j
Next j

Aussehen soll es so: 01.001 oder 09.015 oder 12.002 usw
D.h. der Wert1 hat maximal 2 Stellen und j hat max. 3 Stellen.
Nun sollen aber bei Zahlen mit weniger Stellen entsprechend eine 0 davor stehen. 1===>01 oder 2==>>002 usw.
kann man da irgentwie eine Formatdeklaration mit einbauen, so das die Zahlen dementsprechend angegeben werden???

Danke Christian

  

Re: Nummernformat
von: Martin M.
Geschrieben am: 16.04.2003 - 16:36:48

Probier mal das:

For j = 1 To Wert3 Step 1
Cells(i - 1 + j, 1).Value = Wert1 & "." & Format(j,"000")
Next j


  

Re: Nummernformat
von: Nadja
Geschrieben am: 16.04.2003 - 16:36:59

Hi,

ich denke, du mußt Wert1 mit benutzerdefiniertem Format "00" und j mit "000" hinterlegen. that's all.

Gruß
Nadja.

  

Re: Nummernformat
von: Christian
Geschrieben am: 16.04.2003 - 16:42:49

Danke

habe es gleich eingearbeitet und ausprobiert. Und was soll ich sagen, genauso sollte es aussehen.

Ciao Christian