Verbundene Zellen auflösen und automatisch befüllen

Question

Hallo,

ich habe mehrere große Tabellen unterschiedlichsten Aufbaus mit verbundenen Zellen (nur in Spalten) mit einer unterschiedlichen Anzahl von verbunden Zellen (von 3 bis ca. 10 Zellen).

Wie kann ich per Makro, in einem manuell markiertem Bereich, die verbundenen Zellen auflösen und die jeweils vorher verbunden Zellen mit dem Wert befüllen?

Vielen Dank und Grüße!

Thomas

Answer 1

Hi,

meinst du das in etwa so?

Sub VerbZellenFuellen()

For Each c In Selection.Cells
If c.MergeArea.MergeCells Then
Set r = c.MergeArea
r.UnMerge
r.Cells.Value = r.Cells(1).Value
End If
Next c

End Sub

Gruß Mr. K.

Answer 2

So ist der Code vielleicht verständlicher. Beide liefern das gleiche Ergebnis.

Sub VerbZellenFuellen()

For Each c In Selection.Cells
With c.MergeArea
If .MergeCells Then
.UnMerge
.Value = .Cells(1).Value
End If
End With
Next c

End Sub

Mr. K.

Answer 3

Na was soll ich sagen...


... PERFEKT!!!! ;-)



Vielen Dank & Grüße


Thomas