Beim hochladen einer Datei kann der User auf X klicken; momentan kommt danach aber immer eine Fehlermeldung:
Errorhandling sagt folgendes:
Mein Code:
Sub Kopieren()
'-- Variablen
Dim varDatei As String
Dim vArray As Variant
Dim i As Integer
Dim fileName As Variant
Dim QWB As Workbook, ZWB As Workbook
Application.ScreenUpdating = False
Application.EnableEvents = False
'Fehlerhandling
On Error GoTo Errorhandler
answer = MsgBox("Please select the file of the SWAT Data Extract", vbOKOnly + vbInformation, _
"File selection.")
Select Case answer
Case -1 'Gesichert Format(Date(),"DD.MM.YYYY")
Exit Sub
Case 0 'Abgebrochen
Exit Sub
End Select
varDatei = Application.GetOpenFilename()
If Not varDatei Then Exit Sub
vArray = Split(varDatei, "\")
For i = 0 To UBound(vArray)
fileName = vArray(i)
Next i
Select Case varDatei
Case -1 'Gesichert Format(Date(),"DD.MM.YYYY")
Case 0 'Abgebrochen
Exit Sub
End Select
'### ToDo: Feherbehandlung wenn Nutzer auf Abbrechen klickt
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!HIER KOMMT DER FEHLER SOBALD DER _
_
NUTZER AUF ABBRECHEN KLICKEN WILL
Workbooks.Open varDatei
Set QWB = ActiveWorkbook
ThisWorkbook.Activate
Set ZWB = ThisWorkbook
Dim QWS As Worksheet, ZWS As Worksheet
'### ToDo: Fehlerbehandlung wenn Sheet1 nicht existiert oder anders benannt ist.
Set QWS = QWB.Worksheets("Sheet1")
Set ZWS = ZWB.Worksheets("SWAT Data Extract")
'### ToDo: Blattschutz aufheben
QWS.UsedRange.Copy ZWS.Cells(8, 1)
'### ToDo: Blattschutz wieder einfügen
Workbooks(fileName).Close SaveChanges:=True
Application.EnableEvents = True
Exit Sub
'--- Bei Fehler:
Errorhandler:
MsgBox Err.Description & Chr(13) & Err.Number & Chr(13) & Err.Source, _
vbCritical, "An error has occured!"
Exit Sub
End Sub