VBA - combolist - ingen værdier bliver vist
Hej,Jeg har et problem med en combobox, hvor jeg ikke får vist noglen værdier. Det skal siges, at jeg har en anden combobox i samme userform, hvor den godt kan finde ud af vise de ønskede værdier.
De værdier der skal vises fremgår i kolonne B under ark "Oversigt". Navn på combobox er: cmbNamePage3
Nedenfor har jeg indsat de goder der vedr. den combobox der ikke fungerer.
Jeg håber, at der er en af jer der kan hjælpe med at finde ud af hvor koden "knækker" :-)
pft.
Private Sub cmbNamePage3_Click()
'sæt textboksen bærenummer = værdien fra kolonne B i forhold til den valgte værdi på listen
Me.TextBox11.Value = Me.cmbNamePage3.Column(0)
End Sub
--------------------------------------------
Public Sub sortering(combo)
Dim antal As Long, cc As Object
Dim vektor(), ix As Long, j As Long, byt
Set cc = combo
antal = cc.ListCount
ReDim vektor(antal)
Rem sæt værdier i vektor
For ix = 1 To antal
vektor(ix) = cc.List(ix - 1)
Next ix
Rem udfør sortering
For ix = antal - 1 To 1 Step -1
For j = 1 To ix
If vektor(j) > vektor(j + 1) Then
byt = vektor(j)
vektor(j) = vektor(j + 1)
vektor(j + 1) = byt
End If
Next j
Next ix
Rem flyt tilbage i liste
cc.Clear
For ix = 1 To antal
cc.AddItem vektor(ix)
Next ix
Set cc = Nothing
End Sub
----------------------------------------------
Public Sub sorterComboboxcmbNamePage3()
Dim antal As Long, cc As Object
Dim sarray(), ix As Long, j As Long
Dim byt1 As Variant
Dim byt2 As Variant
antal = UserForm3.cmbNamePage3.ListCount
ReDim sarray(1, antal - 1)
For ix = 1 To antal
sarray(0, ix - 1) = UserForm3.cmbNamePage3.Column(0, ix - 1)
sarray(1, ix - 1) = UserForm3.cmbNamePage3.Column(1, ix - 1)
Next ix
For ix = antal - 1 To 1 Step -1
For j = 1 To ix
If sarray(1, j - 1) > sarray(1, j) Then
byt1 = sarray(0, j - 1)
byt2 = sarray(1, j - 1)
sarray(0, j - 1) = sarray(0, j)
'kolonne 2
sarray(1, j - 1) = sarray(1, j)
'kolonne 1
sarray(0, j) = byt1
'kolonne 2
sarray(1, j) = byt2
End If
Next j
Next ix
UserForm3.cmbNamePage3.Column() = sarray
End Sub
---------------------------------------------
Private Sub udfyldCombo()
Dim omRåderne As Variant, ix As Byte, combo As Object, comboNavn As String
omRåderne = Array("NameAktier", "NameAktierUdenlandske", "NameObl", "NameOblUdenlandske", "NameInvA", "NameInvO")
faneNavn = MultiPage1.SelectedItem.Caption
comboNavn = findComboNavn(LCase(faneNavn))
If comboNavn <> "" Then
If comboNavn = "Namecb" Then
FyldComboboxNamecb
'hvis combonavnet er cmbNamePage3, så fyld værdier i comboboxen via MitArray i proceduren FyldComboboxcmbNamePage3
ElseIf comboNavn = "cmbNamePage3" Then
FyldComboboxcmbNamePage3
Else
Set combo = UserForm3.Controls(comboNavn)
combo.Clear
For ix = 0 To UBound(omRåderne)
For Each cc In ActiveWorkbook.Sheets("Oversigt").Range(omRåderne(ix))
If cc.Value <> "" Then
combo.AddItem cc
End If
Next cc
Next ix
sortering combo
End If
End If
End Sub
-------------------------------------------------
Private Sub FyldComboboxcmbNamePage3()
Dim i As Integer 'tællevariabel
Dim c As Range 'objektvariabel
Dim l As Integer 'tælle variabel til MitArray
'sæt tælle variabel = 0
l = 0
'opret MitArray
Dim mitarray() As Variant
'redimensioner mitarray med 2 kolonner og 1 række
ReDim mitarray(1, 0)
'comboboksen skal indeholde 2 kolonner
UserForm3.cmbNamePage3.ColumnCount = 2
'fyld comboboxen med værdier fra kolonne D på arket Oversigt
'Start i celle 8 og slut i sidste celle indeholdende en værdi
For i = 8 To Sheets("Oversigt").Range("D65536").End(xlUp).Row
'set C = den næste celle i kolonnen
Set c = Worksheets("Oversigt").Cells(i, 4)
'hvis cellen er forskellig fra tom og skrifttypen ikke er bold
'på Dansk: hvis der står noget i cellen, som ikke er med skrevet med fed skrift
If c.Value <> "" And c.Font.Bold = False And c.Font.Italic = False Then
'------------------------ NEDENFOR KAN OPSLAGSVÆRDIEN ÆNDRES I COMBOBOKSEN---------------------------------
' Husk også at ændre i Sub BogførKøbOgSalg(ks)
'Vis navn i comboboksen og bærenr. i tekstboksen:
'mitarray(0, l) = c.Offset(0, -2).Value
'mitarray(1, l) = c.Value
'Vis bærenr. i comboboksen og navn i tekstboksen:
'mitarray(1, l) = c.Offset(0, -2).Value
'mitarray(0, l) = c.Value
'opret række i MitArray
'giv kolonne 1 værdien fra kolonne B ud for den aktive celle
mitarray(1, l) = c.Offset(0, -2).Value
'giv kolonne 2 værdien fra den aktive celle
mitarray(0, l) = c.Value
'tæl tælle variablen l op med 1
l = l + 1
'redimensioner MitArray
ReDim Preserve mitarray(1, l)
End If
'næste celle
Next
'træk den sidste tomme række ud af mitarray
ReDim Preserve mitarray(1, l - 1)
'tilføj comboboksen værdierne fra MitArray
UserForm3.cmbNamePage3.Column() = mitarray
'sorter comboboxen Namecb
sorterComboboxcmbNamePage3
End Sub
--------------------------------
Private Function findComboNavn(faneNavn)
Dim Navn As String
findComboNavn = ""
If faneNavn = "køb/salg" Then
findComboNavn = "Namecb"
Else
If faneNavn = "Renter" Then
findComboNavn = "cmbNamePage3"
End If
End If
End Function
