Office: Verbundene Zellen trennen und Inhalt in alle getrennten Zellen kopieren

Hallo Liebes Forum,

ich habe große Tabellen mit je Spalte unterschiedlich viel vertikal verbundener Zellen in denen ein Text steht.

Ich möchte mit Hilfe einer VBA Makro auf dem ganzen Blatt alle verbundenen Zellen teilen und den Text aus der einst einen Zelle in die neu geteilten Zellen schreiben.

Kann mir hier jemand helfen?

Vielen Dank.

Grüße
Gombe

:)

 

Hallo Gombe,

das Durchforsten ALLER Zellen im Blatt dauert seine Zeit. Wenn Du die Suche nach verbundenen Zellen einschränken könntest, wäre das gut.

Beispiel:
Code:

Grüße
EarlFred

 

Hallo EarlFred,

danke, die Einschränkung wäre ok.

Dein Lösungsvorschlag bearbeitet nur die Spalte A.
Wie kann ich das auf die Spalten A bis Z bzw. das ganze Blatt anwenden?

Gruß
Gombe

 

Hallo Gombe,

für Spalten A:Z:
Code:

für das ganze Blatt (Kaffee kochen, trinken, Tasse abwaschen, Ergebnis anschauen *wink.gif*)
Code:

"Mittelding": Alles im benutzten Bereich
Code:

Grüße
EarlFred

 

Hallo EarlFred,

vielen Dank. Das war sehr gut und mir eine große Hilfe.

Möchte damit den Thread als "erledigt" makieren.

Nochmal vielen Dank.

Grüße
Gombe

 

Grüße
EarlFred

Hallo EarlFred,
das war genau der Lösungsansatz den ich benötigte.

Nun meine Frage, weil ich es selbst nicht hinbekomme:
Gibt es eine Möglichkeit auf die Zellen während des trennen und der Füllung des Values zuzugreifen?
Hintergrund: Ich müsste den enthaltenen Wert der verbunden Zelle durch die Anzahl der jeweils aufzulösenden Zellen teilen und dann erst zurückschreiben, bzw. in die Nachbarspalte schreiben.

Gibt es da einen Lösungsansatz?

Vielen Dank im Voraus.

Gruß HWH

 

Code:

 

Hallo Scorefun,
herzlichen Dank für deine schnelle und kompetente Antwort.

Genau das ist die Lösung, die ich benötige!*Smilie

Gruß
Helmut

 

Servus zusammen,
ich habe das Script probiert, bei mir geht es aber immer nur bis ca. Zeile 300 von 14800 (!) und ich weiß nicht, wie ich es weiterlaufen lassen könnte?
Mach ich was falsch?

Mein problem konkret:
Ich habe eine Liste mit IDs, welche über unterschiedlich große verbundene Zellen geht und beim Auflösen der verbundenen Zellen sollen einfach die bestehenden Daten eingetragen werden (vgl. angehängte Datei).

Grazie für einen Tipp