ich versuche nachfolgenden Code in Excel 2007 zum Einlesen von Daten aus einer anderen Datei auszuführen. Unter Excel 2003 bisher kein Problem unter Excel 2007 wird ein Fehler generiert. Hat jemand eine Idee woran es liegen könnte. Ich denke das Probelm liegt irgenwo im Bereich ThisWorbook.Sheets.
Sub daten_einlesen()
Dim Pfad As String, myFile As Workbook
'Auswahldialog
Pfad = Application.GetOpenFilename("Excel 2007 Files (*.xlsm), *.xlsm")
If Pfad "Falsch" Then
With Application
On Error GoTo Fehler:
.EnableEvents = False
.ScreenUpdating = False
.DisplayAlerts = False
'öffne Datei
Set myFile = Workbooks.Open(Pfad)
'Kopiere Bereich
myFile.Sheets(1).Range("A2:BG12000").Copy
'Einfüge Tabelle
With ThisWorkbook.Sheets("Daten")
'Einfügen in nächste leere Zelle in Spalte A
.Range("A" & .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row).PasteSpecial Paste:= _
xlPasteValues
End With
.CutCopyMode = False
myFile.Close False
Set myFile = Nothing
Fehler:
.EnableEvents = True
.ScreenUpdating = True
.DisplayAlerts = True
End With
End If
If Err.Number 0 Then MsgBox Err.Description, vbCritical, "Fehler aufgetreten!"
End Sub
Gruß
Markus