Thema Datum  Von Nutzer Rating
Antwort
31.01.2023 13:37:42 Gast65989
NotSolved
Blau VBA Code beenden wenn keine Datei ausgewählt wurde
 31.01.2023 16:46:14 fk
NotSolved
01.02.2023 17:05:08 Gast1099
NotSolved

Ansicht des Beitrags:
Von:
fk		 Datum:
31.01.2023 16:46:14		 Views:
490		 Rating:
     
Antwort:
  Ja
Thema:
VBA Code beenden wenn keine Datei ausgewählt wurde

Hallo,

bei mir gibt ein String beim Abbruch der GetOpenFilename Methode ein "Falsch" zurück.

Teste das mal bei dir:


'Get the path of the workbook
tlupdatewbPath = Application.GetOpenFilename("Excel Files (.xls),.xls", , "Select TL Workbook")
beupdatewbPath = Application.GetOpenFilename("Excel Files (.xls),.xls", , "Select BEIF Workbook")

MsgBox (tlupdatewbPath & beupdatewbPath) 
'Das rausnehmen, wenn die Msgbox bei abbruch "FalschFalsch" zurückgibt. Ansonsten unten ändern.

If tlupdatewbPath = "Falsch" or beupdatewbPath = "Falsch" Then'Das "Falsch" eventuell auf das Ergebniss der msgbox ändern
MsgBox ("File wurde nicht ausgewählt")
Exit Sub
Else
End If

'Open the workbooks
 Set tlupdateWB = Workbooks.Open(tlupdatewbPath)
 Set beupdateWB = Workbooks.Open(beifupdatewbPath)

 

MFG

 

 

 

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
31.01.2023 13:37:42 Gast65989
NotSolved
Blau VBA Code beenden wenn keine Datei ausgewählt wurde
 31.01.2023 16:46:14 fk
NotSolved
01.02.2023 17:05:08 Gast1099
NotSolved