Aktion in Abhängigkeit des aktiven Elementes

[Algor]

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?

[Crazy Tom]

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

[Kuwer]

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

[Crazy Tom]

Hallo Uwe

da hab ich mal wieder zu kompliziert gedacht...

MfG Tom

[Algor]

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