xaumichi
Goto Top

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

Content-Key: 148849

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

Printed on: April 23, 2024 at 08:04 o'clock

Mitglied: 76109
76109 Aug 12, 2010 at 11:12:39 (UTC)
Goto Top
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
Member: xaumichi
xaumichi Aug 12, 2010 at 11:28:45 (UTC)
Goto Top
Hm...ist das egal, dass die Zelle A1 gesperrt ist?
Mitglied: 76109
76109 Aug 12, 2010 at 11:34:37 (UTC)
Goto Top
Hallo Mike!

Vielleicht probierst Du es einfach mal ausface-wink

Gruß Dieter
Member: xaumichi
xaumichi Aug 12, 2010 at 11:36:40 (UTC)
Goto Top
Hm...hab ich...hat nicht funktioniert....!

face-sad

LG Mike
Mitglied: 76109
76109 Aug 12, 2010 at 12:08:21 (UTC)
Goto Top
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
Member: xaumichi
xaumichi Aug 12, 2010 at 14:08:46 (UTC)
Goto Top
face-big-smile

Okey, danke schön!

Lg Mike