title image


Smiley Danke Matthias, aber das hilft mir leider nicht. Denn die
ComboBox ist in einer Symbolleiste und wird folgenderweise aufgebaut:



Set objCbo = Application.CommandBars("Paules").Controls.Add(Type:=msoControlComboBox, Before:=7, Temporary:=True)

With objCbo

.Caption = "BlätterWald"

.OnAction = "BlattWählen"

.Text = "Dokument wählen"

.BeginGroup = False

.Style = msoComboNormal

.Width = 120

'.ListRows = 17 'führt hier zu der Fehlermeldung ...Methode nicht gefunden

For Each ws In Worksheets

If ws.Visible = True Then

objCbo.AddItem ws.Name

End If

Next

End With



Trotzdem vielen Dank

Paul

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: