Listbox

[patje8]

Via een listbox in excell heb ik volgende code:

Private Sub ListBox1_Click() 
Select Case ListBox1.ListIndex 
Case 0 
Range("Spec.!D11") = Range("Prod!a2") 
Range("Spec.!D21") = Range("Prod!c2") 
Range("Spec.!D20") = Range("Prod!D2") 
Range("Spec.!E20") = Range("Prod!E2") 
Range("Spec.!F20") = Range("Prod!F2") 
Case 1 
Range("Spec.!D11") = Range("Prod!a3") 
Range("Spec.!D21") = Range("Prod!c3") 
Range("Spec.!D20") = Range("Prod!D3") 
Range("Spec.!E20") = Range("Prod!E3") 
Range("Spec.!F20") = Range("Prod!F3") 
Case 2 
Range("Spec.!D11") = Range("Prod!a4") 
Range("Spec.!D21") = Range("Prod!c4") 
Range("Spec.!D20") = Range("Prod!D4") 
Range("Spec.!E20") = Range("Prod!E4") 
Range("Spec.!F20") = Range("Prod!F4") 
Case 3 
Range("Spec.!D11") = Range("Prod!a5") 
Range("Spec.!D21") = Range("Prod!c5") 
Range("Spec.!D20") = Range("Prod!D5") 
Range("Spec.!E20") = Range("Prod!E5") 
Range("Spec.!F20") = Range("Prod!F5") 
End Select 
End Sub

Deze zou moeten doorgaan tot rij130 is het blad Prod. Is er soms een andere manier om dit te doen?

 

[patje8]

Heb geprobeerd met

Range("Spec.!D11") = Range("Prod!a" & index +2) 
Range("Spec.!D21") = Range("Prod!c" & index +2) 
Range("Spec.!D20") = Range("Prod!D" & index +2) 
Range("Spec.!E20") = Range("Prod!E" & index +2) 
Range("Spec.!F20") = Range("Prod!F" & index +2)

maar dat lukt blijkbaar niet

 

[LucHeyndrickx]

Hallo,

zo misschien:

Private Sub ListBox1_Click()

Range("Spec.!D11") = Sheets("Prod").Cells(ListBox1.ListIndex + 2, 1).Value
Range("Spec.!D21") = Sheets("Prod").Cells(ListBox1.ListIndex + 2, 3).Value
Range("Spec.!D20") = Sheets("Prod").Cells(ListBox1.ListIndex + 2, 4).Value
Range("Spec.!E20") = Sheets("Prod").Cells(ListBox1.ListIndex + 2, 5).Value
Range("Spec.!F20") = Sheets("Prod").Cells(ListBox1.ListIndex + 2, 6).Value

End Sub

Luc

 

[LucHeyndrickx]

Misschien overal nog bijzetten dat het om de waarde gaat (Is wel de standaardeigenschap... maar voor de volledigheid)

Private Sub ListBox1_Click()

Range("Spec.!D11").Value = Sheets("Prod").Cells(ListBox1.ListIndex + 2, 1).Value
Range("Spec.!D21").Value = Sheets("Prod").Cells(ListBox1.ListIndex + 2, 3).Value
Range("Spec.!D20").Value = Sheets("Prod").Cells(ListBox1.ListIndex + 2, 4).Value
Range("Spec.!E20").Value = Sheets("Prod").Cells(ListBox1.ListIndex + 2, 5).Value
Range("Spec.!F20").Value = Sheets("Prod").Cells(ListBox1.ListIndex + 2, 6).Value

End Sub

 

[patje8]

Hartelijk Dank :thumb:

 

[LucB]

Ik heb een programma zonder ListBox

 

[LucHeyndrickx]

Hoi Luc,

Indien je het op die manier tracht op te lossen, kan je net zo goed formules gebruiken. Zal dan iets worden als:

=VERSCHUIVING(Prod!A1;$H$1-1;0;1;1)

Dit doet in feite net hetzelfde als uw macro... maar dan in formuletaal. Is bovendien altijd aktueel, wat met een macro niet altijd gezegd kan worden.

Luc