VBA - bed.Format. mehrere Bedingung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hier jetzt der Code:


Sub Makro1()
Cells.FormatConditions.Delete
Range("B1:K50").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=WENN(UND($B2"""");$B2=$B1)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Borders(xlBottom)
.LineStyle = xlDashDot
.TintAndShade = 0
.Weight = xlThin
End With
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=WENN(UND($B2"""");$B2$B1)"
'    Selection.FormatConditions (Selection.FormatConditions.Count)
With Selection.FormatConditions(2).Borders(xlBottom)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlThin
End With
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$K1[kleiner]HEUTE()"
'   Selection.FormatConditions (Selection.FormatConditions.Count)
With Selection.FormatConditions(3).Font.Color = vbRed
End With
End Sub

Jetzt gerade fällt mir ein, ich hätte den auch einfach als txt hochladen können...zu spät.
Hoffe, dass ihr auch so klar kommt :-)
Edit: Mit der letzten Formel, genauer mit dem "kleiner als" hat das Forum irgendwie Probleme.

Hallo zusammen,
ich habe jetzt mal die Mappe hochgeladen: https://www.herber.de/bbs/user/134355.xlsm
Also nochmal: Ich versuche 4 bF via VBA in meiner Mappe zu integrieren.
1. Punkt-Strich-Linie unten, wenn der Lieferant gleich bleibt
2. durchgezogene Linie unten, wenn sich der Lieferant wechselt
3. abwechselnd grau/weiß als Hintergrund, bei unterschiedlichen Lieferanten
4. Rote Schrift, wenn das Lieferdatum in der Vergangenheit ist
1-3 beziehen sich auf den Bereich B1:Kn
4 bezieht sich auf D1:Kn
Die ersten beiden Bedingungen funktionieren super, die anderen beiden überhaupt nicht, es kommt auch keine Fehlermeldung.
Ich habe mittlerweile alles mögliche ausprobiert, was mir selbst eingefallen ist.
Aktueller Stand des Makros ist in der Mappe, hoffe das sieht nicht zu wüst aus momentan.
Habe die bF bzgl. Schriftfarbe auch schon einzeln mit einer If-Abfrage getestet, ich weiß bald schon nicht mehr, was noch alles.
Vielleicht hat ja jemand anhand der Datei eine Idee, woran es scheitert.
PS: Bevor die Frage aufkommt, ich möchte das via VBA machen, da sich sehr oft die Zeilenanzahl ändert, mittendrin eine dazu kommt oder gelöscht wird und ich keine Lust habe, jedesmal die bF händisch anzupassen.
Gruß Pierre

Beliebteste Forumthreads (12 Monate)

VBA - bed.Format. mehrere Bedingung

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread