Anzeige
Archiv - Navigation
892to896
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
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bei Doppelklick Blatt einblenden

Bei Doppelklick Blatt einblenden
03.08.2007 11:42:47
Heinz
Hallo Leute
Habe unteren Code der bei Doppelklick in AY15 mich in das Tab.Blatt "R1 bis "R36"bringt.
Nun sind aber die Tab.Blätter ausblendet.
Nur bei Doppelklick sollte vorher das Tab.Blatt zB.R12 eingeblendet werden.
So zB."Sheets("R12").Visible = True
Könnte mir Bitte jemand weiterhelfen.
Danke & Gruß Heinz

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Ende
If Target.Address(0, 0) = "AY15" Then
Cancel = True
Sheets("R" & CStr(Range("AY15"))).Activate
End If
Ende:
If Err.Number = 9 Then MsgBox "Blatt nicht vorhanden"
End Sub


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Doppelklick Blatt einblenden
03.08.2007 11:48:00
Heinz
Hallo
Habe es endlich selber geschafft !!
Gruß Heinz

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Ende
If Target.Address(0, 0) = "AY15" Then
Sheets("R" & CStr(Range("AY15"))).Visible = True
Cancel = True
Sheets("R" & CStr(Range("AY15"))).Activate
End If
Ende:
If Err.Number = 9 Then MsgBox "Blatt nicht vorhanden"
End Sub


Ich wollte grad schreiben ...
03.08.2007 11:54:15
Matthias
Hallo
Und ich hatte mich schon gewundert, da Du die Lösung ja schon fast in der Frage stehen hattest ;-)
Userbild
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige