Wieso schreibt jetzt Falsch ?
23.07.2003 21:32:23
walter
habe folgendes Makro geschrieben:
Zeile 1: '
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Zeile 2:
Private Sub TextBox3_Change()
Application.ScreenUpdating = False
If IsNumeric(TextBox3) = False And TextBox3 <> "" Then
MsgBox "Es sind nur nummerische Werte erlaubt."
TextBox3 = "0.000,00"
TextBox3.SetFocus
Zeile3: With TextBox4
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
On Error Resume Next
TextBox3.SetFocus
With TextBox3
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Else
Worksheets("Datenbank").Range("A12") = CDbl(TextBox3)
'so schreibt Richtig in Tabelle
TextBox3 = Format(Worksheets("Datenbank").Range("A12").Value, ("###,##0.00"))
'so holt von Tabelle rein, auch Format mit TAB-Taste direkt rein !
End If
Application.ScreenUpdating = True
End Sub
Seit ich die Zeile 2 eingefügt habe und ich in der UserForm Textbox 3 eine
Zahl eingeben will klappt es nicht ! Courser bleibt bei der Einer Zahl stehen
und wechselt nur dort die Ziffer.
Wieso ?
Zur Erklärung, Zeile 2 habe ich reingesetzt damit und die Zeile 3 so geändert
damit wird der Focus auf Textbox 3 gesetzt, hab ich per Zufall rausgefunden.
Aber noch einmal warum kann ich jetzt keine kompl. Zahl z.b. 55,30 eingeben ???
Gruss Walter