Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler bei Paste Methode, Laufzeitfehler 1004

Fehler bei Paste Methode, Laufzeitfehler 1004
07.06.2007 10:23:00
Andre
Moin Moin,
bin mal wieder unbeholfen was Excel angeht.
Habe mir mit dem Recorder ein Makro erstellt, allerdings führt Excel es nur zum Teil aus.
Bin für jede Hilfe dankbar!
Gruß
André aus SH
Die Fehlermeldung: Laufzeitfehler 1004
Die Paste-Methode des Worksheet-Objektes konnte nicht ausgeführt werden.
Das Makro:

Sub Test_07_06()
' Test Makro
' Makro am 07.06.2007 von andre aufgezeichnet
Workbooks.Open Filename:= _
"C:\Test.xls"
Range("B4:C33").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("C4") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Range("B4:C33").Select
Selection.Copy
ActiveWorkbook.Save
ActiveWindow.Close
Range("B4").Select
ActiveSheet.Paste             DENKE MAL DAS EXCEL SICH AN DIESER STELLE AUFHÄNGT.
Range("C3").Select
Workbooks.Open Filename:= _
"C:\Test.xls"
Range("E4:E33").Select
Selection.Copy
ActiveWindow.Close
Range("E4").Select
ActiveSheet.Paste
Range("D3").Select
Selection.AutoFill Destination:=Range("D3:D33"), Type:=xlFillCopy
Range("D3:D33").Select
ActiveWindow.SmallScroll Down:=-9
Range("B4:C33").Select
Selection.Copy
Sheets("WB").Select
Range("C12").Select
ActiveSheet.Paste
Range("E12").Select
Sheets("Voreinstellungen").Select
ActiveWindow.SmallScroll Down:=-15
Application.CutCopyMode = False
Range("B3").Select
End Sub


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler bei Paste Methode, Laufzeitfehler 1004
07.06.2007 10:32:13
Hajo_Zi
Hallo Andre,
auf select kann in VBA zu 99% verzichtet werden. Ohne Testung
Option Explicit

Sub Test_07_06()
' Test Makro
' Makro am 07.06.2007 von andre aufgezeichnet
Dim StName As String
StName = ActiveSheet.Name
Workbooks.Open Filename:="C:\Test.xls"
Range("B4:C33").Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("C4") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Range("B4:C33").Copy ThisWorkbook.Worksheets(StName).Range("B4")
ActiveWindow.Close
Workbooks.Open Filename:="C:\Test.xls"
Range("E4:E33").Copy ThisWorkbook.Worksheets(StName).Range("E4")
ActiveWindow.Close
Range("D3").AutoFill Destination:=Range("D3:D33"), Type:=xlFillCopy
Range("B4:C33").Copy Sheets("WB").Range("C12")
End Sub



Anzeige
AW: Fehler bei Paste Methode, Laufzeitfehler 1004
07.06.2007 10:34:00
Hajo_Zi
Hallo Andre,
auf select kann in VBA zu 99% verzichtet werden. Ohne Testung
Option Explicit

Sub Test_07_06()
' Test Makro
' Makro am 07.06.2007 von andre aufgezeichnet
Dim StName As String
StName = ActiveSheet.Name
Workbooks.Open Filename:="C:\Test.xls"
Range("B4:C33").Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("C4") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Range("B4:C33").Copy ThisWorkbook.Worksheets(StName).Range("B4")
ActiveWindow.Close
Workbooks.Open Filename:="C:\Test.xls"
Range("E4:E33").Copy ThisWorkbook.Worksheets(StName).Range("E4")
ActiveWindow.Close
Range("D3").AutoFill Destination:=Range("D3:D33"), Type:=xlFillCopy
Range("B4:C33").Copy Sheets("WB").Range("C12")
End Sub



Anzeige
@Hajo Danke für deine Hilfe - klappt jetzt!
07.06.2007 10:48:00
Andre
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige