Workbook_SheetBeforeDoubleClick - Problem mit Sh
Peter
Bei der Bearbeitung einer Datei lege ich mir immer wieder eine Index-Tabelle an, in denen alle Tabellennamen eingetragen werden.
Bei Doppelklick auf einen Eintrag soll die entsprechende Tabell ausgewählt werden.
Ich habe zwei Fragen:
1) Weshalb läuft der untenstehende Code nicht - stattdessen wird "Sh" in der zweiten Codezeile angewählt und ein "Fehler beim Kopilieren: End Sub erwartet" angezeigt.
2) Wie wird am besten die Zelle A1 aktiviert, nachdem die Tabelle aktiviert ist - müsste einfach gehen, ich bin jedoch nicht schlau geworden
Gruss, Peter
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel _
_
As Boolean)
If Sh.Name "Index" Then GoTo SkipIt
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MyRange As Range, IntersectRange As Range
Set MyRange = UsedRange
Set IntersectRange = Intersect(Target, MyRange)
On Error GoTo SkipIt
If IntersectRange Is Nothing Then Exit Sub
Sheets(Target.Value).Activate
SkipIt:
Exit Sub
End Sub