remove - Befehl
17.12.2003 13:36:44
Hendrik
ich öffne über nachstehenden code ein dropdown in der Symbolleiste:
Private Sub Workbook_Open()
Windows(1).Visible = True
Range("A1").Select
On Error Resume Next
Set cb = Application.CommandBars.Add(Name:="Uebersicht", _
temporary:=True, Position:=msoBarTop)
On Error GoTo 0
If Application.CommandBars("Uebersicht").Visible = False Then
cb.Visible = True
End If
Set CBC1 = cb.Controls.Add(Type:=msoControlComboBox)
With CBC1
.Width = 200
.Style = msoComboLabel
.Caption = "Datei: "
For y = 1 To 14
If ActiveWorkbook.Sheets("vba").Cells(y, 1) = "" Then
.ListIndex = 1
GoTo weiter
Else
.AddItem ActiveWorkbook.Sheets("vba").Cells(y, 1)
End If
Next y
weiter:
.ListIndex = 1
.OnAction = "Dateiauswahl"
End With
End Sub
Ich möchte nun mit dem Schliessen der Datei das dieses dropdown-Menü mitgeschlossen wird. Ich kann mich errinnern mal im Archiv einen remove-Befehl gelesen zu haben finde ihn aber nicht mehr.
Danke im voraus, Euer Hendrik