Zellwerte in Macros auslesen und vergleichen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Zellwerte in Macros auslesen und vergleichen

Re: Zellwerte in Macros auslesen und vergleichen

von turtle47 » Di, 08.07.2008 20:19

Hallo Stefan,
Stevie Flash hat geschrieben: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

Nach oben