Nachtrag zu: Anwahl Sheets mit Rechtklick
09.05.2008 11:54:00
Alex
das Forum ertüfftelte mir vorhin diesen Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
For Each Sheet In ThisWorkbook.Sheets
If Sheet.Name ActiveSheet.Name Then
Sheet.Visible = False
End If
Next
If ActiveCell.Column = 1 Then
Sheets(ActiveCell.Row + 1).Visible = True
Cancel = True
End If
End Sub
Der bewirkt, dass ich in Tabelle1 durch Rechtsklick auf Zelle A1 die versteckte Tabelle2 aufrufen kann, mit Rechtsklick auf ZelleA2 versteckt sich Tabelle2 und es erscheint Tabelle3 usw.
Fehlt mir nur noch, dass nach der ganzen Aktion gleich das gerade ausgewählte Tabellenblatt aufgerufen wird.
Bsp.:
ich klicke rechts (in Tabelle1) auf Zelle A4, es erschein Tabelle5 und ist gleich aufgerufen.
gruss
Alex