Zellen verbinden per Makro

[mecki_45]

Hallo zuusammen,
ich möchte in einem Sheet mehrere Zellen per Makro miteinander verbinden und anschließend Text einfügen (letzteres geht schon).
Leider finde ich in der Hilfe keinen entsprechenden Eintrag.
Wer weiß Rat?
Danke im voraus
Alex

[Stephan]

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

[ATT-MU]

Ich würde gern mal paar Zellen miteinander verbinden und das auch noch einfach, z.B.:Einfach auf ein Icon klicken, wie beim Unterstreichen. Nur habe ich kein passendes Symbol, dass ich hinzufügen kann.

In Excel ging´s!

ATT-MU