Avatar billede xezbeth Nybegynder
19. august 2008 - 16:38 Der 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)
 
        Next R
    End With
    ListBox1.List = MyList
 
End Sub
Avatar billede excelent Ekspert
19. august 2008 - 17:35 #1
Private Sub UserForm_Activate()

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

ActiveSheet.ShowAllData

End Sub
Avatar billede xezbeth Nybegynder
20. august 2008 - 08:53 #2
Hej
mange tak for hjælpen
det ser ud som om det virker, vil du svar?:)
Avatar billede xezbeth Nybegynder
20. august 2008 - 09:12 #3
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
Avatar billede excelent Ekspert
20. august 2008 - 09:51 #4
Er du sikker på de er ens ? check evt på mellemrum foran og efter nr.
Avatar billede xezbeth Nybegynder
20. august 2008 - 12:33 #5
yes de er ens der eringen mellemrum osv, og formatet er det samme
Avatar billede excelent Ekspert
20. august 2008 - 16:11 #6
Kan du ikke sende filen til pm@madsen.tdcadsl.dk
om ikke andet så postnumrene
Avatar billede excelent Ekspert
20. august 2008 - 19:38 #7
Avatar billede xezbeth Nybegynder
22. august 2008 - 14:12 #8
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 :)
Avatar billede excelent Ekspert
22. august 2008 - 14:29 #9
Så har du nok bare åbnet filen, du skal gemme den lokalt og åbne den der fra

Hvis den stadig ikke virker, så tag du bare point selv.
Avatar billede xezbeth Nybegynder
22. august 2008 - 14:59 #10
hej igen

det her fik den til at virke
If Rows(t).Hidden = False Then Me.ListBox1.AddItem (Cells(t, "G").Value)
tak for hjælpen
svar for points :)
Avatar billede excelent Ekspert
22. august 2008 - 15:47 #11
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 ?
Avatar billede xezbeth Nybegynder
22. august 2008 - 18:09 #12
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
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester