Das funktioniert auch mit dem nachstehenden Code.
Ist es immer erforderlich, erst "select" einzugeben und dann zusätzlich "activate"?
"Setfocus" habe ich nicht gefunden.
If KeyCode = 9 Then
If Mid(TextBox1, 4, 1) = 1 Then OptionButton1 = True
Tabelle1.ComboBox2.Select
Tabelle1.ComboBox2.Activate
End If