Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Userform anzeigen bei Wechsel auf Blatt

Forumthread: Userform anzeigen bei Wechsel auf Blatt

Userform anzeigen bei Wechsel auf Blatt
15.01.2005 12:44:05
Dennis
Guten Morgen,
vielleicht eine Frage für Joseg Ehrensberger, hallo Sepp :-)
Bei der Zeiterfassung die Du ja kennst, möchte ich es erreichen, daß ich bei Wechsel auf ein anderes Blatt (per Button) automat. eine bestimmte Userform geöffnet wird.
Das klappt komischer Weise nur, wenn ich eine Zelle manuell in dem Blatt wähle.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Show
End Sub

In wie weit muß ich den Code ändern, daß er es automatisch macht.
Gruß Dennis
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform anzeigen bei Wechsel auf Blatt
PeterW
Hallo Dennis,
versuch es mal mit folgendem Code im Modul DieseArbeitsmappe:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Name der TAbelle" Then UserForm1.Show
End Sub

Gruß
Peter
AW: Userform anzeigen bei Wechsel auf Blatt
15.01.2005 19:49:02
Dennis
Hmm, klappt leider nicht!
klappt aber wenn ich eine bestimmte Zelle direkt ansteuere.
peinliche Frage, aber der Befehl
....
Sheets("Tabelle1").Select
Range("A1").select
....
funktioniert so nicht.
Benötige da einmal nen kurzen Tipp, wie das noch mal funktioniert.
Gruß Dennis
Anzeige
AW: Userform anzeigen bei Wechsel auf Blatt
PeterW
Hallo Dennis,
natürlich klappt das, es sei denn, du hast irgendwo vorher stehen ApplicationEnableEvents = False.
Mein Tipp war aber auch zu kompliziert gedacht. Kopiere folgenden Code in das Modul der Tabelle (Rechtsklick auf dein Tabellenregister, Code einfügen, in das sich öffnende Fenster folgendes kopieren):

Private Sub Worksheet_Activate()
UserForm1.Show
End Sub

Gruß
Peter
Anzeige
AW: Userform anzeigen bei Wechsel auf Blatt
15.01.2005 22:51:54
Dennis
Super Peter,
danke hat geklappt.
Gruß Dennis
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige