Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Kopieren eines Arbeitsblatts verursacht Laufzeitfehler
zurück: Tastenkombination zum Schließen aller aktiven Dateien weiter: Excel-Zelleninhalt auf mehrere Zellen aufteilen? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
memo172
Neuling


Verfasst am:
19. März 2014, 08:24
Rufname:


Kopieren eines Arbeitsblatts verursacht Laufzeitfehler - Kopieren eines Arbeitsblatts verursacht Laufzeitfehler

Nach oben
       Version: Office 2007

Guten morgen,
ich bin ein blutiger anfänger leider komm ich nicht mehr weiter und hoffe das mir jemand hier helfen kann
Code:
Sub Aktualisieren87()
    Stamm = ActiveWorkbook.Name
    Excel.Application.EnableEvents = False
    WorkBooks.Open FileName:=strFileH87, ReadOnly:=True
    versandbuero87 = ActiveWorkbook.Name
    Range("A6:S50").Select
    Selection.Copy
    WorkBooks(Stamm).Sheets("Tabelle1").Activate
    Cells(5, 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone _
                           , SkipBlanks:=False, Transpose:=False
    Cells(5, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone _
                           , SkipBlanks:=False, Transpose:=False
    Range(Cells(5, 8), Cells(100, 8)).Delete Shift:=xlToLeft
    Range(Cells(5, 1), Cells(100, 20)).FormatConditions.Delete
    Application.CutCopyMode = False
    WorkBooks(versandbuero87).Close
End Sub

Sub Aktualisieren60()
    Stamm = ActiveWorkbook.Name
    Excel.Application.EnableEvents = False
    WorkBooks.Open FileName:=strFileH60, ReadOnly:=True
    versandbuero60 = ActiveWorkbook.Name
    Range("A6:U50").Select
    Selection.Copy
    WorkBooks(Stamm).Sheets("Tabelle1").Activate
    Cells(j + 3, 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone _
                               , SkipBlanks:=False, Transpose:=False
    Cells(j + 3, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone _
                               , SkipBlanks:=False, Transpose:=False
    Range(Cells(j + 3, 8), Cells(j + 100, 8)).Delete Shift:=xlToLeft
    Range(Cells(5, 1), Cells(100, 20)).FormatConditions.Delete
    Application.CutCopyMode = False
    WorkBooks(versandbuero60).Close
End Sub
Hier ist mein Code, bei dem Proggram tritt ab und zu Fehler auf (Laufzeitfehler 1004), es ist nicht regelmässig manchmal 1 mal am Tag manchmal 2-3 Tage läuft es Problemlos.Datei wird jede minute aktualisiert. Die Pfade werden durch zwei Button eingetragen und durch ein drittes aktualisiert. Also praktisch von zwei Dateien kopiert dann in die neue Datei eingefügt das muss man nur einmal am amfang machen danach läuft alles automatisch

wenn ich auf debuggen klick dann zeigt er mir dass der Fehler im sub aktualisieren 60 zeile Workbooks.Open oder aktualisieren 87 zeile Workbooks.open liegt Ich bin so am verzweifeln. Handelt es sich hier um diesen bekannten Fehler Kopieren eines Arbeitsblatts per Programm verursacht Laufzeitfehler 1004 in Excel wenn ja, wie könnte ich es lösen?

Vielen Dank im voraus
Viele Grüsse
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Anwendungsübergreifende Fragen: Das Kopieren von Daten aus meinem Email-Account in ... 1 Dr.Black 222 05. Sep 2013, 16:00
steve1da Das Kopieren von Daten aus meinem Email-Account in ...
Keine neuen Beiträge Anwendungsübergreifende Fragen: Dateien von Verzeichnis zu Verzeichnis kopieren 0 krefi 176 14. Jan 2013, 17:38
krefi Dateien von Verzeichnis zu Verzeichnis kopieren
Keine neuen Beiträge Office 2010 Forum: Laufzeitfehler 450 2 Nerevar 295 29. Feb 2012, 10:28
Nerevar Laufzeitfehler 450
Keine neuen Beiträge Anwendungsübergreifende Fragen: Kopieren zwischen Word und Poweropoint 0 Wenny 291 08. Feb 2012, 11:30
Wenny Kopieren zwischen Word und Poweropoint
Keine neuen Beiträge Anwendungsübergreifende Fragen: Sammlung in MS Clip Organizer kopieren/veröffentlichen 3 niesellll 1650 03. Feb 2012, 13:15
7ieben23 Sammlung in MS Clip Organizer kopieren/veröffentlichen
Keine neuen Beiträge Anwendungsübergreifende Fragen: Verbindung mit SAP Laufzeitfehler 3 mist3r 2741 13. Jan 2012, 15:55
Gast Verbindung mit SAP Laufzeitfehler
Keine neuen Beiträge Office 2010 Forum: Problem beim Kopieren eines Hyperlinks 2 tacki 390 26. Sep 2011, 09:57
tacki Problem beim Kopieren eines Hyperlinks
Keine neuen Beiträge Office 2010 Forum: Bilder aus einem PDF kopieren 1 Andrea1712 1023 20. Sep 2011, 10:49
G.O.Tuhls Bilder aus einem PDF kopieren
Keine neuen Beiträge Office 2007 Forum: Größenveränderung beim Kopieren von Grafiken 4 Mike2010 983 08. Dez 2010, 12:51
Mike2010 Größenveränderung beim Kopieren von Grafiken
Keine neuen Beiträge Anwendungsübergreifende Fragen: Tabellenblatt von Excel in eine Powerpointfolie kopieren 0 norman.benteler 518 24. Nov 2010, 14:36
norman.benteler Tabellenblatt von Excel in eine Powerpointfolie kopieren
Keine neuen Beiträge Office 2010 Forum: Outlook Accounts kopieren 1 bigrala 1297 05. Nov 2010, 20:21
Wüste. Outlook Accounts kopieren
Keine neuen Beiträge Office 2010 Forum: outlook: elemente aus "calendar" nach "kalend 0 McMaster 402 28. Sep 2010, 10:48
McMaster outlook: elemente aus "calendar" nach "kalend
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS