Seite 1 von 1

benachbarte Zellen verbinden und weider trennen

Verfasst: Di 13. Jul 2021, 12:10
von 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, :shock:

Re: benachbarte Zellen verbinden und weider trennen

Verfasst: Di 13. Jul 2021, 13:10
von 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.

Re: benachbarte Zellen verbinden und weider trennen

Verfasst: Di 13. Jul 2021, 15:25
von 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...

Re: benachbarte Zellen verbinden und weider trennen

Verfasst: Sa 17. Jul 2021, 10:32
von 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)

Re: benachbarte Zellen verbinden und weider trennen

Verfasst: Do 22. Jul 2021, 19:31
von 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 :roll:

Re: benachbarte Zellen verbinden und weider trennen

Verfasst: Fr 23. Jul 2021, 14:44
von 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.

Re: benachbarte Zellen verbinden und weider trennen

Verfasst: Sa 24. Jul 2021, 17:27
von 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 :lol: