Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Workbook_SheetBeforeDoubleClick - Problem mit Sh

Workbook_SheetBeforeDoubleClick - Problem mit Sh
Peter
Guten Tag
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: gelöst
28.12.2010 14:31:19
Peter
Nach dem Absenden gesehen, dass ich zweimal Workbook_SheetBeforeDoubleClick
eingetragen habe.
Pardon!
Peter
AW: gelöst
28.12.2010 15:41:55
gerwas
HAllo
schreib doch gleich rein, dass es hier zuende ist:
If Sh.Name &lt&gt "Index" Then Exit Sub 'GoTo SkipIt
Gruß Gerwas
AW: gelöst
28.12.2010 15:48:13
Peter
Hallo Gerwas
Macht Sinn.
Danke und Gruss, Peter
Anzeige

48 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige