Microsoft Excel

Herbers Excel/VBA-Archiv

mehrere Comboboxen auslesen

Betrifft: mehrere Comboboxen auslesen von: BadeNixer
Geschrieben am: 07.09.2004 14:08:17

Hi,

gibt es eine Möglichkeit mehrere Comboboxen per schleife auszulesen? Wenn ja wie? Die Comboboxen sind natürlich entsprechend nummeriert.

Thx schon mal im voraus.

  


Betrifft: AW: mehrere Comboboxen auslesen von: Ulf
Geschrieben am: 07.09.2004 15:32:28

Du musst schon angeben, ob userform oder Tabelle, die wollen unterschiedlich
angesprochen werden.

Ulf


  


Betrifft: AW: mehrere Comboboxen auslesen von: Axel
Geschrieben am: 07.09.2004 15:41:54

Hallo,

da gibt es mehrere Möglichkeiten.

Ich nehme mal an, dass du normale Comboboxen (keine ActiveX-Steuerelemente) in einem Tabellenblatt platziert hast.

Die Steuerelemente können dann über die Shapes-Auflistung des Blattes erreicht werden. Dann ist zu untersuchen, ob es sich um ein Steuerelement und dann speziell um eine Combobox handelt. (Es könnten ja noch andere Steuerelemente oder andere Shapes, z.B. Kommentare, Grafiken, etc. vorhanden sein.)

Teste mal folgenden Code:



Sub x()
   
   Dim sh As Shape
   
   ' alle Shapes des aktiven Blattes durchlaufen
   For Each sh In ActiveSheet.Shapes
      
      ' Steuerelement ?
      If (sh.Type = msoFormControl) Then
         ' DropDown, also Combobox?
         If (sh.FormControlType = xlDropDown) Then
            ' Bezeichnung des Control und Wert im Direktfenster ausgeben
            Debug.Print sh.Name, sh.ControlFormat.Value
         End If
      End If
      
   Next
   
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5



Gruß
Axel


  


Betrifft: Thx, aver anders gelöst :-) von: BadeNixer
Geschrieben am: 07.09.2004 16:24:35

Dank erstmal an alle :-)

War in der Zwischenzeit selber auf Lösung gekommen... Vielleicht hilft sie auch noch jemand anders:


For zaehler = 0 To 20
For Each objCombobox In Sheets("Werte").OLEObjects
If TypeName(objCombobox.Object) = "ComboBox" Then
If objCombobox.Name = "ComboBox" & zaehler Then
Set kombo = objCombobox.Object

'Ab hier kann die Combobox angesprochen werden...

End If
End If
Next
Next


 

Beiträge aus den Excel-Beispielen zum Thema "mehrere Comboboxen auslesen"