Excel Vba - Listbox opvullen afhankelijk van de kolom.

[annetiti]

Halllo

In bijlage vraag.xlm mijn probleem.

Op het tabblad Jp staan 6 kolommen. Indien je in de kolom Sp staat (volgende vrije rij) en je klikt op lijst (macro met subform)
dan mag de gebruiker in de userform enkel de lijst krijgen van de Sp codes. Nu staan alle codes erin.

Sta je in kolom Lu dan mag de userform enkel de gegevens weergeven met LU codes.

Heeft er iemand ervaring met zo'n listbox, multibox?

Is het mogelijk van mij even te helpen?
Bijkomend probleem: het zip bestand is groten dan 100kb -->Het is een klein excel bestand versie 2010!

hartelijk dank
Annetiti

 

[edmoor]

Even inpakken met bijvoorbeeld Winrar.

 

[annetiti]

lukt ook niet.
Er staan nohttans niet veel in de spreadsheet.
groeten anne

 

[Warme bakkertje]

Bestand plaatsen op bv. mijnbestand.nl en link hier plaatsen.

 

[annetiti]

listbox

Hallo

Dat is een interessante opmerking. Meteen gedaan!
De link naar mijn probleem bestand is
http://www.mijnbestand.nl/Bestand-ZCL87PKGFTVA.zip

Hartelijk dank!

Hopelijk nog iemand die me verder kan helpen!

Anne

 

[Warme bakkertje]

Private Sub UserForm_Initialize()
    With [doelstellingen!A14].CurrentRegion
        .AutoFilter Field:=1, Criteria1:= _
            "=*" & Choose(ActiveCell.Column - 2, "SP", "SC", "LU", "LE") & "**", Operator:=xlAnd
        .SpecialCells(xlCellTypeVisible).Copy [doelstellingen!D1]
        .AutoFilter
    End With
    With [doelstellingen!D1].CurrentRegion
        sq = .Value
        .Clear
    End With
    ListBox1.List = sq
End Sub

 

[snb]

of

Private Sub UserForm_Initialize()
  With [doelstellingen!A14].CurrentRegion
    .AutoFilter 1, "=*" & Choose(ActiveCell.Column - 2, "SP", "SC", "LU", "LE") & "*"
    .offset(1).Copy [doelstellingen!D1]
    .AutoFilter
  End With

  With [doelstellingen!D1].CurrentRegion
    listbox1.list = .Value
    .Clear
  End With
End Sub

 

[annetiti]

Hallo

Hartelijk dank!
Ik ben heel tevreden van het resultaat 'k zou het nooit gevonden hebben.

Het werkt! maar...

hoe kan ik in een listbox de headers plaatsen?

http://www.mijnbestand.nl/Bestand-FKICYTMZJRCL.xlsm

groeten

 

[Warme bakkertje]

Private Sub UserForm_Initialize()
  With [doelstellingen!A14].CurrentRegion
    .AutoFilter 1, "=*" & Choose(ActiveCell.Column - 2, "SP", "SC", "LU", "LE") & "*"
    .Copy [doelstellingen!D1]
    .AutoFilter
  End With

  With [doelstellingen!D1].CurrentRegion
    ListBox1.List = .Value
    .Clear
  End With
End Sub

 

[annetiti]

Bekijk bijlage LPD en Doelstellingen zijn de headers mogen geen aankruisvakje worden.docDag Rudi
Hartelijk dank om me te helpen.

Deze vba modules werken goed maar in mijn listbox verschijnen mijn kolomheaders in de listbox maar niet als headers.

With Me.listbox1
.Clear
ColumnHeads = True
.ColumnWidths = "29;113"
End With

anders moet ik het eerste record verwijderen uit
With [doelstellingen!D1].CurrentRegion
sq = .Value
.Clear
End With
ListBox1.List = sq

Is het mogelijk om de eerste rij "LPD en doelstellingen" niet op te nemen als record maw geen huidig gebied?

groeten

Anne