Conditional Formatting ...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo
Zitat
... sondern eine von beiden je nach Fall durchkommt.
Nein, nicht eine von beiden
Es wird immer die Erste zuerst geprüft. dann die Zweite dann die Dritte.
Ist ein Ergebnis wahr, hat sich das für Excel erledigt. Ist das Ergebnis der Bedingung1 falsch, wird die Bedingung2 geprüft usw.
Das ist aber kein Problem, sondern Excel verhält sich immer so.

Zitat
Andere Frage, wenn ich das VBA in das Modul meines .xls eintrage dann scheints dass die Zellen jetzt keine weitere Zuweisung des VBA mehr brauchen. Stimmt das ?
Diese Frage habe ich nicht verstanden, sorry.

Zitat
Und, die Funktion brauche ich quasi ueber die gesamte column ... wie schlaegt sich das im VBA nieder ?
Das geht natürlich auch, allerding würde ich dann nicht FormatConditions nutzen, sondern gleich
in VBA mit If Then arbeiten und die Auswertung über das Change oder Calculate anstoßen.
Am besten Du stellst ein kleines Bsp. zur Verfügung in dem Du nochmal erklärst
was Du wann, wo und warum haben möchtest.
Gruß Matthias

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 25 Then If Cells(Target.Row, 1) = Date Then Cells(Target.Row, 25).Interior.ColorIndex = 5 Else Cells(Target.Row, 25).Interior.ColorIndex = xlNone End If If Cells(Target.Row, 25)

Hi Matthias,
thx, das hat funktioniert. Zelle hatte zwar Formel, aber die habe ich dann einfach wieder reingeschrieben. Findet der Refresh auch statt wenn ich in irgendeiner anderen Zelle was aender, bzw gibt es einen generellen refresh der die VBA Formatierung aktualisiert ? Habe 82 Zellen in der Reihe ... ich habe Excel Refresh nachgeschaut, Ctrl+Alt+F9 refreshed alles aber VBA Formatierung nicht.
Habe bisschen rumgespielt und Formel mal auf gesamte Reihe gesetzt, jetzt aber gehen mir dann die Backgrounds von anderen Zellen futsch, wenn die Reihe nicht mehr Today ist. Gibt's dafuer auch eine Loesung o. muss man dann die anderen Columns auch Conditional-VBA-Formatieren ?
Gruss, Frank
If Target.Column < 82 Then
If Cells(Target.Row, 1) = Date Then
Target.EntireRow.Interior.ColorIndex = 34
Else
Target.EntireRow.Interior.ColorIndex = xlNone
End If
If Cells(Target.Row, 25) < Cells(Target.Row, 23) Then
Cells(Target.Row, 25).Font.ColorIndex = 3
Else
Cells(Target.Row, 25).Font.ColorIndex = xlAutomatic
End If
End If

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread