Thema: Ausgblendetes Fenster ein- und aktives Fenster ausblenden

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Fenster