MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 13.12.2017, 10:51   #1
AHA_365
Neuer Benutzer
Neuer Benutzer
Standard Frage - Umstellung MS2016 Makro erkennt weitere Datei nicht mehr

Hallo zusammen,
wir haben bei uns nun umgestellt auf MS 2016. Bisher hatte ich ein Makro was 1A lief, doch jetzt stehe ich vor einem Problem, bei dem ich nicht weiter komme:
Das Makro prüft zu Beginn, ob alle notwendigen Dateien offen sind. Seit MS2016 erkennt er diese aber nicht mehr, da sich die Dateien nun immer separate öffnen und nicht mehr in der selben Arbeitsmappe.


A = MsgBox("Benötigte Dateien:" & vbCr & vbCr & "Statistik_2017" & vbCr & "Service Summary Report" & vbCr & "Zahlen online offline", vbOKCancel)

If A = vbOK Then GoTo Zeile1
If A = vbCancel Then canel = True

Exit Sub


Zeile1:

For i = 1 To Workbooks.Count
If Workbooks(i).Name Like ("Service Summary Report*.xls") = True Then
Workbooks(i).Activate
Exit For
End If
If i = Workbooks.Count Then
MsgBox "Service Summary Report wurde nicht gefunden", Title:="Fehler"
Exit Sub
End If
Next i

...

Weiss jemand wie ich das lösen kann mit den neuen Gegebenheiten??

Danke schon mal!!!
AHA_365 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.12.2017, 11:24   #2
Storax
MOF Koryphäe
MOF Koryphäe
Standard

Auch mit Excel 2016 werden standardmässig die Dateien in derselben Instanz geöffnet, d.h. Dein Code funktioniert prinzipiell weiter.
Aus irgendeinem Grund öffnest Du die Dateien in verschiedenen Instanzen.

Falls das so ist, könnte man einfach prüfen of die Datei geöffnet ist.

Aber das wird Dir nicht helfen, denn Workbooks(i).Activate dürfte so instanz-übergreifend nicht funktionieren.

Die andere Methode instanz-übergreifend ist hier beschrieben

__________________

In a lot questions the OP has no idea what they're doing, they've found code on the internet, mixed it around and got something. They don't understand why that something doesn't work.
Usually, in these questions, the original poster is rather clueless, helping them on the question is only spoon feeding them, and there is little to no chance the question will help anyone in the future.

Press any key to continue - or any other key to abort.

Spoon feeding: provide (someone) with so much help or information that they do not need to think for themselves.

Geändert von Storax (13.12.2017 um 11:29 Uhr).
Storax ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.12.2017, 15:47   #3
AHA_365
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Danke - ich bin nun drauf gekommen durch dein Tipps.
Ich habe die eine Datei aus Outlook heraus geöffnet und musste daher erstmal den Bearbeitungsschutz deaktiveren. Nun läuft es wieder!
AHA_365 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:21 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.