Excel: in Userform aktiviertes Textfeld ermitteln

Gepostet am: Feb 18, 2011 4:38:19 PM

Will man in einem Userform das aktivierte Textfeld ermitteln, um es beispielsweise in ein Zelle zu schreiben, stellt sich die Frage, wie man denn überhaupt ermitteln kann, welches Textfeld aktiv ist.

Um ein bestimmtes Textfeld aktiv zu setzen verwendet man:

> Me.Textfeld1.SetFocus

Man kann aber nicht die überprüfen, ob SetFocus=True ist oder ob SetFocus=False ist, sondern man kann stattdessen auf die Funktion

> Me.ActiveControl.Name

zurückgreifen, um zu ermitteln welches Control aktuell aktiv ist. Das gilt nicht nur für Textfelder!.

Um also beispielsweise - wie bereits anfangs erwähnt - das aktivierte Textfeld in eine Zelle zu schreiben:

aktuelles Textfeld in Tabelle schreiben

If TypeOf Me.ActiveControl Is MSForms.TextBox Then     Range("A1").Value = Me.ActiveControl.Value End If