TextBox2.Focus wird übersprungen

[jagga007]

Hallo Leute,

habe eine Anwendung erstellt, die es ermöglicht Tagesberichte für jeden Tag zu erstellen, sowie ein neues Monate mit dem Namen des Benutzer anzulegen. Das Textfeld zur eingabe eines Namens wird über einen Optionsbutton geregelt.
Zum Schluß wird ein CommandButton geklickt und überprüft ob in dem Textfeld auch ein Name eingetragen wurde. Wenn nicht wird dieses Feld farbig markiert und mit einer MsgBox gemeldet. Nach bestätigen dieser Meldung, sollte der Curser wieder in die Textbox springen. Macht es aber nicht.


So sieht die abschliesende Sub aus.

Code:

Private Sub cmd_OK_Click()
   With ActiveSheet

       If opt_NurData = True Then
           If TagNeu <> 0 Then
               Blattschutz_freigeben
               Call Blattschutz_freigeben
               appaF                       ' ScreenUpdating, DisplayAlerts
               If TagHeute <> TagNeu Then
                   Call sortierenReg
                   Sheets(strTagNeu).Select    ' gewähltes Datum aus Calendar1 wählen
               End If
               appaT
               Call Blattschutz_vergeben
           End If

       ElseIf opt_2 = True And TextBox2.Value = "" Then
           appaF
           ' ***************************************************
           ' wenn Neues Jahr gewählt und opt_2 und Textbox2 nicht gefüllt
           With Frame3
               .Label5.BackColor = &HFF&
               .ForeColor = &HFFFF&
               .BorderColor = &HFFFF&
               .BackColor = &HFF&
           End With
           MsgBox "Ohne Deinen Namen, kann die Datei Dir zugeordnet nicht erstellt werden!"
           With Frame3
               .Label5.BackColor = &H8000000F
               .ForeColor = &H80000012
               .BorderColor = &H80000012
               .BackColor = &H8000000F
           End With
           TextBox2.SetFocus

       ElseIf opt_1 = True Then
           Call NeuerMonat

       End If
       
   End With
   Unload Me
End Sub

Hab nun schon einiges ausprobiert, aber es kommt nicht die Erleuchtung . Vieleicht ist hier jemand, der mir auf Sprünge helfen kann. 
Wäre Super.


Gruß jagga007

[schauan]

Hallöchen,

wozu soll den der Focus in Textbox2 gelenkt werden, wenn danach das Userform entladen wird? Beim nächsten Start hast Du wieder den Ausgangszustand und dazwischen gibt es nix zu tun.

[Kuwer]

Hallo,

ist doch eh egal, wenn UF am Ende durch

Unload Me

geschlossen wird!?

Gruß Uwe

[jagga007]

Vielen, vielen Dank da war ich ja wohl gewaltig auf dem Holzweg.


Gruß jagga007