Opdatering af objekt efter valg i ComboBox
Hej,Jeg er ved at lave noget VBA til et Excel regneark. I en af mine formularer ønsker jeg på baggrund af et valg i en combo at opdaterer en label med en værdi jeg henter i arket, jeg har lavet følgende kode:
Private Sub CB_tilkald2Navn_Change()
linie = CB_tilkald2Navn.ListIndex
LB_tilkald2Tilkaldt.Caption = ThisWorkbook.Worksheets("TilkaldeListe").Cells(linie, 3).Value
End Sub
Private Sub UserForm_Initialize()
Set rng = ThisWorkbook.Worksheets("TilkaldeListe")
raekke = 1
While rng.Cells(raekke, 1).Value <> ""
raekke = raekke + 1
Wend
With Me.CB_tilkald2Navn
.Clear
For i = 1 To raekke
.AddItem rng.Cells(i, 2)
Next i
.ListIndex = 0
End With
If CB_tilkald2Navn = "Navn" Then
linie = 1
End If
LB_tilkald2Tilkaldt.Caption = ThisWorkbook.Worksheets("TilkaldeListe").Cells(linie, 3).Value
End Sub
Og får følgende fejlmelding:
Run-time error '1004'
Application-defined og object-defined error
AnyOne Please
/rene
