VBA Ringdiagramm, Farben je nach Zellenwert ändern

[Björn.412]

Hallo,

spontan sehe ich 2 Möglichkeiten

- Sheet.Protect
- Prüfen, ob ein Chart existiert

Einfach zu realisieren ist:

Code-Teil des Workbooks:

Code:

Private Sub Workbook_Open()
Dim WS As Worksheet

Set WS = ThisWorkbook.Sheets(1)

WS.Protect , , , , 1
End Sub

Das "UserInterfaceOnly" erlaubt nur Änderungen per VBA.

In einem allgemeinen Modul sollte spezifiziert werden, welche Zellen ein User ändern darf:

Code:

Sub Daten_unprtect()
Range("A9:N9").Locked = False
End Sub

mfg

Moin,
ich bin erfreut wie gut Deine Beispiele funktionieren.
Nur wende ich diese selber an, funktioniert das nicht, lach .....  

Der 2. Code, den Du dem Beispiel hinzugefügt hast, ist so simpel und elegant.
Hänge ich den Code(etwas abgeändert) unter den meinem, funktioniert das nicht

Sub Daten_unprtect()
Range("A6:N10").Locked = False
End Sub

[Fennek]

In dergezeigten Beispieldatei geht es:

Fragen:

- gibt es verbundene Zellen
- sonstige Sperren

Dieser Code muss einmalig ausgeführt werden: (allgemeines Modul)

Code:

Sub WS_Protect()
Dim WS As Worksheet

Set WS = ActiveSheet

WS.Protect , , , , 1

Range("A1:N10").Locked = False
End Sub

Oder lade die Original-Datei hoch.

[Björn.412]

In dergezeigten Beispieldatei geht es:

Fragen:

- gibt es verbundene Zellen
- sonstige Sperren

Dieser Code muss einmalig ausgeführt werden: (allgemeines Modul)

Code:

Sub WS_Protect()
Dim WS As Worksheet

Set WS = ActiveSheet

WS.Protect , , , , 1

Range("A1:N10").Locked = False
End Sub

Oder lade die Original-Datei hoch.

Moin,
sorry, ich war ein paar Tage unterwegs.

Zu Deinen Fragen, es gibt keine zusammenhängenden Zellen und/oder Sperren.

In Deinem Beispiel "Sunburst Björn" funktioniert das genau so, wie ich das gerne hätte.
Das Diagramm kann nicht verändert werden und die Farben werden automatisch angepasst, wenn in der Tabelle ein Wert geändert wird.
Ich kann sehen, dass ein Blattschutz aktiv ist.

In meinem Beispiel ist das so, dsas sobald durch Deine Codes ein Blattschutz aktiv ist, die Farben nicht mehr geändert werden und eine Fehlermeldung (Laufzeitfehler 1004) erscheint.

[Fennek]

Der Marko nimmt den Wert aus P9. Dort steht die Formel "=O9*100"

Im "Original" ist P9 leer.

[Björn.412]

Der Marko nimmt den Wert aus P9. Dort steht die Formel "=O9*100"

Im "Original" ist P9 leer.

Moin,
sorry, ich habe vergessen, die Schriftfarbe zurück zu ändern.
Die Zelle P9 ist nicht leer.