Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
976to980
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
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nachtrag zu: Anwahl Sheets mit Rechtklick

Nachtrag zu: Anwahl Sheets mit Rechtklick
09.05.2008 11:54:00
Alex
Sorry, ich nochmal
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nachtrag zu: Anwahl Sheets mit Rechtklick
09.05.2008 12:01:00
David
Sheets(ActiveCell.Row + 1).Activate als letzte Zeile vor End Sub
Gruß
David

AW: Nachtrag zu: Anwahl Sheets mit Rechtklick
09.05.2008 12:05:00
Andi
Hi,
nicht vor End Sub, sondern vor End If, sonst gibt's bei einem Rechtsklick in eine andere Spalte als A vermutlich einen Laufzeitfehler.
Schönen Gruß,
Andi

AW: Nachtrag zu: Anwahl Sheets mit Rechtklick
09.05.2008 12:01:00
AK
Hey,
kommt mir bekannt vor :)
so sollte es klappen:

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
Sheets(ActiveCell.Row + 1).Activate
End If
Cancel = True
End Sub


Gruß
Andreas

Anzeige
AW: Nachtrag zu: Anwahl Sheets mit Rechtklick
09.05.2008 12:03:00
Andi
Hi,
hättest Du mal mit meinem ersten Vorschlag weitergearbeitet, da war das schon mit drin... ;-))

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
Sheets(ActiveCell.Row + 1).Activate
Cancel = True
End If
End Sub


Schönen Gruß,
Andi

Danke, erledigt
09.05.2008 12:11:25
Alex
Hi Leute,
Haut hin, vielen Dank an alle für die schnelle Antwort.
grüsse
Alex
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige