von Stephan » So, 15.08.2004 12:02
Code: Alles auswählen
Sub zellen_verbinden
'obere linke und untere rechte Zelle angeben, hier:
'(0,0,4,0) entspricht Zelle A1 --> 0,0 Zelle E1 --> 4,0
Bereich = ThisComponent.Sheets(0).getCellRangeByPosition( 0, 0, 4, 0 )
Bereich.merge(true)
End Sub
Stephan
[code]Sub zellen_verbinden
'obere linke und untere rechte Zelle angeben, hier:
'(0,0,4,0) entspricht Zelle A1 --> 0,0 Zelle E1 --> 4,0
Bereich = ThisComponent.Sheets(0).getCellRangeByPosition( 0, 0, 4, 0 )
Bereich.merge(true)
End Sub[/code]
Stephan