19. august 2008 - 16:38Der er
11 kommentarer og 1 løsning
Kollonne ind i en listbox
Hej
jeg har en form i Excel med en listbox i, data'erne i listboxen kommer fra en kollone i Excel filen, som indeholder postnumre. Nogle gange fremkommer postnumrene 2 gange, det jeg gerne vil er at gøre så at listboxen kun indeholder postnumrene EN gang jeg har følgende kode
Private Sub UserForm_activate()
Dim MyList(1000, 1) 'as array type Dim R As Integer
Application.ShowToolTips = True With ListBox1 .ColumnCount = 1 .ColumnWidths = 75 .Width = 230 .Height = 110 End With
With Sheet4
For R = 2 To 90 MyList(R, 0) = .Range("G" & R + 1)
Range("G2:G90").AdvancedFilter Action:=xlFilterInPlace, Unique:=True For t = 2 To 90 If Rows(t).Hidden = False Then Me.ListBox1.AddItem Cells(t, "G") Next
nej så lige lidt nærmere det virker ikke, der er f.eks. nogle rækker som har post nr 4700 flere gange og dette post nr bliver vist flere gange i listboksen
hej det er ligemeget, jeg har fundet en anden mulighed :) kan forresten ikke se noget i den form du har sendt? var det menigen at postnr skulle blive listet i den form?
vil du svare så du kan få dine points og tak for hjælpen :)
Virker fint uden value hos mig Virker mit forslag på dine data med value, eller hvordan løste du problemet Så kan vi andre jo også drage nytte af det ?
yes, jeg brugt koden fra dit eksempel, så virkede det, endnu engang tak :)
Private Sub UserForm_Click() Application.ScreenUpdating = False Me.ListBox1.Clear Range("G1:G90").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
For t = 1 To 90 If Rows(t).Hidden = False Then Me.ListBox1.AddItem Cells(t, "G").Value Next
ActiveSheet.ShowAllData Application.ScreenUpdating = True End Sub
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.