benachbarte Zellen verbinden und weider trennen

[Statistiker]

Wenn ich zwei (oder mehrere) nebeneinanderliegende Zellen miteinander verbinden möchte, mache ich das so:

1. Ich markiere die Zellen
2. Dann rufe ich den Button "Verbinden und zentrieren" (den mit gelben Strich auf). Das Auswahlmenü erscheint.
3. Ich wähle Option 1

   Code: Alles auswählen

   Inhalt der versteckten Zellen in die erste Zelle verschieben

4. Alle markierten Zellinhalte sind jetzt in einer Zelle, natürlich mit jeweils einem Leerzeichen dazwischen.
5. Nun möchte ich, daß der kombinierte Zellinhalt nur noch in einer normalen Zelle steht, wähle also wieder "Verbinden und zentrieren" und spalte die (lange) Zelle in die ursprünglich (unter 1.) markierten Zellen auf, der kombinierte Text landet jetzt zentriert in der linken Zelle.
6. Fertig!

Wie kann ich mir das Zusammenfassen und wieder trennen sparen, geht das überhaupt mit einem Makro? Bei sehr vielen, auf diese Weise zu bearbeitenden Zellen ist das eine mühselige Arbeit. – Alternativ wäre da noch die VERBINDEN-Funktion.

Ich habe versucht, den Ablauf als Makro mitzuschneiden, aber es kommt immer das Fenster mit den drei Auswahlmöglichkeiten. Könnte mir jemand helfen,

[Pit Zyclade]

Für deinen Wunsch in Punkt 5 brauchst du kein Makro. Enfach in der verschmolzenen Zelle strg+a, strg+c und in der gewünschten Position strg+v.

[Statistiker]

Danke Pit,
ja das ist eine Möglichkeit. Aber da muß ich jedesmal in die Bearbeitungszeile gehen, alles markieren, kopieren und dann an gewünschter Stelle einfügen. Die 'vergrößerte Zelle' bleibt dann aber immer noch erhalten. N' Makro wäre schon besser...

[karolus]

Woher soll das Makro denn wissen, ob du nun die Inhalte von 2 oder 3 oder drölfzig nebeneinanderliegendenden Zellen in der linken Zelle möchtest?

Code: Alles auswählen

=VERBINDEN(" "; 1 ; B2:H2)

[Statistiker]

Es soll ja Makros geben, die können die Anzahl der markierten Zellen ermitteln. Und diese markierten Zellen werden dann zusammenkombiniert...

Sorry für die späte Antwort, habe es schlichtweg vergessen

[mikele]

Hallo,
so in etwa:

Code: Alles auswählen

sub verbinden
	oDoc=ThisComponent
	oSel=oDoc.CurrentSelection
	if oSel.supportsservice("com.sun.star.sheet.SheetCellRange") then
		adaten=osel.getDataArray
		for i=0 to ubound(adaten)
			adaten(i)(0)=join(adaten(i))
			for k=1 to ubound(adaten(i))
				adaten(i)(k)=""
			next
		next
		osel.setDataArray(adaten)
	end if
end sub

Rufe das Makro auf, nachdem du einen Zellbereich markiert hast.

[Statistiker]

Glück auf Mikele,
dis hast du abber fei' g'macht mei Gudsder (würde der Sachse sagen), auf jeden Fall funktioniert es (auch mit leeren Zellen). Ich komme aber nicht darauf, wie man untereinander liegende Zellen (in Spalten) verbinden kann. Aber Danke ersteinmal und vy73
Micha