Office: (Office 2013) Verbundene Zellen mit Makro Verbund aufheben

Hallo zusammen,

ich habe ein kleines 'Problemchen' mit einer xlsx; die Datei habe ich angehängt.

In der Datei im Anhang findet ihr zwei Tabellenblätter: 1x IST & 1x SOLL.
Das tabellenblatt "IST" hat normalerweise einen anderen Namen und ist in der Regel gleich aufgebaut.
Was sich ändern kann:
- die Anzahl der Zellen => dass das Ende bspw. nicht B1318 ist, sondern B1331 oder noch weiter.
- bis jetzt sind immer 13 Zellen miteinander verbunden, hier kann es zu Änderungen kommen - also 12 oder 14, 15

Die Herausforderung - für mich zumindest *Smilie

Die verbundenen Zellen B6:B18 sollen 'getrennt' werden und in jede Zelle soll die Zahl aus den verbundenen Zellen eingetragen werden => wie in tabellenblatt "SOLL" zu sehen ist.
Idealerweise auf Knopfdruck...

Es wäre zB. kein Problem, die Zahl in Spalte A einzutragen oder eine neue Spalte einzufügen

Ich hoffe, ich habe mich verständlich ausgedrückt...

Besten Dank schon jetzt für eure Unterstützung und lg aus Wien

:)

 

Code:

Ordne das Makro einem Schalter zu.

 

Hallo, *Smilie

markiere den Zellverbund, den Du auflösen möchtest und lass folgendes Makro laufen: *wink.gif*

Code:

Servus
Case

 

Hallo,

füge nach B eine neue Spalte ein und verwende in dieser die Formel: =WENN(ISTLEER(B6);C5;B6). Diese bis zum Ende runter ziehen.

Anschließend musst du die Formelergebnisse durch den Inhalt ersetzen und danach Spalte B löschen

 

Hallo zusammen,

sehr cool - vielen vielen Dank an euch alle.

Es funktionieren alle Versionen (was ja klar war), werde aber die von "WS-53" verwenden; die Formel kann ich ohne große Erklärungen auch an meine Kollegen weitergeben.

Noch einmal vielen Dank!

Lg Greg