excel-rahmen

[my head]

hi!

weiß jmd wie ich in excel über script einen bereich markieren kann und um diesen dann einen rahmen ziehen??

[mrx]

Hi,

da die Scriptsprache mit der eines Excel Makros sehr ählich ist, schlage ich vor du schaust dir mal an was Excel in einem entsprechend aufgezeichneten Makro macht und passt das dann in deinen LS Code ein.

Gruß
Malte.

[my head]

danke, danke...

[my head]

hab das gemacht und abgeändert folgenden code:

^{Excel.Range(xlSheet.Cells(1,1),xlSheet.Cells(70,112)).Select
Excel.Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous}


und in zeile 2 kommt "ole automation..."-fehler... kann mir jemd weiterhelfen?

[wflamme]

Vermutlich fehlt:

Const xlEdgeLeft = 7

(aus dem Object Browser)

Die Konstanten kriegst Du wie folgt:
http://www.sns1.de/partner/flamme/wflamme.nsf/Shortcut/DumpTypeLibInfo1

[my head]

^{'Konstanten
   Const xlDiagonalDown = 5      
   Const xlDiagonalUp = 6   
   Const xlEdgeLeft = 7      
   Const xlEdgeTop = 8
   Const xlEdgeBottom = 9
   Const xlEdgeRight = 10
   Const xlInsideVertical = 11
   Const xlInsideHorizontal = 12
   
Excel.Range(xlSheet.Cells(5,5),xlSheet.Cells(10,10)).Select
   Excel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
   Excel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
   With Excel.Selection.Borders(xlEdgeLeft )
      .LineStyle = xlContinuous
      .ColorIndex = xlAutomatic
   End With
   With Excel.Selection.Borders(xlEdgeTop)
      .LineStyle = xlContinuous
      .ColorIndex = xlAutomatic
   End With
   With Excel.Selection.Borders(xlEdgeBottom)
      .LineStyle = xlContinuous
      .ColorIndex = xlAutomatic
   End With
   With Excel.Selection.Borders(xlEdgeRight)
      .LineStyle = xlContinuous
      .ColorIndex = xlAutomatic
   End With
   Excel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
   Excel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone}

hallo!

dieses script macht die border immer nur am linken rand des markierten  bereichs... warum??

danke schonmal

[ata]

... du verwendst weitere Konstanten, die du nicht deklariert hast - xlContinuous z.B....

ata

[wflamme]

Falls as das (s. ata) nicht ist:  Versuche doch mal, explizit eine Farbe und .weight zu setzen..
Ev. macht Excel ja das, was Du willst, Du kannst es nur nicht *sehen*?

[my head]

herzlichen dank!!!

es lag nicht and den konstanten und auch nicht an der farbe... aber an der weight!!!

[wflamme]

... und wieder ein Problem vom Schreibtisch aus gelöst