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"