Makro irgendwie ..
05.11.2005 17:17:53
Walter
habe folgendes Makro:
'--------------- Vorrats Nr. -------------------------------------------
Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If IsNumeric(TextBox3) = False And TextBox3 <> "" Then
MsgBox " Sie dürfen nur Ziffern eingeben", _
vbCritical, "Error !!!"
TextBox3 = Left(TextBox3, Len(TextBox3) - 1)
TextBox3 = ""
TextBox3.SetFocus
With TextBox3
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub
Wenn ich die Zeile: TextBox3 = "" mit dem Format:TextBox3 = "0 000 00000"
formatiere, kommt Fehlermeldung, bzw. der Courser kommt auch nicht auf die Textbox3.
Ich hatte vorher das Format "0,00" hatte mir das einfach kopiert und läuft auch so, leider nicht.
Vielleicht hat jemand eine Idee,
gruß Walter