hi,
den folgenden code im VBA-Editor in "Diese Arbeitsmappe" speichern:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
If ActiveCell.Row = 1 And ActiveCell.Column = 1 Then
Dim I, K
I = ActiveSheet.Index
K = ThisWorkbook.Sheets.Count
If ActiveSheet.Index = K Then Exit Sub
Sheets(I + 1).Activate
End If
End Sub
Erläuterung: Bei einem Doppelklick auf A1 springt er ein Tabellenblatt weiter... ist es das letzte Tabellenblatt, tut sich nichts...
grüße
p.s. an alle excel-profis... es gibt bestimmt elegantere lösungen, aber ich kann es nicht besser... :-)
|