Set Focus funktioniert nicht
05.07.2003 19:37:18
Walter
Habe ein Problem und fummmmmel die ganze Zeit ohne Erfolg.
Mein Makro:
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox2) Then
MsgBox "Es ist nur Text erlaubt."
TextBox2 = " "
TextBox2.SetFocus
With TextBox2
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
TextBox2.SetFocus
'Cancel = True 'True=CommandButton) ist die Schaltfläche Abbrechen.
'False=Schaltfläche nicht Abbrechen (Voreinstellung).
End If
Worksheets("Datenbank").Range("A15") = TextBox2
TextBox2.SetFocus
With TextBox2
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
TextBox2.SetFocus
End Sub
Leider ist der Focus nach der Eingabe einer Zahl nicht in der Textbox2 (ist ja jetzt Leer).
Oder liegt es an der "Datenfreigabe" Button ??? Ich muß ja nach der
MsgBox "Es ist nur Text erlaubt." mit dem Button Datenfreigabe bestätigen.
Hier mein Makro dazu:
Private Sub Datenfreigabe_Click()
TextBox1 = Format(Worksheets("Datenbank").Range("A1").Value, ("###,##0.00"))
'so holt von Tabelle rein, auch Format mit TAB-Taste direkt rein !
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Gruss Walter