Bugg kann mir jemand helfen?
01.02.2016 21:06:29
Heiko
Kann mir jemand sagen warum ich bei
"Windows("export.MHTML").Activate" einen Laufzeitfehler "9" bekomme?
Danke Heiko
Sub KopierTest()
If Cells(1, 23) = "" Then
Sheets("Sheet3").Select
Windows("export.MHTML").Activate
Columns("A:AD").Select
Selection.Copy
Windows("Warenausgang.xlsm").Activate
Columns("A:A").Select
ActiveSheet.Paste
End If
End Sub