Excel-Zellen zusammenfügen ohne Inhalte zu verlieren

12. März 2012
Martin Althaus Von Martin Althaus, Excel, Office ...

Wie Sie in Excel aus zwei Zellinhalten einen machen

Excel bietet die Möglichkeit, Zellen zusammenzufassen. Über die Funktion FORMAT - ZELLEN - AUSRICHTUNG - ZELLEN VERBINDEN können Sie zwei Zellen zu einer Einheit zusammenfassen. Was machen Sie aber, wenn sich in beiden Zellen Inhalte befinden, die Sie nicht verlieren möchten? Setzen Sie VBA ein, um die Aufgabe zu lösen.

Das Beispiel aus der folgenden Abbildung zeigt eine kurze Liste von Namen:

rtemagicc_20080716-1bmp.jpg

Sie möchten die beiden Inhalte aus den Spalten A und B in der ersten Spalte A zusammenfassen und dann die beiden Zellen aus den Spalten A und B zu einer Zelle zusammenfassen. Das folgende Makro erledigt diese Aufgabe:

Sub ZellenZusammenfuegen()

Dim Zeile As Integer

Zeile = 1

While Not (IsEmpty(Cells(Zeile, 1)))

Cells(Zeile, 1) = Cells(Zeile, 1) & " " & Cells(Zeile, 2)

Cells(Zeile, 2).ClearContents

Range(Cells(Zeile, 1), Cells(Zeile, 2)).Merge

Zeile = Zeile + 1

Wend

Columns(1).AutoFit

End Sub

Das Makro durchläuft die Zeilen ab Zeile 1, bis in Spalte A ein leerer Inhalt auftaucht. Bei jedem nicht-leeren Inhalt werden die Inhalte aus A und B (getrennt von einem Leerzeichen) aneinandergehängt. Anschließend werden die beiden Zellen A und B zu einer Zelle verbunden. Die folgende Abbildung zeigt das Ergebnis:

rtemagicc_20080716-2bmp.jpg

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"