title image


Smiley Re: Kombobox in einer Commandbars!!
Hi!



Sub CommandBarErstellen()

Dim NewBar As CommandBar

Dim CBox As CommandBarControl

Set NewBar = Application.CommandBars.Add(Name:="MeineBar")

Set NewBar = CommandBars("MeineBar")



With NewBar

.Controls.Add(Type:=msoControlComboBox).Caption = "MeineComboBox"

End With



Set CBox = NewBar.Controls(1)



With CBox

.AddItem "Hallo"

.AddItem "Neu"

End With



Set CBox = Nothing

Set NewBar = Nothing

End Sub




Grüße

 

LXus

 

Win7 x64

Office 2013 x64



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: