Bei Doppelklick Blatt einblenden
03.08.2007 11:42:47
Heinz
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
Anzeige
