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