Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Copy und paste

Forumthread: Copy und paste

Copy und paste
04.12.2013 09:51:21
Albert
Hallo zusammen,
ich brauch dringend eure Hilfe...
mit dieser Codezeile will ich in einem Sheet etwas markieren und in einem anderen einfügen.
aber das funktioniert nicht. die Zeilen werden richtig ermittelt, aber kopiert wird nichts.
Case "A"
With Sheets("Hilfe")
.Range(.Cells(4, 733), .Cells(4, 1032)).Select
Selection.Copy
End With
With Sheets("Regelschichtplan")
.Range(.Cells(zza.Row, zza.Column + 4), .Cells(zza.Row, zza.colum + 365)).PasteSpecial
End With
Bitte, es wär dringend
Danke
A.

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Copy und paste
04.12.2013 10:04:28
Rudi
Hallo,
was ist zza?
Wirklich ABE4:AMR4 kopieren?
Case "A"
With Sheets("Hilfe")
.Range(.Cells(4, 733), .Cells(4, 1032)).Copy
End With
With Sheets("Regelschichtplan")
.Range(.Cells(zza.Row, zza.Column + 4), .Cells(zza.Row, zza.Column + 365)).PasteSpecial  _
xlPasteValues
End With

Gruß
Rudi

Anzeige
AW: Copy und paste
04.12.2013 10:06:28
hary
Moin Albert versuch's mal so.
Case "A"
With Sheets("Hilfe")
.Range(.Cells(4, 733), .Cells(4, 1032)).Copy
Sheets("Regelschichtplan").Cells(zza.Row, zza.Column + 4).PasteSpecial Paste:=xlPasteAll,  _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End With

evtl. auch statt: Paste:=xlPasteAll Paste:=xlPasteValues
gruss hary

Anzeige
AW:vergiss meinen Code,sry gruss owT.
04.12.2013 10:08:58
hary
.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige