✔ Format.....

[Da_Ron]

Ich wollt mal wissen ob es eine möglichkeit gibt wenn ich die MaxLength auf 2 in einer TextBox setze und wenn der User nur eine ziffer z.B. 9 eingibt das eine 0 automatich vor gesezt wird so das dann z.B. 09 steht Aber wenn der User dann eine zweistellige zahl eingibt sollte die null nicht mehr erscheinen

Ich bedank mich schon mal im vorraus

 

[AtomSoldier]

Eine Lösung:

Hey vielleicht hilt dir das:

Private Sub Command1_Click()
If Len(Text1.Text) <> 2 Then
 Text1.Text = "0" & Text1.Text
 Else
 End If
End Sub

Viel Erfolg
Mfg,
AtomSoldier

 

[Da_Ron]

Da kann ich mal wieder nur Danke sagen Es funktioniert!

 

[Shakie]

Oder probier es mal hiermit. Es ist etwas mehr Code, probier es einfach aus.

Dim blnChangeZulassen As Boolean
 
Private Sub Form_Load()
	blnChangeZulassen = True
End Sub
 
Private Sub Text1_Change()
	If blnChangeZulassen Then Text1.Text = Format(Text1.Text, "00")
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
	If Len(Text1.Text) = Text1.MaxLength And VBA.Left$(Text1.Text, 1) = "0" Then
		blnChangeZulassen = False
		Text1.Text = VBA.Right$(Text1.Text, 1)
		Text1.SelStart = 1
		blnChangeZulassen = True
	End If
End Sub

Edit: Ach es geht ja schon, na dann...

 

[AtomSoldier]

jeder muss mich übertreffen

Meine Codes sind immer schlecht

*g*

 

[MCIglo]

Re: Eine Lösung:

Private Sub Command1_Click()
If Len(Text1.Text) <> 2 Then
 Text1.Text = "0" & Text1.Text
 Else
 End If
End Sub

Private Sub Command1_Click()
If Len(Text1.Text) <> 2 Then
 Text1.Text = "0" & Text1.Text
   If Len(Text1.Text) <> 2 Then Text1.Text = "0" & Text1.Text
 Else
 End If
End Sub

Halte ich für noch besser. Dann steht nämlich '00' drin, wenn der User garnichts eingibt.