Gruppe
Allgemein
Bereich
Fenster
Thema
Ausgblendetes Fenster ein- und aktives Fenster ausblenden
Problem
Wie kann ich über eine Schaltfläche das aktive Fenster aus- und ein ausgeblendetes einblenden lassen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: modMain
Sub DateiEinAusblenden()
Dim wkb As Workbook
Dim sWindow As String, sTest As String
sTest = "Test.xls"
On Error Resume Next
Set wkb = Workbooks(sTest)
If Err > 0 Or wkb Is Nothing Then
Beep
MsgBox "Keine Arbeitsmappe " & sTest & " geladen!"
Exit Sub
End If
On Error GoTo 0
sWindow = ActiveWindow.Caption
Windows("Test.xls").Visible = True
Windows(sWindow).Visible = False
End Sub