Select Case i en løkke (VBA)

øh.. den 'Select Case' du har der giver ikke nogle mening.. Brug en If .. Then


Dim a As Integer

  For a = 1 To AntalEns
    If ComboBox1.Value = (a - 1) Then
      Modelnumber = ComboBox1.Value
    End If
  Next ' a

skulle være sådan..

If ComboBox1.Value >= (a - 1) Then ' Her skal (a - 1) være større eller ligmed .Value

Men så er jeg nød til at vide, hvordan jeg har mere ned en kollone værdier i en combobox, for jeg får ikke listværdien ud af min combox PT.

øh.. kan ikke lige se helt hvad du mener.. vil du gennemløbe dem som er i ComboBox1 ??

Dim i As Integer
  With ComboBox1
      For i = 0 To (.ListCount - 1)
        MsgBox .List(i)
      Next
  End With

eller sådan:

Dim i As Integer
Dim Modelnumber As Variant
  With ComboBox1
      For i = 0 To (.ListCount - 1)
        Modelnumber = .List(i) ' ComboBox1.Value
        If Modelnumber >= (a - 1) Then
       
        End If
      Next
  End With

nej sådan:

Dim i As Integer
Dim Modelnumber As Variant
  For a = 1 To AntalEns
    With ComboBox1
        For i = 0 To (.ListCount - 1)
          If .List(i) >= (a - 1) Then
            Modelnumber = .List(i) ' ComboBox1.Value
          End If
        Next
    End With
  Next ' a

:D

Okay for fra

Normalt  ville jeg lave en:
    Select Case ComboBox.Value
        Case 0
            Modelnumber = "XXXX"
        Case 1
            Modelnumber = "YYYY"
        osv..
    Select End

Men da jeg kun ved at der er AntalEns rækker i comboxen, altså et dynamisk antal.

arrh som jeg skriver tror jeg jeg ved hvorfor du er i tvivl.

Jeg skal bruge den tekst som jeg viser i comboboxen, som er smidt ind med combobox1.Additem. Hvordan får jeg den ud igen?
Den bliver smidt ind med :
AntalEns = 0
For i = 1 To 1200
    If Worksheets("Hoved ark").Range("L" & i & "") = BrandName And Worksheets("Hoved ark").Range("C" & i & "").Value = "S " & Model & "" Then
        ComboBox1.AddItem Worksheets("Hoved ark").Range("D" & i & "").Value & vbTab & i
        AntalEns = AntalEns +1
    End If
Next i

Håbre det giver ne lidt bedre forståelse for problemet?

Ja hvis det bare er den du har valgt i din ComboBox1 så er det bare:

vadi = ComboBox1.Value

Så der points, jeg skulle lige have boundcolumn = 1, så var den der ;-)

godt nok..