Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige