Herbers Excel-Forum - das Archiv

Tabellenblatt durch Zell-Doppelklick auswählen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Tabellenblatt durch Zell-Doppelklick auswählen
von: Abdi
Geschrieben am: 27.10.2003 15:07:49
Hallo,
wer kann mir helfen?

Problem: Wie kann ich bei Doppelklick auf eine Zelle mit Tabellenblattnamen zum jeweiligen Arbeitsblatt springen

Dann habe ich folgendes eingegeben:



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



Wenn ich jetzt auf die Zellen doppelclicke passiert halt gar nix.
Da steht noch dabei, dass der Code in ein Klassenmodul des Arbeitsblattes soll. Lieg vielleicht hier mein Fehler, weil ich nicht weiß was das ist.

Was bedeutet dieses Range(a1:a4), bzw. was bewirkt das?? HAbe das mal von a14:a200 gemacht...tut sich auch nix (in dem Bereich bin ich mir sicher, dass da was drinsteht)

Die beschriebenen Zellen haben genau den Blattnamen, da dieser durch ein code erzeugt wird.


Danke im Voraus für Eure Hilfe.

Gruß Abdi
Bild

Betrifft: AW: Tabellenblatt durch Zell-Doppelklick auswählen
von: Andi_H
Geschrieben am: 27.10.2003 15:20:23
Hi Abdi,

wenn du dein Tabellenblatt unten im Register rechtsklickst erscheint, einfügen kopieren und des ganze zeug, letzter Punkt ist Code anzeigen. Dies auswählen, nun gelangst du in der VBE . Im Eingabebereich erscheinen zwei Comboboxen (Allgemein) und (Deklaration)
Allgemein umstellen auf Worksheet und Dek. umstellen auf beforedoubleclick


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
End Sub


und darein kopierst du diese beiden Codezeilen. Dann müßts klappen.
If Intersect(Target, Range("a1:a4")) Is Nothing Then Exit Sub
Worksheets(Target.Value).Select
Gruß
Andi
Bild

Betrifft: AW: Tabellenblatt durch Zell-Doppelklick auswählen
von: WernerB.
Geschrieben am: 27.10.2003 15:21:46
Hallo Abdi,

zum Klassenmodul des Arbeitsblattes (mit den Blattnamen-Einträgen im Zellbereich "A1:A4") gelangst Du wie folgt:

1. Rechtsklick auf den Blattnamen (Lasche unten).
2. Code anzeigen.
3. Das Klassenmodul des Arbeitsblattes öffnet sich.
4. Kopiere den nachstehenden Code in die große weiße Fläche auf der rechten Seite.
5. Zurück zum "normalen" Excel gehts mit Alt+Q.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Intersect(Target, Range("A1:A4")) Is Nothing Then Exit Sub
Cancel = True
Worksheets(Target.Value).Select
End Sub


Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Bild

Betrifft: Danke, hat super geklappt. Gruß Abdi
von: Abdi
Geschrieben am: 27.10.2003 15:30:24
 Bild
Excel-Beispiele zum Thema " Tabellenblatt durch Zell-Doppelklick auswählen "
Benennen von Tabellenblättern mit Monatsnamen Druckseitenlinien im Tabellenblatt
Tabellenblattnamen in ein Listenfeld einlesen Suchbegriff über mehrere Tabellenblätter suchen.
Tabellenblätter benennen Tabellenblatt auswählen
Zustand von Tabellenblatt-Checkboxes ermitteln Tabellenblattnamen der VBE-Projekte ändern
Tabellenblattnamen nach Datum Gefilterte Daten in neues Tabellenblatt übertragen