Hallo,
Code aufgenommem,klappt trotzdem nicht.
Weiß vielleicht jemand warum?
Wäre toll, muß heute noch fertig werden!
Sub SAPListe()
Application.ScreenUpdating = False
Range("A1").Select
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\Klaus\Eigene Dateien\WerkhauTest.xls"
Columns("A:A").Select
Range("A2098").Activate
Selection.Copy
ActiveWindow.WindowState = xlMinimized
Windows("Ein_Ausgabemaske.xls").Activate************Hier Stop
ActiveWindow.WindowState = xlMaximized
Sheets("Werkhau").Activate
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.NumberFormat = "00000\.000\.000"
Range("A1").Select
ActiveWindow.WindowState = xlMinimized
Windows("WerkhauTest.xls").Activate
ActiveWindow.Close
ActiveWindow.WindowState = xlMaximized
Sheets("Fehlt").Select
Application.ScreenUpdating = True
End Sub