Supportnet / Forum / Tabellenkalkulation
UserForm starten durch öffnen eines Tabellenblattes
Frage
Hallo Experten,
wie kann ich eine UserForm aufrufen durch aktivieren eines bestimmten Tabellenblatts.
z..B. Sub Workbook_Open()
UserFormÖffnen
End Sub
Ich hoffe ihr könnt mir weiterhelfen.
Gruß
fedjo
Antwort 1 von Event
Hallo
Das geht mit der Show-Methode,
z..B. hier im Tabellenblatt-Anwahl-Ereignis:
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Gruß
Das geht mit der Show-Methode,
z..B. hier im Tabellenblatt-Anwahl-Ereignis:
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Gruß
Antwort 2 von fedjo
Danke Event für die schnelle Antwort.
Die UserForm sollte aber nur automatisch öffnen ,wenn ein bestimmtes Tabellenblatt aktiviert wird.
Also nicht gleich beim öffnen der Arbeitsmappe.
Gruß
fedjo
Die UserForm sollte aber nur automatisch öffnen ,wenn ein bestimmtes Tabellenblatt aktiviert wird.
Also nicht gleich beim öffnen der Arbeitsmappe.
Gruß
fedjo
Antwort 3 von Event
Hallo fedjo
Tut´s ja auch.
Du mußt lediglich die Show-Methode in das richtige Tabellenblatt-Ereignis kopieren.
Dazu im Excel mit ALT+F11 den vbe starten,
dann mit STRG+R den Project-Explorer anzeigen lassen,
und in dem auf dem gewünschten Tabellenblatt rechts klicken und Code anzeigen wählen.
Dann im Code-Fenster des Tabellenblattes links oben Worksheet auswählen, und rechts oben dann das gewünschte Ereignis, hier ist´s activate.
Wenn Du nun noch die ShowModal Eigenschaft der Userform auf false setzt, klappt nachstehendes:
Gruß
Tut´s ja auch.
Du mußt lediglich die Show-Methode in das richtige Tabellenblatt-Ereignis kopieren.
Dazu im Excel mit ALT+F11 den vbe starten,
dann mit STRG+R den Project-Explorer anzeigen lassen,
und in dem auf dem gewünschten Tabellenblatt rechts klicken und Code anzeigen wählen.
Dann im Code-Fenster des Tabellenblattes links oben Worksheet auswählen, und rechts oben dann das gewünschte Ereignis, hier ist´s activate.
Wenn Du nun noch die ShowModal Eigenschaft der Userform auf false setzt, klappt nachstehendes:
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Private Sub Worksheet_Deactivate()
UserForm1.Hide
End Sub Gruß
Antwort 4 von fejo
Hallo Event,
es funktioniert super.
Danke
Gruß
fedjo
es funktioniert super.
Danke
Gruß
fedjo