Herbers Excel-Forum - das Archiv
Tabellenblatt durch Zell-Doppelklick auswählen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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
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
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).
Betrifft: Danke, hat super geklappt. Gruß Abdi
von: Abdi
Geschrieben am: 27.10.2003 15:30:24