Zellwerte in Macros auslesen und vergleichen

[turtle47]

Hallo Stefan,

soll in der darunterliegenden Zeile eine durchgehende Linie gezogen werden.

Von oben nach unten oder von Links nach Rechts? Das geht mit normalen Bordmitteln sowieso nicht.

Folgendes Makro fügt eine diagonale Linie ein. Reicht das aus?

Code: Alles auswählen

Sub Datum_Auswerten
	oDoc=thisComponent
	mLine = createUnoStruct( "com.sun.star.table.BorderLine" )
	mLine.Color = 0
	mLine.InnerLineWidth = 25
	mySheet = oDoc.Sheets().getByName("Tabelle1")
	oCell1 = mySheet.getcellrangebyname("A1").Value
	oCell2 = mySheet.getcellrangebyname("B1").Value
	if oCell1 < oCell2 Then
	oCell3 = mySheet.getcellrangebyname("B2")
	oCell3.DiagonalBLTR=mLine
	end if
	if oCell1 > oCell2 Then
	oCell4 = mySheet.getcellrangebyname("A2")
	oCell4.DiagonalBLTR=mLine
	end if
End Sub

Jürgen