Makro findet geöffnete Datei nicht - PC- spezifisch

Hallo zusammen,

ich habe ein Makro seit einigen Jahren in Gebrauch.
Seit September funktioniert dies nicht mehr.

Es sollen bestimmte Bereiche mit Daten aus 2 Dateien in eine Dritte übertragen werden.
Seit September 2023 stoppt das Makro bei mir sofort und sagt mir, dass er die Dateien nicht findet (wird im Debugger gelb hinterlegt, hier Kursiv dargestellt)
Ich weiß, dass diese geöffnet sein müssen und das ist auch der Fall.

Das Paradoxe ist, es funktioniert uneingeschränkt bei den Kollegen. (!!!)

Wir verwenden alle identische Geräte, weswegen ich ein Softwareproblem, oder ein fehlgeschlagenes Windows/Officeupdate vermute.
Sämtliche Makroeinstellungen wurden schon aus bzw. auf ein Minimum gesetzt.
Das Makro beginnt wie folgt:

Sub TEST()

Range("B2:K4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents

Windows("Bearbeitung_EAR_AR_Mustermann").Activate
Worksheets("MA1").Select
Range("A4:K4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Zahlenbasis_TEST").Activate
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
wenn du ein Workbook aktivieren willst, dann solltest du auch das Workbook nehmen und nicht das Fenster (auch wenn der Recorder das so aufzeichnet)
beim Window-Namen können noch weitere Faktoren den Namen beeinflussen:
- die Einstellung, ob die Dateiendung mit angezeigt werden soll (das ist eine Einstellung in Windows)
- mehrere Fenster zur Datei, in diese Fall wird die Nummer (":1", ":2" usw) an den Fensternamen angehängt.

wenn du auf eine bestimmte geöffnete Datei zugreifen willst, würde ich das so programmieren:

dim wbQuelle as Workbook

dim wbZiel as workbook

dim wb



for each wb in Application.Worksbooks

    if wb.Name & "." Like "Bearbeitung_EAR_AR_Mustermann.*" Then set wbQuelle = wb

    if wb.Name & "."  like "Zahlenbasis_TEST.*" then set wbZiel = wb

next

    if wbZiel is Nothing then 

        msgbox "Zieldatei nicht geöffnet"

    elseif wbQuelle ist nothing then

        msgbox "Quelldatei nicht geöffnet"

     else

          with wbquelle.Sheets("MA1").Range("A4:K4")

              Range(.Cells, .End(xldown)).Copy

              wbZiel.Sheets(???).Range("B2").PasteSpecial xlpastevalues

          end with

      end if

beim Einfügen müsstest du noch den Tabellenblattnamen ergänzen, oder soll in dem Blatt eingefügt werden, dass bei Makrostart aktiv war?
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Makro findet geöffnete Datei nicht - PC- spezifisch

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro findet geöffnete Datei nicht - PC- spezifisch

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread