Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Selektieren vermeiden

Selektieren vermeiden
29.12.2005 09:01:03
M.
Guten Morgen,
Ich möchte von einem Tabellenblatt auf das nächste Daten übertragen. Dazu benutze ich den folgenden code:
Worksheets("A").Range("A1"). copy _
Destination:=Worksheets("B").Range("A1")
Wie muß ich diesen erweitern, wenn ich nur Formate übertragen möchte? Dieses gelingt mir bisher nur über das "select"ieren, und das soll man ja nicht ;-)
Gruß aus den Schnee
Martin
P.S: Gibt es in vba die Möglichkeit z.B. Werte und Formate nicht jedoch die Formeln zu übertragen? Wie sähe das dann aus?

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

Betreff
Datum
Anwender
Anzeige
AW: Selektieren vermeiden
29.12.2005 09:16:31
Hajo_Zi
Hallo Martin,
Worksheets("A").Range("A1"). copy
With Worksheets("B").Range("A1")
.PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
zu Ps schaue mal in die Hilfe bei Deiner Version ist es möglich
xlPasteValuesAndNumberFormats


AW: Selektieren vermeiden
29.12.2005 09:18:33
IngGi
Hallo Martin,
zu deiner eigentlichen Frage:

Sub kopieren()
Worksheets("A").Range("A1").Copy
Worksheets("B").Range("A1").PasteSpecial Paste:=xlPasteFormats
End Sub
...und zu deinem PS:

Sub kopieren()
Worksheets("A").Range("A1").Copy
Worksheets("B").Range("A1").PasteSpecial Paste:=xlPasteValues
Worksheets("B").Range("A1").PasteSpecial Paste:=xlPasteFormats
End Sub
Gruß Ingolf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige