Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2000to2004
2000to2004
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

2 Zellen einer Zeile zusammenführen und wieder trennen

Forumthread: 2 Zellen einer Zeile zusammenführen und wieder trennen

2 Zellen einer Zeile zusammenführen und wieder trennen
07.01.2025 15:23:44
Max_Nbg
Hallo,
Ich versuche verzweifelt eine durch ein anderes Programm erzeugte Excelliste für eine Druckerausgabe umzuformatieren.
Entsprechende Zellen sollen verbunden und wieder getrennt werden. Der Text soll mittig stehen.
Ich habe absolut keine Vorkenntnisse, habe aber bereits folgenden Befehl herausgelesen:
Bsp.:
Sub VerbindeZellen()
Range("A8:B8").Merge
Range("A8:B8").UnMerge
End Sub

Die betroffenen Zeilen beginnen ab A8 und sind für jede Arbeitsmappe unterschiedlich (bis zu 200)
Makro soll also als Loop bis Zeile Ax bzw für die ganze Arbeitsmappe ausgeführt werden,
der Befehl soll nur erfolgen wenn ein Wert in der Spalte A eingetragen ist.

Mir qualmt nach der Recherche allein schon der Kopf, könnte mir bitte jemand helfen?

Beste Grüße,
Max
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Zellen einer Zeile zusammenführen und wieder trennen
07.01.2025 15:30:38
daniel
Hi
ist "Verbinden" zwingend?
vielleicht reicht ja auch "Horizontale Ausrichtung - über Auswahl zentrieren"
das könntest du einfach für die ganze Spalte ausführen.
Gruß Daniel
AW: 2 Zellen einer Zeile zusammenführen und wieder trennen
07.01.2025 16:03:39
Max_Nbg
Danke für die schnelle Antwort.

Im Endeffekt recht es mir, wenn die Inhalte von Spalte B in Spalte A jeder Zeile eingefügt werden.

https://www.herber.de/bbs/user/174728.xlsm
Beispielhaft, soll für alle vorhandenen Zeilen erfolgen

Danke Vorab und viele Grüße
Anzeige
AW: 2 Zellen einer Zeile zusammenführen und wieder trennen
07.01.2025 16:11:55
daniel
Hi
das geht in diesem Beispiel doch einfach mit : Kopieren und Inhalte Einfügen - Werte
Gruß Daniel
AW: 2 Zellen einer Zeile zusammenführen und wieder trennen
07.01.2025 16:23:00
UweD
Hallo nochmal.


so? 
Sub Verbinde()

    Dim Z1 As Integer, LR As Integer

    Z1 = 8 'erste Zeile

        

    LR = Cells(Rows.Count, "B").End(xlUp).Row 'letzte Zeile der Spalte B



    With Cells(8, 1).Resize(LR - Z1 + 1, 1)

        .Value = .Offset(0, 1).Value

        .Offset(0, 1).ClearContents

    End With

End Sub



Sub zurück()

    Dim Z1 As Integer, LR As Integer

    Z1 = 8 'erste Zeile

        

    LR = Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte A



    With Cells(8, 2).Resize(LR - Z1 + 1, 1)

        .Value = .Offset(0, -1).Value

        .Offset(0, -1).ClearContents

    End With

End Sub

LG UweD
Anzeige
AW: 2 Zellen einer Zeile zusammenführen und wieder trennen
07.01.2025 15:43:42
UweD
Hallo


so? 

Sub Verbinde()

    Dim Z1 As Integer, LR As Integer, i As Integer

    Z1 = 8 'erste Zeile

        

    LR = Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte



    For i = Z1 To LR

        With Cells(i, 1).Resize(1, 2)

            .HorizontalAlignment = xlCenter

            .MergeCells = True

        End With

    Next

End Sub



Sub Lösen()

    Dim Z1 As Integer, LR As Integer, i As Integer

    Z1 = 8 'erste Zeile

        

    LR = Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte



    With Cells(Z1, 1).Resize(LR - Z1 + 1, 2)

        .HorizontalAlignment = xlGeneral

        .MergeCells = False

    End With

End Sub


LG UweD
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum