Beim Öffnen Cursor in bestimmte Zelle stellen

[Jochem]

Hallo Excel Forum Mitglieder,
ich habe eine Excel-Tabelle (Microsoft Excel 2010) angelegt, in der in 12 Monaten (je Monat ein Blatt) die Arbeitsstunden erfasst werden. Nun möchte ich, dass beim Öffnen dieser Seiten der Cursor jeweils auf der Zelle E7 steht.
Darüber hinaus habe ich noch ein weiteres Blatt (Zusammenfassung) angelegt.
Hier sollte der Cursor beim Öffnen auf der Zelle G24 stehen.
 
Hierfür habe ich den nachstehenden Code aus dem Internet gefunden:
Private Sub Worksheet_Activate()
Range("E7").select
End Sub
Diesen Code habe ich im  VBAProject, DieseArbeitsmappe in die 12 Tabellenblätter (Monate Januar bis Dezember) kopiert.
Das gleiche habe ich für die Zusammenfassung unter Zelle G24 kopiert.
 
Leider funktioniert das Vorhaben nicht.
Ist dieser Code richtig?
Habe ich die Codes richtig platziert?
 
Für Eure Hilfe bedanke ich mich im Voraus
Gruß Jochem

[Crazy Tom]

Hallo

Nur diesen Code in das Codefenster DieseArbeitsmappe

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   If ActiveSheet.Name = "Zusammenfassung" Then
       Range("G24").Select
   Else
       Range("E7").Select
   End If
End Sub

MfG Tom

[Jochem]

Hallo

Nur diesen Code in das Codefenster DieseArbeitsmappe

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   If ActiveSheet.Name = "Zusammenfassung" Then
       Range("G24").Select
   Else
       Range("E7").Select
   End If
End Sub

MfG Tom

Hallo Tom,
da ich nicht erkennen konnte, wie ich Dich auf Deiner Antwortseite erreiche, habe ich diesen Weg gewählt.
Vielen Dank für Deine schnelle und kompetente Antwort.
Ich habe alle Codes in allen Tabellen gelöscht und Deinen Code in „DieseArbeitsmappe“ eingegeben.
Ergebnis = Compilerfehler im ausgeblendetem Modul: DieseArbeitsmappe
Ich habe dann die Makrosicherheit auf „Alle Makros außer mit Benachrichtigung deaktivieren“ heruntergesetzt.
Dann habe im Code das von mir falsch angegebene Wort „Zusammenfassung“ in „zusammen“ geändert.
Jetzt klappt es!
Danke für Deine Hilfe!
Gruß Jochem

[schauan]

Hallöchen,

noch ein kleiner Hinweis.

Im Makroaufruf
Private Sub Workbook_SheetActivate(ByVal Sh As Object)

hast Du sh. Dabei handelt es sich um das aktivierte Sheet. Du kannst also statt ActiveSheet.Name sh.Name verwenden.