Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 10924 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 ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Linux
LTSP: PXE Boot funktioniert nicht (16)

Frage von Fenris14 zum Thema Linux ...

Virtualisierung
Drucker aus einer VM heraus funktioniert nicht (5)

Frage von NCCTech zum Thema Virtualisierung ...

LAN, WAN, Wireless
gelöst Netzwerk funktioniert nur in eine Richtung mit Gigabit (28)

Frage von DrChiwago zum Thema LAN, WAN, Wireless ...

Heiß diskutierte Inhalte
Windows Server
DHCP Server switchen (25)

Frage von M.Marz zum Thema Windows Server ...

SAN, NAS, DAS
gelöst HP-Proliant Microserver Betriebssystem (14)

Frage von Yannosch zum Thema SAN, NAS, DAS ...

Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

Windows 7
Verteillösung für IT-Raum benötigt (12)

Frage von TheM-Man zum Thema Windows 7 ...