Thema: Focus nach Klick auf einen Frame nicht dorthin setzen

ClassModule: frmFocus

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub Frame1_MouseDown(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   If Frame1.Tag = "" Then
      txtFirst.SetFocus
   Else
      Controls(Frame1.Tag).SetFocus
   End If
End Sub

Private Sub Label1_MouseDown(ByVal Button As Integer, _
   ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   If Frame1.Tag = "" Then
      txtFirst.SetFocus
   Else
      Controls(Frame1.Tag).SetFocus
   End If
End Sub

Private Sub txtFirst_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Frame1.Tag = txtSecond.Name
End Sub

Private Sub txtSecond_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Frame1.Tag = txtThird.Name
End Sub

Private Sub txtThird_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Frame1.Tag = txtFirst.Name
End Sub

Private Sub txtFirst_MouseUp(ByVal Button As Integer, _
   ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Frame1.Tag = txtFirst.Name
End Sub

Private Sub txtSecond_MouseUp(ByVal Button As Integer, _
   ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Frame1.Tag = txtSecond.Name
End Sub

Private Sub txtThird_MouseUp(ByVal Button As Integer, _
   ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Frame1.Tag = txtThird.Name
End Sub

StandardModule: basMain

Sub CallForm()
   frmFocus.Show
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und Frame