rainer23
Goto Top

VBA code für bedingte Formatierung bei einer wenn dann Formel?

Hallo zusammen,

ich komme einfach nicht da drauf, wie der richtige vba code für folgendes Problem lautet und ich hoffe so sehr, dass jemand von euch weiter weiß.

Im ganzen Arbeitsblatt "Lieferdaten" sollen die Zellen A:O einer Zeile rot eingefärbt werden, wenn zutrifft, dass in der jeweiligen Zeile in der Spalte E etwas drinnen steht UND das Datum, dass in Spalte F in dieser Zeile steht, kleiner ist als das Datum, was in Spalte M in dieser Zeile steht.

Wenn ich die bedingte Formatierung ohne VBA eingebe, sieht das so aus:

Bedingte Formatierung (Formel)
=UND($E2<>"";$F2<$M2)
dann wähle ich die Farbe Rot zum Ausfüllen aus, klicke auf OK, und gebe den Anwendungsbereich an:
$A$2:$O$10000

Wie würde das im VBA Code aussehen?

Danke für die Hilfe!!

Viele Grüße

Content-Key: 261723

Url: https://administrator.de/contentid/261723

Printed on: April 16, 2024 at 04:04 o'clock

Mitglied: 114757
114757 Jan 30, 2015 at 14:36:06 (UTC)
Goto Top
Moin,
schaust du hier:
Bedingte Formatierung in Excel 2010

Gruß jodel32
Member: colinardo
Solution colinardo Jan 30, 2015, updated at Mar 01, 2015 at 14:54:26 (UTC)
Goto Top
Hallo Rainer23, Willkommen auf Administrator.de!
Das sieht nach deiner Beschreibung so aus:
With ActiveSheet.Range("$A$2:$O$10000").FormatConditions.Add(xlExpression, Formula1:="=UND($E2<>"""";$F2<$M2)")  
   .Interior.Color = vbRed
End With
Grüße Uwe
Member: Rainer23
Rainer23 Feb 02, 2015 at 08:59:56 (UTC)
Goto Top
danke! werde ich gleich ausprobieren face-smile
Member: Rainer23
Rainer23 Feb 02, 2015 at 09:00:07 (UTC)
Goto Top
danke, werde ich gleich ausprobierren face-smile
Member: Rainer23
Rainer23 Feb 02, 2015 at 15:17:13 (UTC)
Goto Top
hat funktioniert! Tausend Dank!! Echt super face-smile))
Member: colinardo
colinardo Feb 03, 2015 updated at 13:33:05 (UTC)
Goto Top
Wenns das dann war, den Beitrag bitte noch auf gelöst setzen. Merci.

p.s. die drei Kommentare hätte man auch in einem Kommentar zusammenfassen können.