von erikafuchs » Sa, 07.05.2011 23:28
Hallo Leute,
vor einiger Zeit habt ihr mir geholfen in, per Makro erzeugten Dateien, Felder mit einer bedingten Formatierung zu versehen, die dafür sorgt dass sich die Felder grün färben wenn man eine
Zahl eingibt. Ich habe hier die entsprechenden Teile des Codes mal eingefügt:
Code: Alles auswählen
Sub bedingteFormatierung_neu
oPseudoCell = "A1"
oCell = outSheet.getcellRangebyName(oPseudoCell)
oCell.value = 1
oCell.cellbackcolor = 4057917
LDat.CurrentController.Select(oCell)
oDoc=zielFrame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Param"
args1(0).Value = "1"
args1(1).Name = "Family"
args1(1).Value = 2
dispatcher.executeDispatch(oDoc, ".uno:StyleNewByExample", "", 0, args1())
LDat.CurrentController.Select(-1)
Zellformat(0).Name = "Operator"
Zellformat(0).value = com.sun.star.sheet.ConditionOperator.GREATER_EQUAL
Zellformat(1).Name = "Formula1"
Zellformat(2).Name = "StyleName"
end sub
sub bedingteFormatierung (Spalte, StartZeile, EndZeile)
for ze = StartZeile to EndZeile
BedingtFormat = outSheet.getcellbyPosition(Spalte,ze).ConditionalFormat
ocell2 = outSheet.getcellRangebyName(oPseudoCell).string
Zellformat(1).value = ocell2
Zellformat(2).value = ocell2
BedingtFormat.addNew(Zellformat())
outSheet.getcellbyPosition(Spalte,ze).ConditionalFormat = BedingtFormat
next ze
end sub
... jetzt versuche ich den Code so zu verändern dass sich die Felder grün färben wenn ein
Text eingetragen wird ...Es klappt nicht! Kann mir jemand sagen was ich ändern muss?
Vielen Dank
Pit
Hallo Leute,
vor einiger Zeit habt ihr mir geholfen in, per Makro erzeugten Dateien, Felder mit einer bedingten Formatierung zu versehen, die dafür sorgt dass sich die Felder grün färben wenn man eine [color=#FF0000]Zahl [/color]eingibt. Ich habe hier die entsprechenden Teile des Codes mal eingefügt:
[code]Sub bedingteFormatierung_neu
oPseudoCell = "A1"
oCell = outSheet.getcellRangebyName(oPseudoCell)
oCell.value = 1
oCell.cellbackcolor = 4057917
LDat.CurrentController.Select(oCell)
oDoc=zielFrame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Param"
args1(0).Value = "1"
args1(1).Name = "Family"
args1(1).Value = 2
dispatcher.executeDispatch(oDoc, ".uno:StyleNewByExample", "", 0, args1())
LDat.CurrentController.Select(-1)
Zellformat(0).Name = "Operator"
Zellformat(0).value = com.sun.star.sheet.ConditionOperator.GREATER_EQUAL
Zellformat(1).Name = "Formula1"
Zellformat(2).Name = "StyleName"
end sub
sub bedingteFormatierung (Spalte, StartZeile, EndZeile)
for ze = StartZeile to EndZeile
BedingtFormat = outSheet.getcellbyPosition(Spalte,ze).ConditionalFormat
ocell2 = outSheet.getcellRangebyName(oPseudoCell).string
Zellformat(1).value = ocell2
Zellformat(2).value = ocell2
BedingtFormat.addNew(Zellformat())
outSheet.getcellbyPosition(Spalte,ze).ConditionalFormat = BedingtFormat
next ze
end sub[/code]
... jetzt versuche ich den Code so zu verändern dass sich die Felder grün färben wenn ein [color=#FF0000]Text[/color] eingetragen wird ...Es klappt nicht! Kann mir jemand sagen was ich ändern muss?
Vielen Dank
Pit