---

Hallo Forum

Ich habe folgendes Problem:
Ich möchte ein Formular befüllen in dem sich 15 Kombinationsfelder befinden.
Der Name ist cmb_Variabele"1" bis cmb_Variabele"15".
Diese Felder möchte ich mit einer Schleife befüllen.
Leider weis ich nicht wie ich es VBA verklickern soll das er den Zähler in die Variabele übernehmen soll.
Ich hoffe einer kann mir bei dem Problem helfen auch wenn es nicht direkt SWX betrift.

Danke.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Solche SolidWorks-unabhängigen Beiträge gehören dann eher hier rein:
VBasic / vb.net / vbs / wsh

Zur Frage:
Deine Variablen heißen ganz bestimmt nicht cmb_Variabele"1" bis cmb_Variabele"15", sndern eher cmb_Variabele1 bis cmb_Variabele15.

Ein Gerüst zum Befüllen der Comboboxen:

Code:

---

Dim cCont As Control
    Dim n As Integer
   
    'combobox1.AddItem
    For Each cCont In Me.Controls
        If TypeName(cCont) = "ComboBox" Then
            Select Case cCont.Name
            Case "ComboBox1"
                For n = 0 To cCont.ListRows
                    cCont.AddItem (cCont.Name & Str$(n))
                Next n
            Case "ComboBox2"
                For n = 0 To cCont.ListRows
                    cCont.AddItem ("n" & Str$(n))
                Next n
            Case "ComboBox3"
                For n = 0 To cCont.ListRows
                    cCont.AddItem ("irgendwas " & Str$(n))
                Next n
            End Select
        End If

    Next cCont

---

HTH 

------------------
Klaus

www.al-ko.com | mein Gästebuch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Klaus

Danke für die Antwort.

Das mit dem Variablennamen ist richtig. Wollte nur deutlich machen was sich verändert.
Die Version mit dem Select Case Befehl ist mir bekannt und habe ich auch angewendet, trotzdem Danke für den Code.
Ich hatte gehofft, das ich mit einer Zeile wie z.B. cmb_Variabele(i).additem=Irgendwas mir die viele Tipperei ersparen könnte.

LG
Udo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP