in meiner Mappe lasse ich mir 2 Tabellenblätter vertikal anzeigen.
Mit den nachfolgenden Code, kann jeweils wechseln in den Anordnungen.
Private Sub ToggleButton1_Click()
Dim WerBinIch
WerBinIch = ActiveWorkbook.Name
On Error Goto ende:
ActiveSheet.Unprotect Password:="xxx"
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "2 Fenster"
Windows(WerBinIch & ":2").Activate
ActiveWindow.Close
ActiveWindow.WindowState = xlMaximized
Else
ToggleButton1.Caption = "1 Fenster"
Call Fenster_anordnen
End If
ActiveSheet.Protect Password:="xxx"
Exit Sub
ende:
MsgBox "drücke den Button ""Fenster"" noch mal! " & vbLf & vbLf _
& "Du hattest ein Tabellenblatt geschlossen! ", 16, "Naaa Kollege..."
End Sub
Wenn ich nun in den verbleibenden Tabellen der Mappe wechseln möchte, sollte die vertikale Anordnung aufgehoben werden, so wie es im ersten Teil des o.g. Codes durchgeführt wird.
Ich habe es versucht mit "Worksheet_Deactivate()" und diesen Teil des Codes
Windows(WerBinIch & ":2").Activate
ActiveWindow.Close
ActiveWindow.WindowState = xlMaximized
Es funktioniert nicht. Gibt es dafür überhaupt eine Lösung?
Wenn ja, wie?
Gruß Korl