Set Focus funktioniert nicht

Hallo oder Guten Abend!
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

Nabend Walter
Mit diesem Code liegt beim oeffnen des Formulars der SetFocus im Textfeld2. Bei der eingabe von einer Zahl erscheint die MSG-Box, und der Focus geht nach Textbox2 zurueck.Bei Eingabe von Buchstaben und druecken der Entertaste geht der Focus nach Textbox1.Laut deinem Code sollte aber doch irgendwas mit betaetigen der Datenfreigabetaste aus Zelle a1 eingetragen werden oder?


Private Sub TextBox2_change()
If IsNumeric(TextBox2) = True Then
TextBox2 = " "
MsgBox "Es ist nur Text erlaubt."
TextBox2.SetFocus
With TextBox2
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Else
TextBox2.SetFocus
Worksheets("Datenbank").Range("A15") = TextBox2
With TextBox2
.SetFocus
.SelStart = 10     'auf 10 geaendert damit die Texteingabe verlaengert wird
.SelLength = Len(.Text)
End With
End If
End Sub


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 = 10
.SelLength = Len(.Text)
End With
End Sub

Gruss Hary

Forumthread: Set Focus funktioniert nicht

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Set Focus in Excel VBA richtig anwenden

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)