VBA in Excel

[UTGMK]

Hi Leute

Ich will quasi eine Abfrage machen die eine Zahl abfrägt die 10 Stellen haben soll. Nur leider geht er immer in das Then egal was ich mache. Wo liegt mein Fehler?

If TextBox0 < "[##########]" Then

MsgBox "Die Nummer muss 10 Stellen betragen"

TextBox0.SetFocus

Else.....

[Tiana]

Hi,

wie Wäre es mit einem Trick.

Frag doch einfach auf Textbox<1000000000 ab. alles was kleiner ist hat nur neun Stellen, oder werden hier führende Nullen mitgegeben?

Gruß,

Tiana

[UTGMK]

Und mit den Platzhaltern geht das nicht?

Das muß doch auch machbar sein

[Tiana]

Hi,

mhhh vielleicht mit If Format(textbox,##########)=false Then

...

muss Du mal ausprobieren!

GRuß, Tiana

[UTGMK]

Funktioniert auch nicht!

[Tiana]

Hi,

hast Du denn führende Nullen dabei (z.B. 001476225614)?

Gruß, Tiana

[UTGMK]

Im Moment nicht das kann aber vorkommen.

[Tiana]

Hi,

also in dem Fall (dein Wert ist mit der Option auf führende Nullen ja ein alphanumerischer wert) mach doch einfach folgendes (einfach ist am Besten):

if len(textfeld.text)<10 then

msgbox "Eyyyyy!"

GRuß, Tiana

[progmaker]

Ich glaube nicht, dass man mit Platzhaltern arbeiten kann. Lass mich aber gerne vom Gegenteil überzeugen.

[UTGMK]

Juhhuuuuuuuu es funktioniert.

Deine Löung war gut

If Len(TextBox0.Text) < 10 Then

Gruß UTGMK:marine :bimei :OD :e@sy