Microsoft Excel

Herbers Excel/VBA-Archiv

Copy Paste funktioniert nicht. Warum?

Betrifft: Copy Paste funktioniert nicht. Warum? von: Andy
Geschrieben am: 09.09.2004 15:39:50

Hallöchen!
Ich habe folgendes

Sub zum kopieren eines zellebereiches in ein anderes Tabellenblatt. Das Problem ist aber dass die paste-mathode fehlerhaft sein soll.
Weiß jemand rat?


Sub uebernehmen()
Dim i, j, h As Integer
Dim rng1 As Range
Sheets("neue").Select
Application.Run "schutz_aus" 'Tabellenblatt "neue"

i = Sheets("neue").Cells(Rows.Count, 3).End(xlUp).Row
j = Sheets("Status").Cells(Rows.Count, 1).End(xlUp).Row + 1
h = i - 15  'Anzahl der neuen einträge wird berechnet

ActiveSheet.Range(Cells(15, 1), Cells(i, 5)).Select
Selection.Copy
Application.Run "schutz_ein" 'Tabellenblatt "neue"

Sheets("Status").Select
Application.Run "schutz_aus" 'Tabellenblatt "Status"
Range(Cells(j, 1), Cells(j, 5)).Select
ActiveSheets.Paste
.......
Application.Run "schutz_ein" 'Tabellenblatt "Status"
End Sub


Danke Andy
  


Betrifft: AW: Copy Paste funktioniert nicht. Warum? von: Nike
Geschrieben am: 09.09.2004 15:41:57

Hi,
ActiveSheets.Paste ist nicht gleich ActiveSheet.Paste

Das select nicht so ganz cool ist sei mal dahingestellt ;-)

Bye

Nike


  


Betrifft: AW: Copy Paste funktioniert nicht. Warum? von: Andy
Geschrieben am: 09.09.2004 15:47:53

Hallo Nike..

was meinst du mit "Das select nicht so ganz cool ..." ??

Andy


  


Betrifft: Problem gelöst von: Andy
Geschrieben am: 09.09.2004 16:14:28

die reihenfolge der codezeilen war etwas durcheinander, auch wenn es logisch aussah..

Andy


  


Betrifft: AW: Problem gelöst von: Nike
Geschrieben am: 09.09.2004 16:25:24

Hi,
Wenn Du lesen moechtest, warum das select nicht so ganz cool ist,
schau mal in die Basics von Hans rein...
https://www.herber.de/xlfaq/xlbasics/main_sel.htm

Bye

Nike