ComboBox
22.01.2004 20:34:21
Detlev
Private Sub Workbook_Open()
Dim oCbo As CommandBarComboBox
Dim wks As Worksheet
Dim iCounter As Integer
Call CmdDelete
With Application.CommandBars("Worksheet Menu Bar")
Set oCbo = .Controls.Add( _
Type:=msoControlComboBox, before:=.Controls.Count)
End With
With oCbo
.Caption = "Monate"
.OnAction = "BlattAuswahl"
For iCounter = 0 To 11
.AddItem Format(DateSerial(1, iCounter + 1, 1), "mmmm")
Next iCounter
.ListIndex = 1
End With
End Sub
Ich habe eine Combobox angelegt und wenn eine Auswahl erfolgt wird nach Blattauswahl verzweigt.
Meine Frage: Kann ich und wenn wie den Inhalt der Auswahl in ein Feld NAME übertragen? Und wie komme ich daran?
Bitte um Hilfe
Anzeige