Listenfeld in Menüleiste
01.02.2007 08:45:40
Roland
kann mir jemand bei folgendem Problem helfen?
Ich habe 12 Monatsblätter in jedem befinden sich die Abwesenheiten der Mitarbeiter. Nun habe ich eine Jahres Einzelansicht erstellt und möchte die Daten des jeweiligen Mitarbeiters aus den Monatsblättern in die Jahresübersicht füllen.
Zu diesem Zweck habe ich mit untenstehendem Code ein Listenfeld in der Menüleiste erstellt.
Nun zu meinem Problem:
Wie kann ich den in der Combobox ausgewählten Mitarbeiter weiterverwenden? Es wird ja immer das gleiche Makro ausgeführt einfach mit einem anderen Mitarbeiter als Variable. (Ich habe bis jetzt nur Lösungen mit Case gefunden, die je nach ausgewähltem Case ein anderes Makro ausführen, und die ich nicht brauchen kann, da die Anzahl Mitarbeiter ändern kann)
Für eure Hilfe danke ich im Voraus bestens.
Gruss
Roland
Sub Einzelauswahl()
Dim ws As Worksheet
Dim i As Long
Set ws = Worksheets(1)
' Kombinationsfeld einfügen
With Application.CommandBars("Worksheet Menu Bar").Controls. _
Add(Type:=msoControlComboBox)
' Einträge aus Zellen beziehen
i = 1
Do Until ws.Cells(i, 3) = ""
.AddItem Text:=ws.Cells(i, 3)
i = i + 1
Loop
' Einstellungen am Kombinationsfeld
.Caption = "Mitarbeiter"
.DropDownLines = 7
.DropDownWidth = 100
.ListHeaderCount = 0
.TooltipText = "Mitarbeiter auswählen"
.BeginGroup = True
.OnAction = "Datenübertragen"
End With
End Sub