title image


Smiley Re: Textbox ermittlen
Hallo Tassos,



mal eine Möglichkeit







' **************************************************************

' Modul: UserForm1 Typ = Userform

' **************************************************************



Option Explicit



Private Sub CommandButton1_Click()

UserForm2.Show

End Sub



Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

UserForm2.Tag = "Textbox1"

End Sub



Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

UserForm2.Tag = "Textbox2"

End Sub



Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)

UserForm2.Tag = "Textbox3"

End Sub







' **************************************************************

' Modul: UserForm2 Typ = Userform

' **************************************************************



Option Explicit



Private Sub UserForm_Activate()

MsgBox UserForm2.Tag

End Sub



Code eingefügt mit: Excel Code Jeanie






 http://hajo-excel.de/fragen_wie_1.htm

Betriebssystem: Windows 10, Office 2016 32 bit. Bitte Version angeben. Bei keiner Angabe wird von meiner  ausgegangen.Mails nur nach Aufforderung.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: