Textbox aktivieren nach Msgbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox MsgBox
Bild

Betrifft: Textbox aktivieren nach Msgbox von: Eleni
Geschrieben am: 11.04.2005 11:11:25

Hi Forum,

Habe folgenden Codeabschnitt und möchte, dass wenn in der textbox 3 nix steht,

A) eine Fehlermeldung per Msgbox angezeigt wird und
B) nach Wegklicken der Msgbox der Cursor wieder in die textbox3 springt

Leider geht das mit Tabindex = 0 nicht. Wer kann weiterhelfen?


Danke schon mal im Vorraus. Ciao, Eleni



If UserForm1.TextBox3.Value = True Then
ThisWorkbook.Sheets("Tabelle1").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = UserForm1.TextBox3
Else: Msgbox ("Bitte, XXX angeben.")
UserForm1.TextBox3.TabIndex = 0
Exit Sub
End If

Bild


Betrifft: AW: Textbox aktivieren nach Msgbox von: chris b.
Geschrieben am: 11.04.2005 11:31:12

So gehts

UserForm1.TextBox1.SetFocus


Bild


Betrifft: AW: Textbox aktivieren nach Msgbox von: Eleni
Geschrieben am: 11.04.2005 11:43:10

Hi Chris,

Danke, funktioniert super.


Ciao, Eleni


Bild


Betrifft: Geschlossen, o.T. von: Eleni
Geschrieben am: 11.04.2005 11:47:31

o. T.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Textbox aktivieren nach Msgbox"