Office: (Office 2019) Excelttabelle läßt sich nicht mit Marko öffnen

Hallo zusammen,
Ich möchte in der Exceltabelle "Test 1" mittels Makrobefehl eine weitere Excletabelle "Test2" . Das Makro hierzu haben ich mit dem Rekorder aufgezeichnet. Die Aufzeichnung mit dem Rekorder ist ohne Fehlermeldung erfolgt. Wenn ich aber das Makro starte wird das aktive Fenster miniert und ein leeres Bildschimfenster erscheint das ist alles. Die erforderliche Tabelle wird jedoch nicht geöffnet. Es gibt aber auch keine Fehlermeldung.
Was mache ich hier falsch.
Im Anhang meine Testdatei.


Vielen Dank für eure Hilfe.


Markus

:)

 

Hallo Markus,

der Code versucht nicht eine weitere Datei zu öffnen:

Code:

Das "Attribute Invoke_Func" habe ich noch nie gesehen.

Es gibt eigentlich keinen Grund das "Window" zu manipulieren.

mfg

(Datei geprüft, aber nicht geöffnet)

 

Moin,

versuche es mal damit

Code:

hier muss die Datei im gleichen Verzeichnis befinden!

 

der Strich wird vom Forum entfernt. Doppelt eingeben
ThisWorkbook.Path & "\" & strDatei

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Moin Hanj,

das wuste ich nicht!

Code:

So müsste es dann richtig sein!

Hatte ich nicht bemerkt.

 

Version 2 prüft ob die Datei schon geöffnet ist!
Code:

 

\@Fennek11:
Das Attribut VB_Invoke_Func hat etwas mit der Zuweisung eines Makros und der Einordnung der Funktion in eine Kategory zu tun.
Siehe:
https://www.excelbanter.com/excel-pr...attribute.html

Gruß Ulrich

 

Hallo Klaus,
Danke für deine Unterstützung. Mit deiner Version 1 passt es.

Bei der letzten Version erhalte ich immer die Fehlermeldung:
" Laufzeitfehler 1004" mit dem Texhinweis

>Wir konnten C:Übertragtest 2.xlsm nicht finden. Wurde das Objekt vielleicht verschoben, umbenannt oder gelöscht?<

Die beiden Tabellen "test 1" und "test "2 befinden sich in dem selben Dateiordner "Übertrag".

Code:

ThisWorkbook.Activate


Sub OpenWorkbook ()
Dim strDatei As String
Dim wkbDatei As Workbook
Dim bloDateiOffen As Boolean

strDatei = "test 2. xlsm"

' Hier wird geprüft ob die Zieldatei geüffnet ist
For Each wbkDatei In Workbooks
If wbkDateiName = strDatei Then
MsgBox "Die Datei " & strDatei & " wird automatisch geöffnet!", , "Hinweis"
Workbooks.Open ThisWorkbook.Path & "" & strDatei
End If

Next
' Wenn die Datei nicht geöffnet ist, wird die Datei geöffnet
If bolDateiOffen = False Then
MsgBox "Die Datei " & strDatei & " wird automatisch geöffnet!", , "Hinweis"
Workbooks.Open ThisWorkbook.Path & "" & strDatei
End If

ThisWorkbook.Activate
End Sub


Wo hier der Fehler ist verstehe ich nicht.

Danke für eure Mithilfe.

Gruß Markus