Tipp: Activate Ereigniscode wird nicht ausgeführt
benutze dafür die Ereignisse. Worksheet_activate müsste das
Richtige sein.
Hallo Bernd,
schon richtig aber ein Manko von Activate, egal
Private Sub Worksheet_Activate()
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ist vielleicht nicht so bekannt.
Der Code, das Ereignis, wird NICHT ausgeführt ist wenn die mappe geöggnetwird und das Tabellenblatt ist das aktive gewesen beim Mappe schließen.
Diese einfache Abhlife hilft nix:
Private Sub Workbook_Open()
Worksheets(„Tabelle1“).Activate
End Sub
Dies auch nix:
Private Sub Workbook_Open()
Worksheets(„Tabelle1“).Activate
Worksheets(„Tabelle1“).Activate
Worksheets(„Tabelle1“).Activate
Worksheets(„Tabelle1“).Activate
End Sub
Es geht so um Ereigniscode in Blatt 1 auszuführen:
Private Sub Workbook_Open()
Worksheets(„Tabelle 2“).Activate
Worksheets(„Tabelle 1“).Activate
End Sub
Gruß
Reinhard