AW: Noch nicht ganz !!!!
10.01.2005 11:16:35
walter
Hallo Boris,
habe mein Makro geändert, Funktioniert auch.
Nur kriege ich es nicht hin den Focus nach der Fehlermeldung zu setzen.
Ich muß allerdings auch die Anweisung:
"
Private Sub TextBox6_AfterUpdate()", da bei Change ich keine Zahlen eingeben kann, bei "Exit", geht auch.
Meine TextBox liegt auf einer UF in einem Rahmen (Frame).
Hier mein Makro:
Private Sub TextBox6_AfterUpdate()
If IsNumeric(TextBox6) = False And TextBox6 <> "" Then
MsgBox "Es sind nur nummerische Werte erlaubt."
TextBox6.SetFocus
With TextBox6
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
TextBox6 = "0.00"
Else
ThisWorkbook.Worksheets("Kulanzblatt-VK").Range("T35") = CDbl(TextBox6)
TextBox6 = Format(Worksheets("Kulanzblatt-VK").Range("T35").Value, ("#,##0.00"))
Worksheets("Kulanzblatt-VK").Range("U35") = "0"
TextBox21 = Format(Worksheets("Kulanzblatt-VK").Range("M35").Value, ("0.00"))
End If 'hier von oben Abfrage
End Sub
Vielleicht hast Du noch einen Tip, wie gesagt Eingabe der Zahlen etc. Funktioniert.
Gruß Walter