Thema Datum  Von Nutzer Rating
Antwort
30.08.2017 09:45:49 Magneta
NotSolved
Blau Abfrage beim Start
30.08.2017 14:55:40 Gast55550
NotSolved
30.08.2017 15:03:29 Gast86754
NotSolved

Ansicht des Beitrags:
Von:
Gast55550		 Datum:
30.08.2017 14:55:40		 Views:
554		 Rating:
     
Antwort:
  Ja
Thema:
Abfrage beim Start

terminus technicus

Excel-Dateien, auch Excel-(Arbeitsmappen) = Workbook
Es soll so sein das "Ist die ..... offen dann öffne ..... 2"
Was ist, wenn die ..... nicht offen? - oder gar umgekehrt?

Egal in deinem Skript setzt du die Objektvariable abm1
Set abm1 = Workbooks("d:\netswerkabm\abm1.xlsm")
und fängst diesen Fehler schon mit Err.Object ab

Was nun anders soll an der If-Abrage stehen - als =Nothing
Ergo der nächste Befehl - ebenfalls fehlerhaft

Mit einem Wort, du beschäftigst nur das Err.Object

Vorschlag zur Gemütlichkeit - mach was draus

Dim abm1 As Workbook
Dim abm2 As Workbook
  
On Error Resume Next
   Set abm1 = Workbooks("abm1.xlsm")
   If Err.Number <> 0 Then Workbooks.Open "d:\netswerkabm\abm1.xlsm"
   Err.Clear
   Set abm2 = Workbooks("abm2.xlsm")
   If Err.Number <> 0 Then Workbooks.Open "d:\netswerkabm\abm2.xlsm"
On Error GoTo 0

 

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
30.08.2017 09:45:49 Magneta
NotSolved
Blau Abfrage beim Start
30.08.2017 14:55:40 Gast55550
NotSolved
30.08.2017 15:03:29 Gast86754
NotSolved