Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Zellverbund und Kopieren
#1
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... Sad 

Viele Grüße
Dirk


Angehängte Dateien Thumbnail(s)
   
Antworten Top
#2
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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste