28. januar 2007 - 20:09Der er
7 kommentarer og 2 løsninger
Liste i Combobox
Hej Jeg har et excelark som virker sammen med en Userform, hvorpå der er en Combobox.
På excelarket er cellerne A1:C1 flettet sammen og cellerne D1:F1 er flettet sammen, osv. - der er altså sket en sammemfletning af cellerne for hver 3 kolonner i første række. I de sammenflettede celler er der en overskrift for hver de 3 kolonner som er nedenunder. Spørgsmålet er nu hvorledes får jeg nu overskrifterne i de flettede celler lagt ind i comboboksen som en liste, hver gang UserFormen åbnes.
Private Sub UserForm_Initialize() ComboBox1.AddItem Sheets(1).[A1] ComboBox1.AddItem Sheets(1).[D1] ComboBox1.AddItem Sheets(1).[G1] ComboBox1.AddItem Sheets(1).[J1] End Sub
Tak kabbak Det virker faktisk fint, men hvis antallet af kolonner ændre, flere eller færre, hvordan kan man så finde ud af hvor mange lister der skal læses ind i comboboksen, uden at der i VBA slkal lægges en ny række ind.
OK, her tjekker jeg hver 3. kolonne om den er flettet, hvis den er flettet kommer den på listen.
Private Sub UserForm_Initialize() Dim i For i = 1 To 255 Step 3 If Sheets(1).Cells(1, i).MergeArea.Cells.Count > 1 Then ComboBox1.AddItem Sheets(1).Cells(1, i) End If Next End Sub
Til kabbak Dit sidste forslag var lige hvad jeg skulle bruge, men ved du hvorledes koden skal se ud hvis der skal læses ind i comboboksen fra følgende område A1:A20, eller længere
læg forøvrigt et svar for din sidste løsning var rigtig god.
Tak for sidste svar jeg har fået alle problemer med mine combobokse løst, og vil arbejde videre med dine løsninger. Point er dine.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
