Makro für die ganze Arbeitsmappe
15.06.2018 08:14:12
Sven
Ich habe eine Frage, ich habe ein Dokument wo wenn ich in dem Arbeitsblatt Einstellungen in dem Zellenbereich C8:F10 beispielsweise etwas ändere sich in den Arbeitsblättern Tabelle5 - Tabelle16 etwas ändert.
Dieses Funktioniert jetzt auch, indem ich in jedes Arbeitsblatt meine Makros kopiert habe und _ diese im Arbeitsblatt Einstellungen mit folgendem Code aufrufe:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iZaehler As Byte
Dim ABlatt As String
Dim ABlatt1 As String
Dim ABlatt2 As String
Dim i As Integer
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Activate
ActiveSheet.Unprotect Password:="a"
Next i
For iZaehler = 5 To 16 Step 1
ABlatt = "Tabelle" & iZaehler & ".Spalte_aus_Kavitaeten"
ABlatt2 = "Tabelle" & iZaehler & ".Spalte_aus_Stroke"
ABlatt1 = "Tabelle5" & ".Beschriftung"
If Not Application.Intersect(Target, Range("C8:F10")) Is Nothing Then
Sheets("Januar").Range("AD13:AS15").ClearContents
Application.Run ABlatt1
Application.Run ABlatt
Application.Run ABlatt2
End If
Debug.Print iZaehler
Next iZaehler
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Activate
ActiveSheet.Protect Password:="a"
Sheet("Requalifizierung").Unprotect Password:="a"
Next i
End Sub
soweit so gut.
Gibt es eine Möglichkeit das ich meine Makros in Diese Arbeitsmappe packe und dort irgendwie Implementieren kann das diese ausgelöst werden wenn sich in Einstellungen was ändert?
Ich weiß leider nicht wie das funktioniert.
Weil so muss ich jedes mal wenn ich an meinen Makros etwas ändere das in allen Arbeitsblättern machen.
Excel Version 2016
Gruß Sven