Set Focus

Hallo Zusammen,
habe meine VB geändert und folgendes Problem:
Mein Makro:


Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'

Private Sub TextBox3_Change()
If IsNumeric(TextBox3) = False Then
MsgBox "Es ist nur Zahlen  Text erlaubt."
TextBox3 = "0.000,00"
TextBox3.SetFocus
With TextBox4                       'hier so einfach gesetzt und Set Focus i.o.
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
TextBox3 = "0.000,00"
On Error Resume Next
TextBox3.SetFocus
With TextBox3
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
'Cancel = True             'True=CommandButton) ist die Schaltfläche Abbrechen
End If                     'False=Schaltfläche nicht Abbrechen (Voreinstellung)
'Else
Worksheets("Datenbank").Range("A12") = CDbl(TextBox3)
TextBox3 = Format(Worksheets("Datenbank").Range("A12").Value, ("###,##0.00"))
'so holt von Tabelle rein, auch Format mit TAB-Taste direkt rein !
'End If
End Sub




Wenn ich den Text:  '

Private Sub TextBox3_Change() wird der Focus RICHTIG in die
Textbox 3 gesetzt.
Wenn ich den Text:   

Private Sub TextBox3_Exit(ByVal Cancel As.ReturnBoolean)
leider in die nächste Box.
Wieso ???
Ich möchte nach der Eingabe, wenn Text eingeben wird nach der Fehlermeldung den
Focus wieder auf Textbox3 setzen.
Kann mir jemand helfen ???
Gruss Walter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Halter

schaue mal hier

Beispieldatei

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Sub TextBox3_Change() If IsNumeric(TextBox3) = False Then MsgBox "Es sind nur Zahlen erlaubt !!!" TextBox3 = "00,00" Cancel = True TextBox3.SetFocus With TextBox3 'hier so einfach gesetzt und Set Focus i.o. .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With Else Worksheets("Datenbank").Range("A12") = CDbl(TextBox3) TextBox3 = Format(Worksheets("Datenbank").Range("A12").Value, ("###,##0.00")) 'so holt von Tabelle rein, auch Format mit TAB-Taste direkt rein ! End If End Sub

Private Sub TextBox3_Change() If TextBox3.Tag = "1" Then Exit Sub If IsNumeric(TextBox3) = False Then TextBox3.Tag = 1 MsgBox "Es sind nur Zahlen erlaubt !!!" TextBox3 = "00,00" 'Cancel = True TextBox3.SetFocus With TextBox3 'hier so einfach gesetzt und Set Focus i.o. .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With TextBox3.Tag = 0 Else Worksheets("Datenbank").Range("A12") = CDbl(TextBox3) TextBox3 = Format(Worksheets("Datenbank").Range("A12").Value, ("###,##0.00")) 'so holt von Tabelle rein, auch Format mit TAB-Taste direkt rein ! End If End Sub

Private Sub TextBox5_Change() If TextBox5.Tag = "1" Then Exit Sub If IsNumeric(TextBox5) = False Then TextBox5.Tag = 1 MsgBox "Es sind nur Zahlen erlaubt !!!" TextBox5 = "0.000,00" 'Cancel = True TextBox5.SetFocus With TextBox5 'hier so einfach gesetzt und Set Focus i.o. .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With TextBox5.Tag = 0 Else Worksheets("Datenbank").Range("A20") = CDbl(TextBox5) TextBox5 = Format(Worksheets("Datenbank").Range("A20").Value, ("###,##0.00")) End If End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean) Private Sub TextBox3_Change() If TextBox3.Tag = "1" Then Exit Sub If IsNumeric(TextBox3) = False Then TextBox3.Tag = 1 MsgBox "Es sind nur Zahlen erlaubt !!!" TextBox3 = "00,00" 'Cancel = True TextBox3.SetFocus With TextBox3 'hier so einfach gesetzt und Set Focus i.o. .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With TextBox3.Tag = 0 Else Worksheets("Datenbank").Range("A12") = CDbl(TextBox3) 'so holt von Tabelle rein, auch Format mit TAB-Taste direkt rein ! End If End Sub Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE. Bitte kein Mail, Probleme sollen im Forum gelöst werden. Microsoft MVP für Excel Das Forum lebt auch von den Rückmeldungen.

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread