StarOffice: Rahmen mit Makro?

Hallo!

Ich möchte mit einem StarOffice-Makro Rahmen um bestimmte Zellen einer Tabelle legen. Wie geht das? Komischerweise funktioniert die Aufzeichnung dieses Kommandos nicht.

Schöne Grüße
Peter

hallo peter…

das wäre wirklich seltsam, weil bei excel funktioniert das…
sähe so aus:

With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

vielleicht hilfts ja

gruß
häpäss

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

das wäre wirklich seltsam, weil bei excel funktioniert das…
sähe so aus:

With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

vielleicht hilfts ja

Leider nicht, weil MS VBA verwendet und StarOffice eine eigene Makrosprache hat die eher an Java Script angelehnt ist und mit VBA eigentlich nicht viel zu tun.

Trotzdem Danke