Option
Explicit
Public
wbBook
As
Workbook
Public
wsSheet
As
Worksheet
Private
Sub
ComboBox1_Exit(ByVal
Cancel
As
MSForms.ReturnBoolean)
'© 2004
Alla rättigheter XL-Dennis
Dim
rnTable
As
Range
Dim
vaLook
As
Variant
Set
wbBook = ActiveWorkbook
Set
wsSheet = wbBook.Worksheets("Blad2")
With
wsSheet
Set
rnTable = .Range("A1:C20")
End
With
With
Me
If
Not
.ComboBox1.Text =
""
Then
vaLook = Application.VLookup(.ComboBox1.Text, rnTable,
2,
0)
.Label1.Caption =
CStr(vaLook)
vaLook = Application.VLookup(.ComboBox1.Text, rnTable,
3,
0)
.Label2.Caption =
CStr(vaLook)
End
If
End
With
End
Sub
Private
Sub
UserForm_Initialize()
Dim
rnValues
As
Range
Dim
vaValues
As
Variant
Set
wbBook = ActiveWorkbook
Set
wsSheet = wbBook.Worksheets("Blad2")
With
wsSheet
vaValues = .Range("A1:A20")
End
With
With
Me.ComboBox1
.Clear
.List = vaValues
.ListIndex = -1
End
With
End
Sub