Excel - Wenden Sie VBA-Code auf mehrere Blätter an

Problem

Ich habe Gehalt Excel-Datei. Diese Datei enthält 200 Blätter, die für jeden Mitarbeiter sind.

Ich habe den folgenden VBA-Code.

 Private Sub Worksheet_Change (ByVal Target as Range) Wenn Target.Address "$ C $ 9" Dann Exit Sub Wenn Target = "seconded" Dann Range ("a12"). EntireRow.Hidden = True Range ("a14"). EntireRow.Hidden = Wahrer sonstiger Bereich ("a12"). EntireRow.Hidden = Falscher Bereich ("a14"). EntireRow.Hidden = Falsch End If End Sub 

Ich muss diesen Code nur einmal setzen / schreiben, um für alle 200 Blätter zu arbeiten, andernfalls muss ich ihn kopieren und in jedes von 200 Blättern einfügen.

Lösung

Mir scheint, dass Sie den Code nicht auf ein einzelnes Blatt anwenden möchten, sondern auf die gesamte Arbeitsmappe.

Doppelklicken Sie deshalb in VB unter den Blättern auf ThisWorkbook und fügen Sie Ihren Code wie folgt ein:

 Private Sub Workbook_SheetChange (ByVal Sh als Objekt, ByVal Target als Bereich) Wenn Target.Address "$ C $ 9" Dann Exit Sub Wenn Target = "seconded" Dann Range ("a12"). EntireRow.Hidden = True Range ("a14" ) .EntireRow.Hidden = True Else Range ("a12"). EntireRow.Hidden = False Range ("a14"). EntireRow.Hidden = False End If End Sub 

Vielen Dank an TrowaD für diesen Tipp.