Thema Datum  Von Nutzer Rating
Antwort
Rot Makro in mehreren Dateien über ein anderes Makro aufrufen
 21.03.2017 14:52:52 Jasmin
NotSolved
21.03.2017 17:19:43 BigBen
NotSolved
21.03.2017 19:08:58 BigBen
NotSolved
22.03.2017 10:54:08 Gast96671
NotSolved

Ansicht des Beitrags:
Von:
Jasmin		 Datum:
21.03.2017 14:52:52		 Views:
1334		 Rating:
     
Antwort:
  Ja
Thema:
Makro in mehreren Dateien über ein anderes Makro aufrufen

Hallo,

ich habe ein kleines Problem und würde mich über eine Anwort riesig freuen.

Folgendes: In einem Ordner befinden sich Dateien der einzelnen Monatstage innerhalb der Woche von Montag bis Freitag, wie z. B. im März: 01, 02, 03, 06, 07, 08, 09, 10, 13, 14, 15 etc. ff. Ich habe ein Makro geschrieben, dass die Formeln in den Zellen von G14:AL17 über das Makro InfoText aktualisert und erweitert. Um jetzt nicht alle einzelnen Kalendertage zu öffnen und den Makro auszuführen habe ich folgendes Makro aufgezeichnet, das im wesentlichen auch funktioniert. 

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Workbooks.Open Filename:="L:\BESTELLUNG\2017\März\10.xlsm", UpdateLinks:=0
    Application.Run "'10.xlsm'!InfoText"
    ActiveWindow.Close
     Workbooks.Open Filename:="L:\BESTELLUNG\2017\März\11.xlsm", UpdateLinks:=0
    Application.Run "'11.xlsm'!InfoText"
    ActiveWindow.Close
     Workbooks.Open Filename:="L:\BESTELLUNG\2017\März\12.xlsm", UpdateLinks:=0
    Application.Run "'<strong>12</strong>.xlsm'!InfoText"
    ActiveWindow.Close
     Workbooks.Open Filename:="L:\BESTELLUNG\2017\März\13.xlsm", UpdateLinks:=0
    Application.Run "'13.xlsm'!InfoText"
    ActiveWindow.Close
     Workbooks.Open Filename:="L:\BESTELLUNG\2017\März\14.xlsm", UpdateLinks:=0
    Application.Run "'14.xlsm'!InfoText"
    ActiveWindow.Close
     Workbooks.Open Filename:="L:\BESTELLUNG\2017\März\15.xlsm", UpdateLinks:=0
    Application.Run "'15.xlsm'!InfoText"
    ActiveWindow.Close
     Workbooks.Open Filename:="L:\BESTELLUNG\2017\März\16.xlsm", UpdateLinks:=0
    Application.Run "'16.xlsm'!InfoText"
    ActiveWindow.Close
     Workbooks.Open Filename:="L:\BESTELLUNG\2017\März\17.xlsm", UpdateLinks:=0
    Application.Run "'17.xlsm'!InfoText"
    ActiveWindow.Close
 
Allerdings existiert das Workbook Nr "12" nicht. Wie kann ich das umschreiben, sodass
er nur die vorhandenen Dateien berücksichtigt und die nicht existierenden Dateien dann
gnoriert.?

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Makro in mehreren Dateien über ein anderes Makro aufrufen
 21.03.2017 14:52:52 Jasmin
NotSolved
21.03.2017 17:19:43 BigBen
NotSolved
21.03.2017 19:08:58 BigBen
NotSolved
22.03.2017 10:54:08 Gast96671
NotSolved