[Gelöst] Bedingte Formatierung/Duplikat zur Vorzeile
Verfasst: Mi, 29.03.2017 14:56
Hallo miteinander.
Eine Tabelle ist nach Spalte L (Datum) und anschließend nach Spalte N (Postleitzahl) sortiert.
Ich möchte in Spalte G alle Zellen farbig markieren, wenn in Spalten L UND N übereinstimmende Zelleninhalte vorhanden sind und zwar entweder in der Vorzeile oder der nachfolgenden.
Mit folgendem Makro wird zwar die erste Zelle eingefärbt, jedoch nicht diejenige in der nächsten Zeile.
Hat jemand eine Idee, was ich ändern muss?
Gruß
Uwe
Eine Tabelle ist nach Spalte L (Datum) und anschließend nach Spalte N (Postleitzahl) sortiert.
Ich möchte in Spalte G alle Zellen farbig markieren, wenn in Spalten L UND N übereinstimmende Zelleninhalte vorhanden sind und zwar entweder in der Vorzeile oder der nachfolgenden.
Mit folgendem Makro wird zwar die erste Zelle eingefärbt, jedoch nicht diejenige in der nächsten Zeile.
Hat jemand eine Idee, was ich ändern muss?
Gruß
Uwe
Code: Alles auswählen
Sub EinfuegenBedingteFormatierung
Dim oCell as Object
Dim oConditionalForm as Object
oDoc = thisComponent
oSheet = oDoc.Sheets.getByName("Gesamtübersicht")
oCellCursor = oSheet.createCursor()
oCellCursor.GotoEndOfUsedArea(True)
letzte_Zeile = oCellCursor.getRangeAddress.EndRow
oRange = oSheet.getCellRangeByPosition(6,0,6,letzte_Zeile)
oBedingungen = oRange.getPropertyValue( "ConditionalFormat" )
Dim oBedingung(2) as New com.sun.star.beans.PropertyValue
oBedingung(0).Name = "Operator"
oBedingung(0).Value = com.sun.star.sheet.ConditionOperator.FORMULA
oBedingung(1).Name = "Formula1"
oBedingung(1).Value = "IF(AND($L1=$L2;$N1=$N2))"
oBedingung(2).Name = "StyleName"
oBedingung(2).Value = "rot"
oBedingungen.addNew( oBedingung )
oRange.setPropertyValue( "ConditionalFormat", oBedingungen )
end sub