Excel kopieren

Ich öffne eine Excel-Datei (2010) und eine DBase-Datei. Die ersten beiden Spalten sollen in der DB-Datei markiert und dann in Excel eingefügt werden. An einem Rechner klappt es bestens, zwei andere versagen da ihren Dienst. Ich lasse das Makro schrittweise ablaufen und erhalte nach dem Markieren der beiden Spalten bereits die Fehlermeldung; Bild ist zu gross und wird abgeschnitten

Sub Datenuebernahme()
'Version vom 2006-07-01


Application.ScreenUpdating = False 'Das Flackern des Bildschirms abschalten


Range("A7:AZ1300").Select 'Bisherigen Inhalt löschen
Selection.ClearContents
Range("A7").Select
winex = "Steuer.xls"

Set dat1 = Range("AE4")
Workbooks.Open Filename:=dat1 'Öffnen DBase
windb = "steuer.dbf"


Range("A2:B1300").Select
Application.CutCopyMode = False
Selection.Copy 'Hier erscheint die Fehlermeldung

Windows(winex).Activate 'Excel-Datei
ActiveSheet.Paste
Range("C7").Select Ab hier wird das Makro nicht mehr ausgeführt!

Windows(windb).Activate 'Dbase-Datei
Range("D2:AB1300").Select
Application.CutCopyMode = False
Selection.Copy

Windows(winex).Activate 'Excel-Datei
ActiveSheet.Paste
Range("AB7").Select

Windows(windb).Activate 'Dbase-Datei
Range("AT2:AW1300").Select
Application.CutCopyMode = False
Selection.Copy

Windows(winex).Activate 'Excel-Datei
ActiveSheet.Paste

Windows(windb).Activate 'Dbase-Datei schliessen
Application.DisplayAlerts = False
ActiveWindow.Close savechanges:=False
Application.DisplayAlerts = True

Range("D3").Select
ActiveCell.Value = Date
Range("E3").Select
ActiveCell.Value = Time
End Sub