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