Ansicht beim Öffnen einer Tabelle

[bigrudi1966]

Guten Abend zusammen,

folgender Code ist unter "DieseArbeitsmappe" hinterlegt:

Code:

Private Sub Workbook_Open()
   Dim wS As Worksheet
   On Error GoTo ERR_HANDLER
   For Each wS In Worksheets
     If IsDate(wS.Name) Then
       wS.Visible = wS.Name = Format(Date, "dd.mm.yyyy")
     End If
   Next wS
   Worksheets(Format(Date, "dd.mm.yyyy")).Move Before:=Worksheets(1)
   Exit Sub
ERR_HANDLER:
   MsgBox "Das Blatt """ & Format(Date, "dd.mm.yyyy") & """ wurde nicht gefunden!", vbInformation
End Sub
Private Sub Workbook_Activate()
    ActiveWindow.NewWindow
    Windows.Arrange ArrangeStyle:=xlVertical
   
End Sub

Es geht um den Code Private Sub Workbook_Activate(). Dieser funktioniert grundsätzlich. Allerdings wird jedes Mal wenn die Tabelle aktiviert wird ein weiteres Fenster geöffnet - steht ja auch so im Code.

Wie müsste der Code angepasst werden, dass beim Start der Tabelle zwei Tabellenblätter (am besten noch zwei bestimmte Tabellenblätter) geöffnet und vertikal angeordnet werden ohne das sich jedes Mal ein weiteres Tabellenblatt öffnet bei Aktivierung der Tabelle.

Viele Grüße
Rudi

[schauan]

Hallöchen,

Der Code Workbook_Activate läuft aber beim Aktivieren der Mappe und nicht beim Aktiveren einer Tabelle ...
Wenn Du im neuen Fenster ein anderes Blatt aktivieren willst dann tue das einfach, im Prinzip

Code:

Private Sub Workbook_Activate()
    ActiveWindow.NewWindow
    Sheets("Tabelle2").Select
    Windows.Arrange ArrangeStyle:=xlVertical
End Sub

---

Du kannst dann noch prüfen, ob bereits ein Doppelpunkt in der Caption vom aktiven Fenster enthalten ist und falls ja, das Makro verlassen.