Microsoft Excel

Herbers Excel/VBA-Archiv

Fehler bei kopieren | Herbers Excel-Forum


Betrifft: Fehler bei kopieren von: dennis
Geschrieben am: 20.10.2008 10:15:09

Hallo zusammen,

bei mir weigert sich Excel2007 an einer Stelle Werte per VBA zu kopieren. Zuvor lief der Code immer einwandfrei unter Excel2000.




Sub test()

i = 48878

Set Tab1 = Application.ActiveWorkbook.ActiveSheet

ActiveWindow.WindowState = xlMaximized
                
        Tab1.Range("G3:AD" & i).Copy
        
        Workbooks.Add
        ActiveSheet.Paste
                
        Set Tab2 = Application.ActiveWorkbook.ActiveSheet
        Tab2.Cells(2, 1).Select
        
        i = i - 2
        Zähler = 1
                      
        Tab2.Range("D1:X" & Zähler * i).Copy
        
        Tab2.Cells(Zähler * i + 1, 1).Select

        Tab2.Paste                '  <------------ hier entsteht ein Fehler
        
                
        Zähler = Zähler + 1
        Tab2.Range("D" & (Zähler - 1) * i + 1 & ":U" & Zähler * i).Cut
         
        Tab2.Cells(Zähler * i + 1, 1).Select
        Tab2.Paste

End Sub



Es erscheint ein Laufzeitfehler in dem steht "das Objekt Paste ist fehlgeschlagen"

Hoffe jemand hat eine Idee woher der Fehler kommen kann.

Mfg
Dennis

  

Betrifft: AW: Fehler bei kopieren von: Oberschlumpf
Geschrieben am: 20.10.2008 10:37:18

Hi Dennis

Versuchs mal mit

ActiveSheet.Paste

Hilft das?

Ciao
Thorsten


  

Betrifft: AW: Fehler bei kopieren von: dennis
Geschrieben am: 20.10.2008 10:40:06

Hi Thorsten,

hatte ich auch schon versucht geht aber leider nicht.
"Tab2" ist ja in dem Moment auch das "ActiveSheet".

Hab auch schon .PasteSpecial versucht und das funktioniert auch nicht.

Gruss Dennis


  

Betrifft: AW: Fehler bei kopieren von: dennis
Geschrieben am: 20.10.2008 10:58:11

Ok hab heraus gefunden woran es liegt.
Hab die ganze Zeit nur mit erfunden Werten das Programm durchlaufen lassen.
Dadurch sind so viele Werte entstanden, dass nicht mehr genügend Zellen frei waren um die Werte rein zu kopieren.

Gruss Dennis


  

Betrifft: AW: Fehler bei kopieren von: David
Geschrieben am: 20.10.2008 10:53:07

Hallo Dennis.

vielleicht so:

Tab2.Range("D1:X" & Zähler * i).Copy Destination:=Tab2.Cells(Zähler * i + 1, 1)

m. E. kannst du den Zähler hier auch weglassen, da er IMMER an dieser Stelle den Wert '1' hat.

Gruß
David


  

Betrifft: AW: Fehler bei kopieren von: dennis
Geschrieben am: 20.10.2008 11:08:46

Hi David,

danke für die Hilfe. Ja der Code ist nicht optimal, da könnte man noch einiges ändern.
Hab allerdings schon heruasgefunden woran es lag.
Excel gingen einfach die Zellen aus, daher konnte er nicht mehr kopieren.

Gruss Dennis


Beiträge aus den Excel-Beispielen zum Thema "Fehler bei kopieren"