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, 11659 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 (6)

Frage von KLeinstein.tm zum Thema Windows Server ...

Windows Netzwerk
RDP-Verbindung funktioniert nicht über Fritz!Box-VPN (7)

Frage von MIlexx zum Thema Windows Netzwerk ...

Windows Netzwerk
Domain Master Browsing funktioniert nicht in verschiedenen VLans

Frage von drewsho zum Thema Windows Netzwerk ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(38)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
POS Hardware und alternativen zu Raid 1? (21)

Frage von Brotkasten zum Thema Festplatten, SSD, Raid ...

Rechtliche Fragen
Hotspot rechtssicher betreiben? (14)

Frage von xSiggix zum Thema Rechtliche Fragen ...

ISDN & Analoganschlüsse
gelöst Splitter - RJ45 zu RJ11? (14)

Frage von Waishon zum Thema ISDN & Analoganschlüsse ...

Viren und Trojaner
Verschlüsselungstrojaner simulieren (12)

Frage von AlbertMinrich zum Thema Viren und Trojaner ...