Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Ausgblendetes Fenster ein- und aktives Fenster ausblenden

Gruppe

Fenster

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