Combobox (fortsat) 2

Hej

Jeg har fået en del hjælp her på e! til nedestående makroer, men det funker ikke helt endnu :o(

De er til en userform med to ComboBoxe og tre TextBoxe!

ComboBox1 og TextBox1 funker fint

ComboBox2 skal funker lige som Combobox1 men der opstår nogle problemmer

1. hvis man vælger en tom på listen i ComboBoxen kommer den med fejl meddelese i makro nr. 2 nedenfor (contA = CLng(ComboBox2.Value))

2. TextBox3 er stadig tom efter valg i ComboBox2 (makro nr. 3)
__________________________________________________
Private Sub ComboBox1_Change()
Dim cont
Dim myvar
cont = ComboBox1.Value
If cont = "" Then
MsgBox "Du må ikke vælge en tom", vbOKOnly + vbCritical, "Valgfejl"
Exit Sub
End If
myvar = Application.WorksheetFunction _
.VLookup(cont, Range("AdminData!A1:AdminData!B31"), 2, 0)
UserForm1.TextBox1.Text = myvar

End Sub
_____________________________________________
Private Sub ComboBox2_Change()
Dim contA
Dim myvarA
contA = CLng(ComboBox2.Value)
If contA = "" Then
MsgBox "Du må ikke vælge en tom", vbOKOnly + vbCritical, "Valgfejl"
Exit Sub
End If
myvarA = Application.WorksheetFunction _
.VLookup(contA, Range("AdminData!D1:AdminData!E31"), 2, 0)
UserForm1.TextBox2.Text = myvarA

End Sub
______________________________________________
Private Sub ComboBox2ChangeB()
Dim contB
Dim myvarB
contB = CLng(ComboBox2.Value)
If contB = "" Then
MsgBox "Du må ikke vælge en tom", vbOKOnly + vbCritical, "Valgfejl"
Exit Sub
End If
myvarB = Application.WorksheetFunction _
.VLookup(contB, Range("AdminData!D1:AdminData!F31"), 2, 0)
UserForm1.TextBox3.Text = myvarB

End Sub
_____________________________________________

chewie