Office: (Office 2010) Schriftfarbe abfragen

Scheinbar gibt die Formel Farbe nicht den richtigen Colorindex zurück.

Für deine Grünfärbung musst du die Zahl 14 verwenden. Das kannst du aber debuggen...

 

OK, danke!

Die SUBS
Private Sub Worksheet_Calculate()
Calculate
End Sub
'
Private Sub Worksheet_Change(ByVal Target As Range)
Calculate
'End Sub

stören aber! Ich musste diese auskommentieren , da Excel sich sonst aufhängt. Ich nehme an die sollen dafür sein , dass die Funktion sich aktuallisiert, wenn die Farbe geändert wird?

Wie kann man das machen, dass man nicht jedesmal in die Zelle klicken muss damit sich die Funktion Summewennfarbe(..) den aktuellen Wert übermittelt?

 

Mit:
Code:

Dann scheinst du aber noch nen anderes Problem zu haben...

 

Code:

Das geht leider nicht. Aber sonst funktionierts. Danke!

 

Was meinst du mit geht nicht...
Weil sich Excel aufhängt oder wird die Funktion nicht refreshed?

 

die Funktion wird nicht refreshed ... also hab application.calculate

bei Private Sub Worksheet_Change(ByVal Target As Range) und auch bei
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
oder bei
Private Sub Worksheet_Calculate()

?? wer weiß

.... aber ansonsten super, schön einfach gehalten , ich hätte es viel umständlicher gemacht ...

 

So eine ganz zufriedenstellende Lösung habe ich nicht, aber evtl. einen Workaround der dir weiterhilft.

Was ich gefunden habe ist, das Excel nur eine Neuberechnung ausführt wenn eine Zelländerung erfolgt. Eine Formatänderung ist keine Zelländerung für Excel.

Du könntest aber in die Funktion SummeWennFarbe noch folgende Zeile einfügen:

Code:

Wenn du jetzt in dein Tabellenblatt folgenden Code anhängst:
Code:

Beim Verlassen der Zelle ( bei der du z.B. die Farbe geändert hast ) eine Neuberechnung ausgelöst, somit das Ergebnis in SummeWennFarbe angepasst.

Aber Achtung, du solltest keine weiteren Calculate im Code haben, damit es nicht zur Recursion kommt...

Schreib mal ob das für dich brauchbar ist...!!!

 

guten morgen;

hey das ist super , das müsste reichen *wink.gif* ... da hatte ich ein Jahr excel an der Schule und weiß so wenig ...

Super , danke, funktioniert jetzt alles !