Clever-Excel-Forum

Hallo,

ich habe auf meiner Userform eine ganze Reihe von Textboxen. Nun möchte ich mittels eines CommandButton beim Klicken eine Aktion in der jeweils

aktiven TextBox ausführen. Das Problem dabei ist, wie ermittle ich die aktive TextBox? Sobald ich den CommandButton drücke ist der Focus der aktiven

TextBox ja weg und liegt bei dem CommandButton?

Hallo

was für eine Aktion will man denn mit einer TextBox durchführen?

Code:
Option Explicit

Dim strAlt As String

Private Sub CommandButton1_Click()

    MsgBox strAlt

    strAlt = ""

End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    strAlt = "TextBox3"

End Sub

und dieses Exit für jede TextBox oder über Klassenprogrammierung (da bin ich allerdings raus)
oder gleich das was der Commandbutton machen soll in das Exit-Event der TextBox

MfG Tom

Hallo Algor,

setze die TakeFocusOnClick-Eigenschaft des Buttons auf False.
Im Code beziehst Du Dich dann so auf das aktive Element:

Private Sub CommandButton1_Click()

  ActiveControl = Now

End Sub

Gruß Uwe

Hallo Uwe

da hab ich mal wieder zu kompliziert gedacht...

MfG Tom

Prima funktioniert!

'Vorher setzen
CommandButton1.TakeFocusOnClick = False

'Beispiel:
Sub CommandButton1_Click()
Me.Controls(ActiveControl.Name).Text = Me.Controls(ActiveControl.Name).Text & " irgendwas an String anfügen"
End Sub

Algor

Crazy Tom

Kuwer

Crazy Tom

Algor