Auswahl Pulldownmenü
19.01.2006 21:34:44
Michael
_______________________________________________________________________________
Sub Einlesen()
Dim wks As Worksheet
For Each wks In Worksheets
Worksheets("Tabelle1") _
.DropDowns(1).AddItem wks.Name
Next wks
End Sub
_______________________________________________________________________________
Sub Auswahl()
With ActiveSheet.DropDowns(1)
Worksheets(.List(.ListIndex)).Select
End With
End Sub
_______________________________________________________________________________
ich würde gerne in die Makros noch 2 Optionen einbauen:
1.) das als erste Auswahl immer der Name "wechseln zu..." erscheint
2.) nach einer getroffenen Auswahl, sollte das Pulldownmenü ( ich hoffe es heisst so ), quasi zurück gesetzt werden auf "wechseln zu...". Kann mir einer die Makros vervollständigen ?
Mfg
Michael
Anzeige