Office: workbook/window ausblenden - irgendwas klappt nicht - gelöst

Hallo,

ich würde gerne von einer Datei aus eine andere ausblenden/unsichtbar machen.

Der Makro-Recorder hat mir folgendes ausgespuckt:

Code:

Windows("Datei2.xlsx").Visible = False

da kommt dann aber die Fehlermeldung:
"ObjeKt-Variable oder With-Variable nicht definiert"
(oder so ähnlich)

okay, also habe ich folgendes versucht:

Code:

Dim wb As Workbook
wb.Windows("Datei2.xlsx").Visible = False

da kommt dann die Fehlermeldung:
"Objekt unterstützt diese Eigenschaft nicht."

Den Mappenschutz habe ich definitiv vorher deaktiviert.

Kann mir bitte jemand die korrekte Syntax nennen?

 

Halo Achim,

ich hätte
Workbooks("Datei2.xlsx").Visible = False
benutzt.

Gruß hajo

 

Hallo Hajo,

lieben Dank, leider auch diesmal:

 

Hallo Achim,

die datei ist schon auf?

Gruß Hajo

 

Hallo Achim,

ich habe das immer Live geschrieben. Jetzt habe ich es getestet. Windows ist korrekt

Gruß Hajo

 

Hallo Hajo,

folgender Code steht direkt untereinander:

Code:

Workbooks.Open ThisWorkbook.Path & "\Datei2.xlsx"
Workbooks("Datei2.xlsx").Unprotect
Windows("Datei2.xlsx").Visible = False
Workbooks("Datei2.xlsx").Protect Structure:=True, Windows:=False

die Datei wird geöffnet, der Schutz aufgehoben und nachher auch wieder gesetzt...
nur mit dem verstecken gibt es Ärger.

Oder muss ich irgendwas als Objekt "dimmen" oder sowas in der Art?

 

Halo Achim,

der Code ist korrekt und er macht das was er soll.
Ich habe es grade auch getestet. mit

Code:

Option Explicit

Sub Achim()
    Workbooks.Open "J:\Eigene Dateien\Hajo\Internet\Test\2010\Woche" & "\Beispiel Forum 47.xlsm"
    Workbooks("Beispiel Forum 47.xlsm").Unprotect
    Windows("Beispiel Forum 47.xlsm").Visible = False
    Workbooks("Beispiel Forum 47.xlsm").Protect Structure:=True, Windows:=False
End Sub

Gruß Hajo

 

Hallo Hajo,

lieben Dank für Deine Bemühungen.

Hmpf, mag der Code korrekt sein wie er will, ich bekomme immer eine Fehlermeldung.
Ein weiteres dieser Excel-Mysterien bei dem eigentlich korrekter Code nicht funktioniert.

grummelgrummel

Wenn noch jemand eine Idee hat....

 

Rückmeldung

Warum der andere Code bei mir nicht funktioniert konnte ich nicht heraus bekommen.

Aber so klappts denn doch noch:

Code:

Workbooks("Datei2.xlsx").Activate
ActiveWindow.Visible = False