Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Frame
BildScreenshot zu Frame Frame-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MultiPage
BildScreenshot zu MultiPage MultiPage-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

ActiveControl für TextBox im MultiPage

Betrifft: ActiveControl für TextBox im MultiPage von: Urmila
Geschrieben am: 17.11.2014 15:09:45

Hallo zusammen,

ich komme leider nicht weiter und hoffe ihr könnt mir behilflich sein...

Ich habe eine MultiPage, in diesem sind einige Textboxen.

Nun will ich wenn ich auf bestimmte TextBox (sind aber alle umbenannt) klicke oder mit Tab in die TextBox springe, soll eine MsgBox erscheinen. Folgenden Code habe ich zusammen gestellt doch es wird nie die TextBox erkannt sondern die MultiPage (also als MsgBox soll der Name des Textboxes erscheinen und nicht der von der MultiPage):

Private Sub TB_Biene_Enter()
MsgBox = Me.MultiPage.Pages(0).ActiveControl.Name
End Sub

Vielen Dank und LG
Urmila

  

Betrifft: AW: ActiveControl für TextBox im MultiPage von: Crazy Tom
Geschrieben am: 17.11.2014 15:16:51

Hallo

in meinem Test geht es so

Private Sub TB_Biene_Enter()
    MsgBox Me.MultiPage1.Pages(0).ActiveControl.Name
End Sub

MfG Tom


  

Betrifft: AW: ActiveControl für TextBox im MultiPage von: Rudi Maintaire
Geschrieben am: 17.11.2014 15:21:22

Hallo,
funktioniert soweit bei mir

MsgBox = ????

Gruß
Rudi


  

Betrifft: AW: ActiveControl für TextBox im MultiPage von: Urmila
Geschrieben am: 17.11.2014 21:55:34

Hallo zusammen,

sorry aber habe den Fehler soeben gefunden....die TextBoxen waren zwar in einem MultiSheet eingefügt, jedoch war da noc ein Frame (was auf die Größe skaliert war ohne Überschrift).

Habe diese dann so gelöst:

MsgBox Me.MultiPage1.Pages(0).ActiveControl.ActiveControl.Name


Vielen Dank und schöne Träume
Urmila


 

Beiträge aus den Excel-Beispielen zum Thema "ActiveControl für TextBox im MultiPage"