Combobox (fortsat)
Hold fast :o) vi tager lige den sidste-----------------------------------------------------
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!B30"), 2, 0)
UserForm1.TextBox10.Text = myvar
End Sub
------------------------------------------------------
Private Sub ComboBox2_Change()
Dim contA
Dim myvarA
contA = 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!D30"), 2, 0)
UserForm1.TextBox11.Text = myvarA
End Sub
-----------------------------------------------------
Private Sub UserForm_Activate()
Dim Var1 As String
Dim Var2 As String
Dim Var3 As String
Dim Var4 As String
Dim Var5 As String
Dim Var6 As String
Dim Var7 As String
Dim Var8 As String
Dim Var9 As String
Dim Var10 As String
Dim Var11 As String
Dim Var12 As String
Dim Var13 As String
Dim Var14 As String
Dim Var15 As String
Dim Var16 As String
Dim Var17 As String
Dim Var18 As String
Dim Var19 As String
Dim Var20 As String
Dim Var21 As String
Dim Var22 As String
Dim Var23 As String
Dim Var24 As String
Dim Var25 As String
Dim Var26 As String
Dim Var27 As String
Dim Var28 As String
Dim Var29 As String
Dim Var30 As String
Dim Var31 As String
Var1 = Worksheets("AdminData").Range("A1").Value
Var2 = Worksheets("AdminData").Range("A2").Value
Var3 = Worksheets("AdminData").Range("A3").Value
Var4 = Worksheets("AdminData").Range("A4").Value
Var5 = Worksheets("AdminData").Range("A5").Value
Var6 = Worksheets("AdminData").Range("A6").Value
Var7 = Worksheets("AdminData").Range("A7").Value
Var8 = Worksheets("AdminData").Range("A8").Value
Var9 = Worksheets("AdminData").Range("A9").Value
Var10 = Worksheets("AdminData").Range("A10").Value
Var11 = Worksheets("AdminData").Range("A11").Value
Var12 = Worksheets("AdminData").Range("A12").Value
Var13 = Worksheets("AdminData").Range("A13").Value
Var14 = Worksheets("AdminData").Range("A14").Value
Var15 = Worksheets("AdminData").Range("A15").Value
Var16 = Worksheets("AdminData").Range("A16").Value
Var17 = Worksheets("AdminData").Range("A17").Value
Var18 = Worksheets("AdminData").Range("A18").Value
Var19 = Worksheets("AdminData").Range("A19").Value
Var20 = Worksheets("AdminData").Range("A20").Value
Var21 = Worksheets("AdminData").Range("A21").Value
Var22 = Worksheets("AdminData").Range("A22").Value
Var23 = Worksheets("AdminData").Range("A23").Value
Var24 = Worksheets("AdminData").Range("A24").Value
Var25 = Worksheets("AdminData").Range("A25").Value
Var26 = Worksheets("AdminData").Range("A26").Value
Var27 = Worksheets("AdminData").Range("A27").Value
Var28 = Worksheets("AdminData").Range("A28").Value
Var29 = Worksheets("AdminData").Range("A29").Value
Var30 = Worksheets("AdminData").Range("A30").Value
Var31 = Worksheets("AdminData").Range("A31").Value
UserForm1.ComboBox1.AddItem Var1, 0
UserForm1.ComboBox1.AddItem Var2, 1
UserForm1.ComboBox1.AddItem Var3, 2
UserForm1.ComboBox1.AddItem Var4, 3
UserForm1.ComboBox1.AddItem Var5, 4
UserForm1.ComboBox1.AddItem Var6, 5
UserForm1.ComboBox1.AddItem Var7, 6
UserForm1.ComboBox1.AddItem Var8, 7
UserForm1.ComboBox1.AddItem Var9, 8
UserForm1.ComboBox1.AddItem Var10, 9
UserForm1.ComboBox1.AddItem Var11, 10
UserForm1.ComboBox1.AddItem Var12, 11
UserForm1.ComboBox1.AddItem Var13, 12
UserForm1.ComboBox1.AddItem Var14, 13
UserForm1.ComboBox1.AddItem Var15, 14
UserForm1.ComboBox1.AddItem Var16, 15
UserForm1.ComboBox1.AddItem Var17, 16
UserForm1.ComboBox1.AddItem Var18, 17
UserForm1.ComboBox1.AddItem Var19, 18
UserForm1.ComboBox1.AddItem Var20, 19
UserForm1.ComboBox1.AddItem Var21, 20
UserForm1.ComboBox1.AddItem Var22, 21
UserForm1.ComboBox1.AddItem Var23, 22
UserForm1.ComboBox1.AddItem Var24, 23
UserForm1.ComboBox1.AddItem Var25, 24
UserForm1.ComboBox1.AddItem Var26, 25
UserForm1.ComboBox1.AddItem Var27, 26
UserForm1.ComboBox1.AddItem Var28, 27
UserForm1.ComboBox1.AddItem Var29, 28
UserForm1.ComboBox1.AddItem Var30, 29
UserForm1.ComboBox1.AddItem Var31, 30
TextBox1.Text = Format(Now, "dd-mm-yyyy")
ComboBox1.ListIndex = 0
End Sub
---------------------------------------------------
Private Sub UserForm_ActivateA()
Dim Var1a As String
Dim Var2a As String
Dim Var3a As String
Dim Var4a As String
Dim Var5a As String
Dim Var6a As String
Dim Var7a As String
Dim Var8a As String
Dim Var9a As String
Dim Var10a As String
Dim Var11a As String
Dim Var12a As String
Dim Var13a As String
Dim Var14a As String
Dim Var15a As String
Dim Var16a As String
Dim Var17a As String
Dim Var18a As String
Dim Var19a As String
Dim Var20a As String
Dim Var21a As String
Dim Var22a As String
Dim Var23a As String
Dim Var24a As String
Dim Var25a As String
Dim Var26a As String
Dim Var27a As String
Dim Var28a As String
Dim Var29a As String
Dim Var30a As String
Dim Var31a As String
Var1a = Worksheets("AdminData").Range("d1").Value
Var2a = Worksheets("AdminData").Range("d2").Value
Var3a = Worksheets("AdminData").Range("d3").Value
Var4a = Worksheets("AdminData").Range("d4").Value
Var5a = Worksheets("AdminData").Range("d5").Value
Var6a = Worksheets("AdminData").Range("d6").Value
Var7a = Worksheets("AdminData").Range("d7").Value
Var8a = Worksheets("AdminData").Range("d8").Value
Var9a = Worksheets("AdminData").Range("d9").Value
Var10a = Worksheets("AdminData").Range("d10").Value
Var11a = Worksheets("AdminData").Range("d11").Value
Var12a = Worksheets("AdminData").Range("d12").Value
Var13a = Worksheets("AdminData").Range("d13").Value
Var14a = Worksheets("AdminData").Range("d14").Value
Var15a = Worksheets("AdminData").Range("d15").Value
Var16a = Worksheets("AdminData").Range("d16").Value
Var17a = Worksheets("AdminData").Range("d17").Value
Var18a = Worksheets("AdminData").Range("d18").Value
Var19a = Worksheets("AdminData").Range("d19").Value
Var20a = Worksheets("AdminData").Range("d20").Value
Var21a = Worksheets("AdminData").Range("d21").Value
Var22a = Worksheets("AdminData").Range("d22").Value
Var23a = Worksheets("AdminData").Range("d23").Value
Var24a = Worksheets("AdminData").Range("d24").Value
Var25a = Worksheets("AdminData").Range("d25").Value
Var26a = Worksheets("AdminData").Range("d26").Value
Var27a = Worksheets("AdminData").Range("d27").Value
Var28a = Worksheets("AdminData").Range("d28").Value
Var29a = Worksheets("AdminData").Range("d29").Value
Var30a = Worksheets("AdminData").Range("d30").Value
Var31a = Worksheets("AdminData").Range("d31").Value
UserForm1.ComboBox2.AddItem Var1a, 0
UserForm1.ComboBox2.AddItem Var2a, 1
UserForm1.ComboBox2.AddItem Var3a, 2
UserForm1.ComboBox2.AddItem Var4a, 3
UserForm1.ComboBox2.AddItem Var5a, 4
UserForm1.ComboBox2.AddItem Var6a, 5
UserForm1.ComboBox2.AddItem Var7a, 6
UserForm1.ComboBox2.AddItem Var8a, 7
UserForm1.ComboBox2.AddItem Var9a, 8
UserForm1.ComboBox2.AddItem Var10a, 9
UserForm1.ComboBox2.AddItem Var11a, 10
UserForm1.ComboBox2.AddItem Var12a, 11
UserForm1.ComboBox2.AddItem Var13a, 12
UserForm1.ComboBox2.AddItem Var14a, 13
UserForm1.ComboBox2.AddItem Var15a, 14
UserForm1.ComboBox2.AddItem Var16a, 15
UserForm1.ComboBox2.AddItem Var17a, 16
UserForm1.ComboBox2.AddItem Var18a, 17
UserForm1.ComboBox2.AddItem Var19a, 18
UserForm1.ComboBox2.AddItem Var20a, 19
UserForm1.ComboBox2.AddItem Var21a, 20
UserForm1.ComboBox2.AddItem Var22a, 21
UserForm1.ComboBox2.AddItem Var23a, 22
UserForm1.ComboBox2.AddItem Var24a, 23
UserForm1.ComboBox2.AddItem Var25a, 24
UserForm1.ComboBox2.AddItem Var26a, 25
UserForm1.ComboBox2.AddItem Var27a, 26
UserForm1.ComboBox2.AddItem Var28a, 27
UserForm1.ComboBox2.AddItem Var29a, 28
UserForm1.ComboBox2.AddItem Var30a, 29
UserForm1.ComboBox2.AddItem Var31a, 30
ComboBox2.ListIndex = 0
'af jkrons
End Sub
--------------------------------------------------------
Jeg har to ComboBoxe på en userform og to lister på et ark
det skulle gerne værer sådan at i den ene ComboBox1 er den ene liste fra arket og i den anden ComboBox2 er den anden liste
Hvad gør jeg forkert
Chewie
