Menü mit den Tabellen

Question

Bin schon eine Weile am Suchen und nicht wirklich fündig geworden.
Ich habe eine Excel Datei in der viele kleine Tabellen sind
Eine "Haupttabelle" aus der ich alle Daten beziehe und viele kleinere Tabellen mit je einer PivotTabelle (da die stehtig nach unten und rechts wachsen sind mehrere Tabellen nicht möglich
Jetzt habe ich mir gedacht da es doch sehr viel gescrolle ist das man in der ersten Tabelle eine Art Menü machen kann wo man dann draufklickt und die passende Tabelle erscheint oder das dieses Menü in jeder Tabelle zu finden ist so das ich ganz schnell zur Haupttabelle komme
oder auch das die Tabellen dann nur als "Pop-Up" erscheint

Ist sowas möglich und wenn ja wie?

Answer 1

arbeite doch mit Hyperlinks.

Gruß Hajo

Answer 2

hi all ^^

ein beispiel bzw ansatz eines contexmenues :-))

gruss nighty

Sub MeineMenues()
With Worksheets("Tabelle1").Range("B2:B" & Rows.Count).Font
.Name = "Wingdings"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Application.CommandBars("cell").Reset
Set cBar = Application.CommandBars("cell")
Set btnKontext = cBar.Controls.Add
With btnKontext
.Style = msoButtonIconAndCaption
.Caption = "Gelesen"
.FaceId = 52
.BeginGroup = True
.OnAction = "HakenSetzen"
End With
Set btnKontext = cBar.Controls.Add
With btnKontext
.Style = msoButtonIconAndCaption
.Caption = "Nicht Gelesen"
.FaceId = 52
.BeginGroup = True
.OnAction = "HakenNichtSetzen"
End With
Set btnKontext = cBar.Controls.Add
With btnKontext
.Style = msoButtonIconAndCaption
.Caption = "Sortieren nach gelesenen"
.FaceId = 52
.BeginGroup = True
.OnAction = "SortGelesen"
End With
Set btnKontext = cBar.Controls.Add
With btnKontext
.Style = msoButtonIconAndCaption
.Caption = "Sortieren alle"
.FaceId = 52
.BeginGroup = True
.OnAction = "SortAlle"
End With
End Sub

Sub SortAlle()
Worksheets("Tabelle1").Columns("A:B").Sort Key1:=Worksheets("Tabelle1").Range("A2"), Key2:=Worksheets("Tabelle1").Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Sub SortGelesen()
Worksheets("Tabelle1").Columns("A:B").Sort Key1:=Worksheets("Tabelle1").Range("B2"), Key2:=Worksheets("Tabelle1").Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Sub HakenSetzen()
If ActiveCell.Row > 1 And ActiveCell.Column = 2 Then Cells(ActiveCell.Row, 2) = "ü"
End Sub

Sub HakenNichtSetzen()
If ActiveCell.Row > 1 And ActiveCell.Column = 2 Then Cells(ActiveCell.Row, 2) = ""
End Sub

Sub Formatierung()
With Worksheets("Tabelle1").Range("B2:B" & Rows.Count).Font
.Name = "Wingdings"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub

Answer 3

Also von VBA hab ich 0 Ahnung
Hab den Code jetzt in VBA eingefügt und auf ausführen geklickt aber nix passiert

Answer 4

hi ^^

vielleicht so aehnlich :-)

gruss nighty

veraenderung des contexmenues bzw rechtsclick

das makro MeineMenues einmalig starten

Sub MeineMenues()
Dim WksAnz As Integer
Dim cBar As Object
Dim btnKontext As Object
Application.CommandBars("cell").Reset
Set cBar = Application.CommandBars("cell")
For WksAnz = 1 To Worksheets.Count
Set btnKontext = cBar.Controls.Add
With btnKontext
.Style = msoButtonIconAndCaption
.Caption = Worksheets(WksAnz).Name
.FaceId = 52
.BeginGroup = True
.OnAction = "Tabwechsel"
End With
Next WksAnz
End Sub

Sub Tabwechsel()
Dim btnKontext As Object
Set btnKontext = CommandBars.ActionControl
Worksheets(btnKontext.Index - 14).Activate
End Sub

Answer 5

hi all ^^

-14 ist die schon vorhandene anzahl der eintraege

gruss nighty

Answer 6

ne keiner der befehle hat geholfen
wie gesagt 0 ahnung von vba