|
Hallo zusammen,
Ich habe zwei VBA Codes. Der erste sperrt bestimmte Arbeitsblätter und der Zweite ("fixinvertcolor") sorgt dafür, dass in zwei Diagrammen die Balken rot gefärbt werden, aufgrund eines Excel-Fehlers.
Die Codes funktionieren jeweils problemlos wenn ich sie einzeln verwende. Mein Problem ist, dass ich mich mit VBA nicht besonders gut auskenne und wenn ich beide Codes in der gleichen Arbeitsmappe verwenden möchte, es teilweise zu Laufzeitfehlern kommt.
Mein Ansatz war den ersten Code beim starten laufen zu lassen, und dann den zweiten Code aufzurufen, siehe unten. Der zweite Code ("fixinvertcolor") wird nur für ein Tabellenblatt gebraucht.
Wie kann ich beide Codes richtig ausführen lassen, ohne dass es zu Laufzeitfehlern komm?
Vielen Dank & beste Grüße,
Rlaph
"
Private Sub Workbook_Open()
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
|