Zellverbund und Kopieren

[=heute()]

Hallo zusammen,

wie im angehängten Bild möchte ich die daten aus einer Tabelle in eine neue kopieren. In dieser sind jedoch die ersten 3 Zeilen verbunden.
Ein normaler Kopiervorgang geht somit nicht. Die Zieltabelle ist schon vorhanden und in diese sollen die Daten aus etlichen anderen zusammengeführt werden.. Versucht habe ich es auch mit einer " Hilfstabelle" in welche man die Ursprungsdaten kopiert und dann in der Zieldatei mittels =Hilfstabelle!A2 usw.. quasi importiert, leider überspringt die verbundenen Zelle dann aber auch um die Anzahl der verbundenen Zellen...

P.S es geht um ca. 5000 Quellzellen sodass ein einzelnes kopieren nicht optimal wäre...  

Viele Grüße
Dirk

[26865]

Markieren den kompletten Bereich mit den verbundenen Zellen, also alle 5000 Datensätze in einem Rutsch. Dann starte das nachfolgende Makro:

Code:

Option Explicit

Sub Kopieren()
Dim c As Range
For Each c In Selection
   If c.MergeArea.Count > 1 Then
      With c.MergeArea
         .UnMerge
         .Value = .Cells(1).Value
      End With
   End If
Next c
End Sub