Hallo zusammen,
ich habe mit folgenden Befehlen eine Liste von Zelleninhalten erstellt:
Dim objRow As Object
Dim objCell as Range
Dim objSelection as Range
Set objRow = CreateObject("System.Collections.Arraylist")
With xy
Set objSelection = .Range(.Cells(1, 1), .Cells(2, .UsedRange.Columns.Count)) 'Selection auf die 1. Zeile
For Each objCell In objSelection
objRow.Add objCell 'Speichert alle Zellen als Objekte in einer Arraylist
Next
End With
Nun möchte ich den kompletten Zellinhalt, also inklusive sämtlicher Formatierungen in eine neue Tabelle schreiben
Mit mwbMtl.Sheets("Tabelle1").Range("A1") = objCell funktioniert es nicht, das übernimmt nur den "Value" der Zelle, aber sonst nichts.
Hat jemand eine Idee, wie man sämtliche Informationen einer Zelle in eine neue Zelle schreiben kann`?
Danke!