Verwendung von Worksheets_activate, um jedes Blatt auszulösen, ohne es in jedes Blatt zu setzen

Ich habe eine zufällige Anzahl von Blättern und möchte ein Ereignis aufrufen, wenn ich das ausgewählte Blatt ändere. Die Verwendung von Worksheet_Activate wird benötigt, um den Code in jedem Blatt hinzuzufügen. Es gibt eine Möglichkeit, das Ereignis auf die gesamte Arbeitsmappe anzuwenden.Verwendung von Worksheets_activate, um jedes Blatt auszulösen, ohne es in jedes Blatt zu setzen

Was ich weiß:

'Code added in sheet_X 
Private Sub Worksheet_Activate() 
    Call DoMyStuffs 
End Sub

Was ich will:

'Code added in ThisWorkbook 
Private Sub AnyWorksheet_Activate() 
    Call DoMyStuffs 
End Sub

Vielen Dank für jede Hilfe!

Quelle

2016-10-13 Rajivdmo

Willkommen bei Stackoverflow. Bitte beachten Sie, dass es sich hierbei nicht um einen kostenlosen Code-Write-Service handelt, sondern dass wir anderen Programmierern (und Aspiranten) helfen wollen, ihren eigenen Code zu schreiben. Bitte lesen Sie die Hilfethemen zu [Wie man eine gute Frage stellt] (http://stackoverflow.com/help/how-to-ask "How to"). Vielleicht möchten Sie auch die [Tour] (http://stackoverflow.com/tour "Magical Mystery Tour") besuchen und sich dabei ein Abzeichen verdienen. Danach aktualisieren Sie bitte Ihre Frage mit dem VBA-Code, den Sie bisher geschrieben haben, um die Aufgaben zu erledigen, die Sie erreichen möchten. –

Ich habe meine Frage geändert! – Rajivdmo

in Thisworkbook:

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 

End Sub

Quelle

2016-10-13 12:51:59 Pierre

Das löst alle meine Probleme! Vielen Dank! – Rajivdmo

Verwendung von Worksheets_activate, um jedes Blatt auszulösen, ohne es in jedes Blatt zu setzen

Antwort

Verwandte Themen