Ich habe folgenden Code und möchte, dass er mit der Meldung "Keine Datei ausgewählt" beendet wird sobald man eine der zwei Dateien nicht auswählt. Wie mache ich das denn am besten? :/
'Set Variable this worksheet
Dim ws As Worksheet
'Set Variable Update Worksheets
'Define variables
Dim currentWB As Workbook
Set currentWB = ThisWorkbook
Dim tlupdateSheet As Worksheet
Dim beupdateSheet As Worksheet
Dim tlupdateLastRow As Long
Dim beupdateLastRow As Long
Dim i As Long
Dim tlupdatewbPath As String
Dim beupdatewbPath As String
'Get the path of the workbooks
tlupdatewbPath = Application.GetOpenFilename("Excel Files (.xls),.xls", , "Select TL Workbook")
beupdatewbPath = Application.GetOpenFilename("Excel Files (.xls),.xls", , "Select BEIF Workbook")
'Open the workbooks
Set tlupdateWB = Workbooks.Open(tlupdatewbPath)
Set beupdateWB = Workbooks.Open(beifupdatewbPath)
|