Name eines Benutzermenüpunkts in Variable
03.08.2003 16:20:18
Chris
ich habe ein benutzspzifisches Menü über folgendes Coding erstellt:
Set kaskade = menüneu.Controls.Add(Type:=msoControlPopup)
With kaskade
.Caption = "Ressourcen"
End With
With kaskade.Controls.Add(Type:=msoControlButton, temporary:=True)
.Caption = "Ressourcen planen"
.Style = msoButtonCaption
.OnAction = "ressourcen_erweitern"
End With
For i = 3 To 15
For Each sh In Worksheets
If sh.Name = "Ressourcen " & 2000 + i Then
If Sheets("Ressourcen " & 2000 + i).Visible = True Then
With kaskade.Controls.Add(Type:=msoControlButton, temporary:=True)
.Caption = "Ressourcenplan " & 2000 + i
.Style = msoButtonCaption
.OnAction = "ressourcenplan_aktivieren"
End With
End If
End If
Next sh
nexti:
Next i
Durch eine Schleife hat dieses Menü immer unterschiedlich viele Unterpunkte (je nachdem, ob ein Tabellenblatt mit dem Namen "Ressourcenplan 200x" vorhanden und eingeblendet ist oder nicht. Der Unterpunkt enthält auch die Bezeichnung des entsprechenden Tabellenblatts.
Ich möchte jetzt im Rahmen des Subs "Ressourcenplan_aktivieren" in Abhänigkeit des Namens des Menüunterpunkts das entsprechende Tabellenblatt aufrufen. Hatte schon die Idee, das ganze über eine Variable zu machen, weiß jedoch nicht wie ich den Namen des Menüunterpunkts in die Variable geschrieben bekomme. Das Makro müßte irgentwie wissen, von welchem Menüunterpunkt er kommt...
Ihr könnt wmir sicher - wie immer - helfen.
Grüße
Chris