Office: (Office 2007) Zahl in Zelle auf 3 Stellen auffüllen

Hallo nochmals,

nachdem mir heute schon mal schnell und präzise geholfen wurde nun eine ganz andere Frage:
In eine Eingabemaske wird in z.B. B1 und B2 eine Zahl eingegeben (1 - 999).
Diese Zahl wird dann als Bestandteil eines Reg.-Kennzeichens verwendet.
Für eine weiterführende Bearbeitung ist es wichtig, das diese Zahl immer 3stellig ist (z.B. 1 = 001 ... 99 = 099 usw.)
Da durch unterschiedliche Bearbeiter dies des öfteren vergessen wird, gibts immer wieder kassentechnische Probleme.
Gibt es in Excel eine Möglichkeit die Zahlen von 1 bis 99 automatisch in dieser Weise aufzufüllen.

Gruß Maik

:)

 

Formatiere die Zellen einfach mit dem Zahlenformat

000

Dann werden immer 3 Stellen angezeigt

(rechtsklick, Zelle Formatieren, benutzerdefiniert und dort 000 eingeben)
Falls das nicht geht, versuchs mit ### 000

mfg Sturmovik

 

Hey Sturmovik,

herzlichen Dank für die schnelle Hilfe.
Auf das einfachste kommt man einfach nicht, keine Ahnung ob das Betriebsblindheit oder einfach eigene Blödheit ist *wink.gif* .
Danke nochmals

Gruß Maik

 

Tja, manchmal sieht man den Wald vor lauter Gummibäumen nicht *grins

 

Hallo Maik

wie soll diese Zahl weiter verarbeitet werden?
auch wenn die Zahl formatiert ist und optisch so aussieht als ob es 3 Stellen wären
sind aber denoch nur eine oder 2 Stellen vorhanden!

 

Jep wär blöd wenn die eine oder 2 Stellen plötzlich doppelt vorhanden sind *grins


sorry, den konnte ich mir nicht verkneifen.

So wie ich das verstanden habe werden die Daten dann indirekt verarbeitet, sodaß nur die Optik zählt

 

Hey Leute,

habs gerade gemerkt. In der Maske steht zwar jetzt z.B 009 , aber in das Formular überträgt es doch bloß die 9.
Das heißt mein Reg.-Kennzeichen lautet nur 1009 und nicht wie benötigt 100009.
Das heiß ich benötige immer ein 6stelliges Kennzeichen mal mit 000+Nummer und mal mit 100+Nummer.
Sah toll aus, war aber nicht ganz das richtige.

Gruß Maik

 

hiho

wie das mit deinem Forular aussieht kann ich nur raten *wink.gif*
ich habe mal in der Demo die Übernahme der Zelle A2 genommen
und bei Worksheetchange diesen Code genommen

ist es das?
Code:

[edit]

oder einfach bei der Übernahme in eine Textbox

Me.TextBox2.Text = Format(Cells(2, 1).Text, "000")

 

Hey Chris,

mit deiner Lösung klappt es jetzt hervorragend. Übernimmt den Wert jetzt wie gewünscht in die jeweiligen Formulare. Herzlichen Dank für die schnelle Hilfe.

Gruß Maik

 

Hey Chris,

habe leider einen kleinen Wehrmutstropfen in Deiner Lösung gefunden. Erstmal funktioniert es super und der Wert wird korrekt dreistellig ins Formular genommen, soweit so gut.
Allerdings übernehmen auch alle nachfolgenden Zellen diese Formatierung, was bei Eingabe von zB. Alter, Geburtsdatum und alles was Zahlen betrifft zu erheblichen Problemen, sprich zu Falscheingaben führt.
Wie muß der Code geändert werden, das sich diese dreistellige Formatierung nur auf genau bezeichnete Zellen auswirkt z.B A2 und A3.

Sorry
Gruß Maik

 

HAllo

Eine Möglichkeit wäre das Feature abzustellen.
Das geht mit diesem Befehl:
Code:

ransi

 

Hey,

habe ja von Chris folgenden Code bekommen um Zahlen z.B 1 auf 001 aufzufüllen, und zwar so das der Wert 001 auch in andere Formulare übernommen werden kann.

PHP:

         Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Address(0, 0) <> "A1" Then
If Target.Count = 1 Then
Target.NumberFormat = "@"
Target.Value = Format(Target.Value, "000")
End If
End If
End Sub


 

hiho

den ersten Code brauchst Du nicht unbedingt
das hatte ich als edit dabei
und die Zellen A2 und A3 formatieren mit 000
*Smilie

Me.TextBox2.Text = Format(Cells(2, "a").Text, "000")
Me.TextBox3.Text = Format(Cells(3, "a").Text, "000")

bzw. für die Zellen in A2 und A3

Code:

 

Hey Chris,

ich danke Dir nochmals für die schnelle Hilfe, die mich auch daran erinnerte, erst zu lesen und zu denken.
Ich hatte einfach in Deinem ersten Code das :" "A1" " überlesen.*rolleyes.gif*
Jetzt klappt es wirklich fantastisch.

Gruß Maik