Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Makro: verbundene Zeilen trennen

Makro: verbundene Zeilen trennen
08.07.2005 10:49:52
maik
Hallo liebe Excel Gemeinde,
ich würde gerne per Makro verbundene Zeilen einer Spalte wieder trennen. Soweit komme ich noch, nun mein Problem:
in den verbundenen Zeilen stehen Werte, die nach der Trennung im jeder einzelnen Zeile des Vorher verbunden Bereichs stehen sollen.
Hat jemand einen Lösungsvorschlag oder zumindest einen Hinweis zur Lösung?
Beispieldatei:
https://www.herber.de/bbs/user/24561.xls
Vielen Dank
Maik
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro: verbundene Zeilen trennen
08.07.2005 11:05:02
ransi
hallo maik
versuchs mal so:
Option Explicit
Public

Sub test()
Dim zelle As Range
Dim wert
Dim bereich As Range
For Each zelle In Range("a1:a76")
If zelle.MergeCells Then
Set bereich = zelle.MergeArea
wert = zelle.Value
zelle.UnMerge
bereich.Value = wert
End If
Next
End Sub

ransi
Anzeige
AW: Makro: verbundene Zeilen trennen
08.07.2005 11:06:46
MichaV
Hallo
so z.B.:

Option Explicit
Sub SoGehts()
Dim Zelle As Range
Dim Bereich As Range
For Each Zelle In Intersect(Range("a:a"), UsedRange)
If Zelle.MergeCells Then
Set Bereich = Zelle.MergeArea
Zelle.UnMerge
Bereich.Value = Zelle.Value
End If
Next
Set Bereich = Nothing
End Sub

Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Makro: verbundene Zeilen trennen
08.07.2005 11:16:39
maik
Hallo Ihr beiden,
tausend dank - funktioniert super!!
viele grüße
maik
;
Anzeige
Anzeige

Infobox / Tutorial

Verbundene Zellen in Excel Trennen und Inhalte Übertragen


Schritt-für-Schritt-Anleitung

Um in Excel verbundene Zellen zu trennen und den Inhalt in alle betroffenen Zellen zu kopieren, kannst Du ein einfaches Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und lade Deine Arbeitsmappe.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Gehe zu Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Füge den folgenden Code ein:

    Option Explicit
    Sub TrenneVerbundeneZellen()
        Dim zelle As Range
        Dim wert
        Dim bereich As Range
    
        For Each zelle In Range("A1:A76")
            If zelle.MergeCells Then
                Set bereich = zelle.MergeArea
                wert = zelle.Value
                zelle.UnMerge
                bereich.Value = wert
            End If
        Next
    End Sub
  5. Schließe den VBA-Editor und gehe zurück zu Deinem Excel-Dokument.

  6. Führe das Makro aus: Drücke ALT + F8, wähle TrenneVerbundeneZellen und klicke auf Ausführen.

Jetzt sollten die verbundenen Zellen in Deiner angegebenen Range getrennt sein, und der Inhalt sollte in alle entsprechenden Zellen eingefügt worden sein.


Häufige Fehler und Lösungen

  • Makro funktioniert nicht: Stelle sicher, dass Du die richtige Range (z.B. "A1:A76") angegeben hast.
  • Inhalt wird nicht kopiert: Überprüfe, ob die Zellen wirklich verbunden sind und ob das Makro korrekt ausgeführt wurde.
  • Fehlermeldung beim Ausführen: Achte darauf, dass Du in der richtigen Excel-Version arbeitest und die Makros aktiviert sind.

Alternative Methoden

Falls Du kein Makro verwenden möchtest, kannst Du auch manuell vorgehen:

  1. Markiere die verbundenen Zellen.
  2. Klicke mit der rechten Maustaste und wähle Zellen formatieren.
  3. Gehe zum Reiter Ausrichtung und deaktiviere die Option Zellen verbinden.
  4. Kopiere den Inhalt der nun getrennten Zelle in die anderen Zellen manuell.

Diese Methode ist jedoch umständlicher, insbesondere bei vielen Zellen.


Praktische Beispiele

Ein Beispiel für das oben genannte Makro in einer realen Situation:

Angenommen, Du hast die Zellen A1 bis A4 verbunden und darin steht der Text "Umsatz". Nach dem Ausführen des Makros wird der Text in den Zellen A1 bis A4 angezeigt, anstatt nur in der ersten Zelle.


Tipps für Profis

  • Verwende Intersect: Um nur die genutzten Zellen zu berücksichtigen, kannst Du den Code so anpassen:

    For Each zelle In Intersect(Range("A:A"), UsedRange)
  • Automatisiere den Prozess: Wenn Du regelmäßig mit verbundenen Zellen arbeitest, speichere das Makro in Deiner Personal Macro Workbook, um es jederzeit verfügbar zu haben.

  • Vermeide verbundene Zellen: In vielen Fällen ist es besser, die Formatierung so zu gestalten, dass keine verbundenen Zellen benötigt werden. Das erleichtert die Datenverarbeitung.


FAQ: Häufige Fragen

1. Wie kann ich die verbundenen Zellen aufheben? Du kannst die Zellen einfach markieren, mit der rechten Maustaste klicken und Zellen formatieren auswählen, um die Verbindung aufzuheben.

2. Was passiert mit Formeln in verbundenen Zellen? Wenn Du verbundene Zellen trennst, bleibt nur der Wert der ersten Zelle erhalten. Formeln werden nicht automatisch in die anderen Zellen kopiert.

3. Gibt es eine Möglichkeit, mehrere Bereiche gleichzeitig zu trennen? Ja, Du kannst die Range im Makro anpassen, um mehrere Bereiche gleichzeitig zu bearbeiten, z.B. Range("A1:A76, C1:C76").

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige