Værdier i combobox på baggrund af combobox

obs.. hvis A1 = æble så er det B1 = inge marie osv.....

Nogen der kan give koden til combobox 2...

Det var egnetlig spørgsmålet...

Vis lige hvordan du "fylder" din combobox med værdier..? Det er altid nemmere at komme med en løsning, når man kan se noget kode, så løsningen ligner det du arbejder med og ikke bruger helt andre fremgangsmåder...

Og jeg fatter ikke helt hvad det er du vil..?

Private Sub UserForm_Activate()
Dim col As New Collection
  Dim intRow As Integer
  intRow = 2
  On Error Resume Next
  Do Until IsEmpty(Cells(intRow, 1))
      col.Add Cells(intRow, 1), Cells(intRow, 1)
      If Err = 0 Then
        userform1.AddItem Cells(intRow, 1)
      Else
        Err.Clear
      End If
      intRow = intRow + 1
  Loop
  On Error GoTo 0
  userform1.ListIndex = 0
End Sub

sådan fylder jeg combobox1...


i combobox1 står der måske æbler

jeg vil så kun have de data fra kolonne b som i kolonne A hedder æbler og så have det vist i combobox 2...

Var det mere klart (tror jeg vist ikke :O)

Hmm... Ikke mere klart for mig ;o)

Prøv igen. Som jeg har forståt det har du:

Kolonne A med æbler osv.
Bolonne B med alt muligt andet.

I de rækker, hvor der i kolonne A står æbler, skal den kolonne B smides i combo2? Eller?

PS: i din kode springer du A1 over, selvom du har A1 med i dit eksempel...

PPS: i din kode refererer du til userform1, ikke combo1 - du har vel ikke kaldt din Combobox for userform1?

Eksemplet har ikke noget med koden at gøre.. det er okay at A1 springes over

Og nej den hedde ikke userform - det var for overskuelighedens skyld... :O)

Nu vil jeg gå hjem og tænke noget mere over det...
og så håbe at der ligger et svar her på mandag???

Go' weekend...

og nej ikke helt... og jo... hvis der står æbler i Combobox1 skal den smide kolonne B i Combobox2 - men kun hvor kolonneA=combobox1 (hvor der lige nu står Æbler....)

Get it now? :O)

Nå - uanset hvordan det er, kan du jo bare tjekke hvad en bestemt celle eller combobox indeholder, og så handle ud efter det:

Indholdet af fx. celle B3 findes sådan her:
  Cells(2, 3).Value

Indholdet af en combobox listitem nr 3 findes sådan her:
  UserForm1.ComboBox1.List(2) 'Index starter med 0

Så er det jo bare at bruge en If-sætning, og det kan jeg se af din kode, at det har du styr på :o)

Altså:

if UserForm1.ComboBox1.List(i) = "Æbler" then
  if Cells(1, j).Value = "Æbler" then
    UserForm1.ComboBox2.additem Cells(2, j).Value
  end if
end if

Og så bare loope over i og j så det passer til dit formål

PS: Har du omdøbt din combo til userform1 for OVERSKUELIGHEDENS skyld?
Det har præcis den modsatte effekt!!!!

Ahh - NU fatter jeg det!

Følgende løsning virker, hvis der
  i celle A1 - A10 står Æble, Banan eller Pærer
  i celle B1 - B10 står Et eller andet, fx. Ingrid Marie
  I combobox1 Står "Æbler", "Pærer" og "Bananer"

Private Sub ComboBox1_Change()
  Dim Række as Integer
  UserForm1.ComboBox2.Clear
  Select Case ComboBox1.List(ComboBox1.ListIndex)
 
  Case "Æbler"
    For Række = 1 To 10
      If Trim(Cells(Række, 1).Value) = "Æble" Then
        UserForm1.ComboBox2.AddItem Cells(Række, 2).Value
      End If
    Next Række
 
  Case "Pærer"
    For Række = 1 To 10
      If Trim(Cells(Række, 1).Value) = "Pære" Then
        UserForm1.ComboBox2.AddItem Cells(Række, 2).Value
      End If
    Next Række
 
  Case "Bananer"
    For Række = 1 To 10
      If Trim(Cells(Række, 1).Value) = "Banan" Then
        UserForm1.ComboBox2.AddItem Cells(Række, 2).Value
      End If
    Next Række
 
  End Select
  If UserForm1.ComboBox2.ListCount >= 0 Then UserForm1.ComboBox2.ListIndex = 0
End Sub

Der kikkes kun i de første 10 rækker - det kan du jo bare ændre. Jeg kan sende dig regnearket, så du kan se koden i praksis, hvis du ikke gider selv kopiere det - giv din email :o)

Private Sub ComboBox1_Change()

  Dim Række As Integer
  UserForm1.ComboBox2.Clear
  Dim col1 As New Collection
  Dim intRow As Integer
  intRow = 2
  On Error Resume Next
  Do Until IsEmpty(Cells(intRow, 1))
  If Cells(intRow, 1) = ComboBox1.Text Then
    col1.Add Cells(intRow, 2), Cells(intRow, 2)
      If Err = 0 Then
        ComboBox2.AddItem Cells(intRow, 2)
      Else
      Err.Clear
    End If
    End If
      intRow = intRow + 1
 
  Loop
  On Error GoTo 0
  ComboBox2.ListIndex = 0

End Sub

Private Sub UserForm_Activate()
Dim col As New Collection
  Dim intRow As Integer
  intRow = 2
  On Error Resume Next
  Do Until IsEmpty(Cells(intRow, 1))
      col.Add Cells(intRow, 1), Cells(intRow, 1)
      If Err = 0 Then
        ComboBox1.AddItem Cells(intRow, 1)
      Else
        Err.Clear
      End If
      intRow = intRow + 1
  Loop
  On Error GoTo 0
  ComboBox1.ListIndex = 0
End Sub

det skulle virke

Det gør mit forslag også :o)

Martin moth > ja, men din udgave kan ikke bruges, hvis der tilføjes andre frugtnavne virker den ikke.

Det kan du da bare ændre, så den napper alle items i combobox1 og ikke kun "Æbler", "Pærer" og "Bananer" - det kan sagtens laves dynamisk!

I dit spørgsmål nævner du kun Æbler, Pærer og Bananer - derfor lavede jeg det således. Men somsagt - det kan du jo bare ændre :o)

>Kabbak...

Den virker perfekt... var der noget galt med min kode?

Selv tak for ulejligheden ;o)