Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formatierung mit VBA übernhemen

Formatierung mit VBA übernhemen
12.09.2006 15:14:29
felix
Hallo zusammen
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatierung mit VBA übernhemen
12.09.2006 16:01:50
Galenzo
Range("B5:C8").Copy
Range("E16").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
/Galenzo
AW: Formatierung mit VBA übernhemen
12.09.2006 16:10:36
felix
Im Prinzip hab ich ja genau das gemacht. Der Vorgang mit Copy - Paste ist einfach sehr langsam, vor allem bei vielen Daten.
trotzdem danke
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige