Kan man definere hvor mange dropdown linjer i en combo box med VB

Prøv denne kode på din box:

Private Sub ComboBox1_GotFocus()
    ComboBox1.ListRows = Sheets(1).Range("a1")
End Sub

Ret selv til med relevante navn, og celle.

#jkrons

min combobox hedder "dropdownbox1"
mit sheet hedder "LCL"
min celle hedder "R7"

Jeg har fosøgt at rode rundt i det men kan ikke umiddelbart få det til at virke?

Hvad skal jeg skrive i "drop down lines" i "format control"?

Koden overnfor er lavet til et dropdown-kontrolelement, ikke en dropdown fra formular-værktøjslinien.

Kan det laves til en dropdwon fra formular-værktøjslinjen?

ActiveSheet.Shapes("dropdownbox1").Select
  Selection.DropDownLines = Worksheets("LCL").Range("R7")

det virker umiddelbart ikke .. jeg vælger jo inde i boksen hvilken range der skal være derinde og det er feks. C10:C22 så skal jeg jo have der til at være 12 drop down linjer og ikke en masse hvide felter fordi man har valgt 20 linjer. og det virker ikke rigtigt det du skrev ovenfor.

Prøv at optage en makro, mens du manuelt skriver i "drop down lines" i "format control", så kan du se det rigtige navn i makroen.

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 02-11-2008 by DSV
'

'
    ActiveSheet.Shapes("Drop Down 9").Select
    With Selection
        .ListFillRange = "'Indtast tilbud'!$B$20:$B$45"
        .LinkedCell = "LCL!$J$23"
        .DropDownLines = 8
        .Display3DShading = True
    End With
End Sub


Sådan ser den ud - hvad gør jeg så ?

.DropDownLines = 8

laves om til

.DropDownLines = Worksheets("LCL").Range("R7")

det har jeg prøvet men det virker ikke??

Den viser stadig det antal drop down linjer som jeg har angivet i min ListFillRange? Som i mit tilfælde er 25...

dit spørgsmål lød:
"Kan man i visual basic definere hvor mange drop down linjer der skal være i en combo box med en makro i visual basic. Linje antallet skal komme fra en bestemt celle i excel arket?"

.DropDownLines = Worksheets("LCL").Range("R7")
laver det antal linjer der vises på en gang, i listen når du klikker i den, det har intet med ListFillRange at gøre det er en helt anden sag

det med
  .ListFillRange = "'Indtast tilbud'!$B$20:$B$45"
var ikke det du spurgte om, men:
.ListFillRange = "'Indtast tilbud'!$B$20:$B$" & (Worksheets("LCL").Range("R7")+20)
vil gøre at hvis du skriver 30 i Worksheets("LCL").Range("R7"), så vil den have:
ListFillRange = "'Indtast tilbud'!$B$20:$B$50"

okay det giver mig svar og har fået den til at fungere nu... inden jeg lader dig få pointene har jeg lige et tillægs spørgsmål (du får selvfølgelig pointene anyway)
Men det her er noget der skal sendes ud til nogle kunder. Jeg kan ikke være sikker på alle kunder har deres makro security sat på "low". er der nogen mulighed for at jeg kan gå uden om dette - sådan så at det virker på enhver computer uden man skal "enable macros"

Du kan ikke gå uden om makrosikkerheden, så man skal "enable macros"

det var sørens - men tak for info :)