Automatisierungsfehler
Lorenz
Folgender Code löst einen Automatisierungsfehler aus (vom Client getrennt). Was ist daran falsch?.
Bei Rechtsklick schaltet sich zwar die UF.Textbox ein, als weiterer Schritt (wo der Fehler eintritt) ist der Ablauf zwar in derselben UF aber in einem ganz anderen Steuerelement (CommandButton)
Private Sub TBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
_
ByVal Y As Single)
If Button = xlSecondaryButton Then
With TBox0
.Visible = True
.SetFocus
End With
End If
End Sub
Gruss
Lorenz
Anzeige