Clever-Excel-Forum

Sorry für die vielen Fragen. 

Ich habe jetzt lange rumprobiert und mir auch deinen Code angeschaut. Ein paar Sachen verstehe ich, ein paar nicht. 

Ein Problem ist, dass ich noch eine Spalte hinzugefügt habe. Dadurch funktioniert die Einfärbung nicht mehr.

Das andere Problem ist, dass wenn ich in einem neuen Arbeitsblatt die Visualisierung darstellen will, funktioniert das nicht. Wie lege ich auf der Seite einen neuen "=Farben" Bereich an? Wenn ich das Makro ausführe, färbt er mir dort die Zelle F13 ein. Das steht ja auch so im Makro Quelltext. 

Ich habe meine Versuchsdatei mal angehängt. Wäre super wenn du die Visualisierung mal auf die zweite Seite machen könntest
 

Viele Grüße 
Slapstick

 [attachment=21709]

Hallo S...,

A) Sorry
Ich hatte die Datei nicht aufgeräumt. Wenn ich mich nicht mehr an einen VBA-Befehl erinnere nutzte ich manchmal "Makro aufzeichnen" um den Befehl nachzusehen. Hierbei wird ein Modul angelegt.
Mein Programm "Worksheet_Change" steht unter "Tabelle1", da es als Ereignismakro ja aufgerufen werden soll, wenn sich in dem Blatt etwas ändert.

B)  8. Spalte
Hier die Code Zeile, die ich geändert habe:

dblAnteil = varMein(dict(lngBereich), 8)

C) Anderes Arbeitsblatt
Das Programm versucht alle Zellen des benannten Bereiches "Farben" zu färben. Unter "Formeln">"Namensmanager" kannst du den gewünschten Bereich festlegen.
Zur Zeit wird nur ein zusammenhängender Bereich unterstützt. Wenn du Zellen an verschiedenen Stellen in der Datei variabel einfärben möchtest, muss das Programm erweitert werden.