Wie kann man die gesamte Formateirung einer Zelle (Farbe, Schriftart, Zahlenformat) per VBA übernehmen? Durch den Macrorecorder bin ich auf die Möglichkeit mit Copy & Pastespecial gestossen und hab es im folgenden Code ausprobiert. Diese Variante ist aber sehr langsam. Gibt es eine schnellere Variante oder ist dies die einzige Möglichkeit?
For Each objA In Worksheet (Sheet1).myRange
Range(objA.Address).Copy
Worksheets(strSheet).Cells(1, intStartCol + intCount).PasteSpecial
'Ohne Formatierung würd ich die 2 Zeilen folgendermassen ersetzen:
'Worksheets(Sheet2).Cells(1, intCount) = objA.Value
intCount = intCount + 1
Next
vielen Dank schon im voraus
felix