Hallo Danke für Deine Antwort! Wie lade ich denn eine Beispieldatei hier im Forum hoch? Kann es nicht finden..!?
Aber du hast schon einen sehr guten Hinweis gegeben, das Problem tritt (jetzt im nachhinein logischerweise) nur auf wenn die Mappe mit dem falschen Arbeitsblatt (=Active Sheet) geöffnet wird.
Ich habe das jetzt so gefixt, dass erstmal das richtige Blatt beim Öffnen der Mappe aufgerufen wird (siehe Zeile 2). Das funktioniert jetzt erst mal, aber ist vermutlich nicht die eleganteste Lösung, da so immer mit dem gleichen Blatt geöffnet wird.
Wie müsste ich den Code anpassen, dass Beispielsweise der Code im Blatt "Overview Dashboard" erst ausgeführt wird, wenn dieses Blatt ausgewählt wird?
Vielen dank nochmal!
Ralph
Private Sub Workbook_Open()
Worksheets("Overview Dashboard").Select
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
'Blätter die nicht "entsperrt" werden sollen
'hier in der Case Anweisung aufführen
Case "Blatt 1" , "Blatt 2"
'nix machen
Case Else
wks.Protect userinterfaceonly:=True, Password:="XYZ"
wks.EnableOutlining = True 'für Gliederung
End Select
Next
Call fixinvertcolor
End Sub
Sub fixinvertcolor()
Dim N As Integer
Dim chartname As String
For N = 1 To 2
chartname = "TargetAch " & N
ActiveSheet.ChartObjects(chartname).Activate
ActiveChart.FullSeriesCollection(1).Select
With Selection.Format.Fill
Selection.InvertColor = RGB(192, 0, 0)
End With
Next N
End Sub
|