Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

1004 Die Paste-Methode des Worksheet... ActiveSheet.Paste funktioniert nicht mehr

Frage Entwicklung VB for Applications

Mitglied: ColdZero89

ColdZero89 (Level 1) - Jetzt verbinden

10.09.2012, aktualisiert 11:10 Uhr, 12177 Aufrufe, 1 Kommentar

Moinsen,

Ich hab nen ellen langes Marko das in einer Tabelle Werte die Senkrecht angeordnet sind, waagerecht anordnet.
Danach wird der Waagerechte Bereich kopiert, in ein anderes Datenblatt geganngen, die nächste leere Zeile gesucht, Datum eingetragen - X Spalten weiter springen und die Daten einfügen.

Das hat bisher 1a funktioniert, auf einmal meint der "Laufzeitfehler '1004': Die Paste-Methode des WOrksheet-Objektes konnte nicht ausgeführt werden.

Beim Debuggen bemängelt er die Zeile "ActiveSheet.Paste"

Hier der Code (Aus dem von Senkrecht nach Waagerecht nehme ich nur 2 Beispiele, den rest schneid ich raus sonst is der Code zu lang)

01.
Sub Makro_Daten_übertragen() 
02.
03.
'   Makro_Daten_übertragen Makro 
04.
 
05.
  Zeit = Right(Now(), 8) 
06.
 
07.
'   Spalten zu Zeilen konvertieren 
08.
     
09.
    Range("B2").Select 
10.
    Selection.Copy 
11.
    Range("A12").Select 
12.
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ 
13.
        SkipBlanks:=False, Transpose:=False 
14.
    Range("B3").Select 
15.
    Application.CutCopyMode = False 
16.
    Selection.Copy 
17.
    Range("B12").Select 
18.
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ 
19.
        SkipBlanks:=False, Transpose:=False 
20.
    Range("B4").Select 
21.
    Application.CutCopyMode = False 
22.
    Selection.Copy 
23.
    Range("C12").Select 
24.
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ 
25.
        SkipBlanks:=False, Transpose:=False 
26.
27.
28.
29.
30.
    ActiveWindow.SmallScroll Down:=-6 
31.
    Application.CutCopyMode = False 
32.
    ActiveWindow.SmallScroll Down:=-42 
33.
    Range("A12").Select 
34.
'   Ende der Spalten-Zeilen-Konvertierung 
35.
 
36.
 
37.
 
38.
'   Daten in die jeweilige Anlagentabelle übertragen 
39.
40.
'   Makro am 16.08.2010 von Valeri Daubert aufgezeichnet / 25.06.12 Makro von Kevin Lange angepasst 
41.
42.
    Sheets("Makro").Select      ' in den Reiter "Makro" springen 
43.
    Range("A12:I12").Select     ' relevanten Bereich auswählen 
44.
    Selection.Copy              ' ... kopieren 
45.
     
46.
    Sheets("Bad Kreuznach").Select  'in den Reiter "Bad Kreuznach" springen 
47.
    Range("A10").Select 
48.
     
49.
    Cells(65000, 1).End(xlUp).Offset(1, 0).Select   ' nächste leere Zeile suchen 
50.
    ActiveCell.FormulaR1C1 = Now                    ' das Datum eintragen 
51.
    Selection.NumberFormat = "DD.MM.YYYY" 
52.
    Cells(65000, 1).End(xlUp).Offset(0, 2).Select   ' in die Datenspalte springen 
53.
    ActiveSheet.Paste                               ' Daten einfügen 
54.
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
55.
        :=False, Transpose:=False 
56.
 
57.
58.
59.
    Sheets("Makro").Select      ' in den Reiter "Makro" springen 
60.
    Range("A33:P33").Select     ' relevanten Bereich auswählen 
61.
    Selection.Copy              ' ... kopieren 
62.
     
63.
    Sheets("Göttelborn").Select  'in den Reiter "Göttelborn" springen 
64.
    Range("A10").Select 
65.
     
66.
    Cells(65000, 1).End(xlUp).Offset(1, 0).Select   ' nächste leere Zeile suchen 
67.
    ActiveCell.FormulaR1C1 = Now                    ' das Datum eintragen 
68.
    Selection.NumberFormat = "DD.MM.YYYY" 
69.
    Cells(65000, 1).End(xlUp).Offset(0, 2).Select   ' in die Datenspalte springen 
70.
    ActiveSheet.Paste                               ' Daten einfügen 
71.
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ 
72.
        xlNone, SkipBlanks:=False, Transpose:=False 
73.
74.
75.
    Sheets("Makro").Select          ' in den Reiter "Makro" springen 
76.
    Range("A45:G45").Select         ' relevanten Bereich auswählen 
77.
    Selection.Copy                  ' ... kopieren 
78.
     
79.
    Sheets("Landau").Select  'in den Reiter "Landau" springen 
80.
    Range("A10").Select 
81.
     
82.
    Cells(65000, 1).End(xlUp).Offset(1, 0).Select   ' nächste leere Zeile suchen 
83.
    ActiveCell.FormulaR1C1 = Now                    ' das Datum eintragen 
84.
    Selection.NumberFormat = "DD.MM.YYYY" 
85.
    Cells(65000, 1).End(xlUp).Offset(0, 2).Select   ' in die Datenspalte springen 
86.
    ActiveSheet.Paste                               ' Daten einfügen 
87.
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ 
88.
        xlNone, SkipBlanks:=False, Transpose:=False 
89.
     
90.
End Sub
Ich weiß nicht ob von euch eventuell Jemand eine Alternative hat, ich hab schon ein paar ausm Inet probiert, jedesmal der selbe fehler... es ist zum Mäusemelken wieso das URplötzlich nicht mehr geht.

Als Randinfo: In 6 anderen Excel-Datein funktioniert das genau so einwandfrei ^_^

Gruß und Danke
Zero
Mitglied: ColdZero89
11.09.2012 um 11:36 Uhr
Moinsen,

nach suchen, Haare raufen und Kopf gegen die Wand hämmern, hab ich die Ursache gefunden.

Der Befehl aus Zeile 51, 68 und 84 sorgt dafür, das die Kopierte Range nicht mehr im Zwischenspeicher ist. Daher der Abbruch, er konnte NICHTs Einfügen, was Excel nicht im Speicher hatte.

Hab das Script nun so angepasst das im Nachhinein das Feld Formatiert wird.

Verdrehte Welt, Komische Welt, Microsoft Mehr bleibt nicht zu sagen.

Gruß Zero
Bitte warten ..
Ähnliche Inhalte
Windows Server
Copy and Paste in eine RDP Anmeldung
Beitrag von 6 Kommentare

Frage von KLeinstein.tm zum Thema Windows Server

C und C++
Methode multiple return values
Beitrag von 8 Kommentare

Frage von mayho33 zum Thema C und C

Erkennung und -Abwehr
Houdini on Paste Sites
Beitrag von

Link von C.R.S. zum Thema Erkennung und -Abwehr

VB for Applications
VBA Excel Dateien zusammenfassen
Beitrag von 3 Kommentare

Frage von cberndt zum Thema VB for Applications

Neue Wissensbeiträge
Administrator.de Feedback

Entwicklertagebuch: Die Startseite wurde überarbeitet

Beitrag von 2 Kommentare

Information von admtech zum Thema Administrator.de Feedback

Vmware

VMware Desktopprodukte sind verwundbar

Beitrag von

Information von Penny.Cilin zum Thema Vmware

Datenschutz

Session-Replay: Viele beliebte Webseiten zeichnen jegliche Texteingabe auf

Beitrag von 2 Kommentare

Information von Penny.Cilin zum Thema Datenschutz

Sicherheit

Zufällige Speicherzuweisung: Windows-Bug hebelt Sicherheitsmechanismus ASLR aus

Beitrag von 1 Kommentar

Information von Penny.Cilin zum Thema Sicherheit

Heiß diskutierte Inhalte
Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail
Beitrag von 24 Kommentare

Frage von ahstax zum Thema Visual Studio

Windows Netzwerk
Netzwerk Neustrukturierung
Beitrag von 16 Kommentare

Frage von IT-Dreamer zum Thema Windows Netzwerk

Windows Server
RDP macht Server schneller???
Beitrag von 16 Kommentare

Frage von JaniDJ zum Thema Windows Server

Windows 10
Windows 10 dunkler Bildschirm nach Umfallen
Beitrag von 15 Kommentare

Frage von Akcent zum Thema Windows 10