Hallo Andreas
Andreas Borutta schrieb:
> Eine Bitte noch:
> Könntest Du vielleicht die Stelle im Makro kennzeichnen, wo man
> weitere Spalten ergänzen kann, auf die sich das Makro auswirken soll?
siehe unten
> Wechselschalter wie z.B. der für "Fett" oder "Kursiv" verhalten sich
> bei gemischt formatierten Inhalten so, dass dem ganzen Bereich die
> gleiche Formatierung zugewiesen wird.
> Das geht zur Zeit mit Deinem Makro nicht.
Dann brauchts zwei Makros:
Sub gleiche_verbinden
odoc = thisComponent
with odoc.sheets(0) '1.Tabellenblatt
aSpalten() = array("A","C","D","E") 'hier Spalten eintragen
for i = 0 to ubound(aSpalten())
iz = 1 : ez = 2
do until .getcellrangebyName(aSpalten(i) & iz).string = "" 'bis zur
1.Leerzelle
if .getcellrangebyName(aSpalten(i ) & iz).string <>_
.getcellRangebyName(aSpalten(i) & ez).string then
oBereich = .getCellRangeByName(aspalten(i) & iz & ":" & aspalten(i) & ez-1)
oBereich.merge(false)'zum mergen muss zuerst "entmergt" werden
oBereich.merge(true)
iz = ez
end if
ez = ez + 1
loop
next i
end with
End Sub
Sub Aufheben_Verbindung
odoc = thisComponent
with odoc.sheets(0) '1.Tabellenblatt
.getcellrangebyPosition(0,0,100,1000).merge(false)
end with
End Sub
Dadurch ergibt sich ein Problem falls du nur _eine_ Schaltfläche
benutzen möchtest, hier funktioniert es mit den Ereignissen 'Maustaste
gedrückt' und 'Maustaste losgelassen' in Verbindung mit einem "kurzen"
Klick fürs erste Makro und einem "langen" Klick fürs zweite.
Gruß Werner
---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org
