bed. Format. greift nicht
02.03.2014 19:34:09
Franz
ich gebe per VBA in einen Bereich eine bedingte Formatierung ein, und zwar diese:
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ZS=min(wenn(Z" & 40 & "S" & spal + 2 + plusSpal & ":Z" & 200 & "S" & spal + 2 + plusSpal & ">=HEUTE();Z" & 40 & "S" & spal + 2 + plusSpal & ":Z" & 200 & "S" & spal + 2 + plusSpal & ";9^9))"
Die Formel ist richtig, es ist diese hier:
=O40=MIN(WENN($O$40:$O$200>=HEUTE();$O$40:$O$200;9^9))
Die entsprechende Formatierung wird aber - ZUNÄCHST - nicht angezeigt (die Formel ist sicher richtig!) Wenn ich den Bereich markiere, dann die bed. Form. aufrufe und lediglich mit OK bestätige (also nichts an de rFormel ändere), dann geht's.
"Application.Calculation = xlCalculationAutomatic" hab ich auch schon drin. Was kann es denn noch sein, was eine richtige Anzeige verhindert?
Und noch was ganz Merkwürdiges passiert: wenn ich zunächste nur 1 zelle des Bereichs auswähle, die bed. Form. aufrufe und mit OK bestätige - und jetzt erst den ganzen Bereicht, incl. der einzelne Zelle, markiere und die bed. Form. aufrufe, erscheint sie so, wie wenn mehrere Zellen mit unterschiedlichen Formeln eingegeben wären. Ich versteh's nicht...........!! Was mach ich denn falsch?
Danke schonmal und Grüße
Franz