Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1120to1124
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
Inhaltsverzeichnis

Worksheet_Activate über mehere Workbooks verwenden

Worksheet_Activate über mehere Workbooks verwenden
Horst
Hey!
Ich habe eine Vba Anwendung über mehrere Workbooks die ich gleichzeitig in Verwendung habe.
Dabei habe ich ein Workbook, wo die Makros und User Forms usw. implementiert sind. (Also das Stamm-Workbook)
Nun möchte ich das Worksheet_Activate in DieseArbeitsmappe meines Stamm-Workbooks für alle Workbooks gültig machen.
Ich möchte das Worksheet_Activate nur DieseArbeitsmappe in meines Stamm-Workbooks implementieren aber so, dass es auch reagiert wenn ich in einer anderen Arbeitsmappe ein Tabellenblatt aktiviere.
Geht so etwas?
Und wenn a wie?
Viel Grüße
Horst

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Worksheet_Activate über mehere Workbooks verwenden
02.12.2009 10:43:45
Rudi
Hallo,
mal als Beispiel.
In DieseArbeitsmappe deines Hauptworkbooks:
Option Explicit
Private WithEvents appMyXL As Application
Private Sub Workbook_Open()
Set appMyXL = Application
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set appMyXL = Nothing
End Sub
Private Sub appMyXL_WorkbookActivate(ByVal Wb As Workbook)
MsgBox Wb.Name & "!" & ActiveSheet.Name
End Sub
Private Sub appMyXL_SheetActivate(ByVal Sh As Object)
MsgBox Sh.Parent.Name & "!" & Sh.Name
End Sub

und workbook_open ausführen.
Gruß
Rudi
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige