Clever-Excel-Forum

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

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.

bigrudi1966

schauan