Tabellenblatt beim Öffnen LINK-OBEN

Hallo!

Wie schaffe ich des, dass ein Tabellenblatt, wenn es geöffnet wird, immer so geöffnet wird, dass sich das Tabellenblatt "links-oben" befindet?

ich hätte es schon mit

Private Workbook_SheetChange
             ActiveWindow.ScrollColumn=1
             ActiveWindow.ScrollRow=1
         End Sub

Aber irgendwie funktioniert das nicht....! =(

[Edit]:

"A1" ist in jedem Tabellenblatt geschützt und kann nicht selektiert werden!

Lg Mike

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 148849

Url: https://administrator.de/contentid/148849

Ausgedruckt am: 26.11.2024 um 07:11 Uhr

6 Kommentare

Neuester Kommentar

Hallo Mike!

Sollte damit gehen:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
    Sh.Range("A1").Activate  
End Sub

wobei dieser Code aber in "Dieser Arbeitsmappe" stehen muss.

Gruß Dieter

Hm...ist das egal, dass die Zelle A1 gesperrt ist?

Hallo Mike!

Vielleicht probierst Du es einfach mal aus

Gruß Dieter

Hm...hab ich...hat nicht funktioniert....!

LG Mike

Hallo Mike!

Stimmt, funktioniert nicht so, wie es soll. Dann eben so:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
    With Sh
        .EnableSelection = xlNoRestrictions
        .Range("A1").Select  
        .EnableSelection = xlNoSelection
    End With
End Sub

Gruß Dieter