Anzeige
Archiv - Navigation
1716to1720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA FormatCondition Formula nächste spalte

VBA FormatCondition Formula nächste spalte
18.10.2019 19:38:23
xxFreestylexx
Hallo muss in ein excel mit vielen spalten eine bedingte formatierung einfügen nun würde ich da per hand ewig sitzen..
Das ist mein Code für die erste spalte.. Wie könnte ich das ganze jetzt für spalte CY usw Wiederholen?
geht bis "SQ"
Sub bedingteformatierung
Set rng1 = Range("C18:C21,CX18:CX21")
Worksheets("Projektübersicht").Rows("8:65536").FormatConditions.delete
With rng1
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=SUMME($CX$19:$CX$21)$CX$18"
.FormatConditions(2).Interior.ColorIndex = 3
End With
End Sub
Das ergebnis nach dem ersten durchlauf sollte so aussehen
Set rng1 = Range("C18:C21,CY18:CY21")
With rng1
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=SUMME($CY$19:$CY$21) .FormatConditions(1).Interior.ColorIndex = 50
End With
With rng1
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=SUMME($CY$19:$CY$21)>$CY$18"
.FormatConditions(2).Interior.ColorIndex = 3
End With
Danke für eure hilfe

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Dreifach OT
18.10.2019 19:45:39
Hajo_Zi
https://www.herber.de/forum/messages/1718440.html
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige