Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
884to888
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

BeforeDoubleClick mit Verweis auf andere Spalte

BeforeDoubleClick mit Verweis auf andere Spalte
10.07.2007 17:18:13
Gerhard
Hallo zusammen,
ich habe folgenden Code in der Recherche gefunden der auch gut funktioniert:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("O3:O88")) Is Nothing Then Exit Sub
Worksheets(Target.Value).Select
End Sub


Nun habe ich aber das Problem, dass die Spalte O ausgeblendet ist. Wie müsste der Code aussehen dass ich in Spalte F einen Doppelklick auf eine Zelle mit einem Text mache und ich dadurch zu dem Blatt springe dessen Name in der gleichen Zeile in Spalte O steht.
Vielen Dank im voraus.
Gruß Gerhard

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

Betreff
Datum
Anwender
Anzeige
AW: BeforeDoubleClick mit Verweis auf andere Spalt
10.07.2007 17:32:00
Renee
Mazwara Gerhard,
so:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub
Worksheets(Target.Offset(0,9)).Select
End Sub


Greetz Renee

AW: BeforeDoubleClick mit Verweis auf andere Spalt
10.07.2007 17:50:00
Gerhard
Hallo Renee,
der Code funktioniert zwar, aber wenn ich in Spalte F z. B. auf den Text klicke zu dem in Spalte O der Blattname "5" steht komme ich zu dem fünften Blatt in meiner Datei aber nicht zu dem Blatt mit dem Namen "5". Was könnte ich da noch ändern um zum richtigen Blatt zu kommen.
Gruß Gerhard

Anzeige
AW: BeforeDoubleClick mit Verweis auf andere Spalt
10.07.2007 18:03:53
Gerhard
Hallo Renee,
ich habs selbst rausgefunden, bin ganz stolz auf mich.
In der letzten Zeile habe ich noch Value eingefügt, jetzt klappts.
Worksheets(Target.Offset(0, 9).Value).Select
Danke für deine schnelle Antwort.
Gruß Gerhard

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige