Fehlersuche
25.03.2013 14:51:39
Claudia
ich bin gerade auf der Fehlersuche, komme aber nicht weiter. Hat jemand einen Vorschlag? Der Fehler tritt nur auf, wenn ich den Import 2 versuche.
Vielen Dank für einen Tipp
LG
Claudia
Private Sub cmdOK_Click()
'Import der Daten aus Datei 1
Dim wkbOld As Workbook
Dim wkbNew As Workbook
Set wkbOld = ActiveWorkbook
FileCheckOpen (Me.TextBox_Path_EmB.Text)
Set wkbNew = ActiveWorkbook
Sheets("Annex 1").Activate
Range("C14:F2500").Copy
wkbOld.Activate
Sheets("Import 1").Activate
Range("A1").PasteSpecial
GoTo done1
error1:
MsgBox ("Import not completed. Data incomplete or contains an error.")
On Error Resume Next
wkbNew.Close False
done1:
Application.DisplayAlerts = False
Workbooks(Mid(TextBox_Path_EmB.Value, InStrRev(TextBox_Path_EmB.Value, "\") + 1)).Close _
SaveChanges:=False
'Bis hierher geht es ohne Fehler, erst wenn ich versuche, weitere Daten zu importieren, _
erscheint eine Fehlermeldung
'Import der Daten aus Datei 2
FileCheckOpen (Me.TextBox_Path_ETSSF.Text)
Set wkbNew = ActiveWorkbook
Sheets("Annex 2").Activate
Range("C14:F2500").Copy
wkbOld.Activate
Sheets("Import 2").Activate
Range("A1").PasteSpecial
GoTo done2
error2:
MsgBox ("Import not completed. Data incomplete or contains an error.")
On Error Resume Next
wkbNew.Close False
done2:
Application.DisplayAlerts = False
Workbooks(Mid(TextBox_Path_EmB.Value, InStrRev(TextBox_Path_EmB.Value, "\") + 1)).Close _
SaveChanges:=False
End Sub