listview en comboboxen voor een overzicht werkt niet naar behoren.

[weswillem]

Op die regel staat bij mij Info.
Hoe maak je je sheet dan intelligent?

Denk dat het een verwijzig betreft




Bekijk bijlage 354248

 

[snb]

Is snap je tekst niet.
De bijlage is ongeldig.

Custom/aangepast aktiveren, op button trechts klikken

.

 

[weswillem]

Gaat het hierom een verwijzing naar een .ocx o.i.d
dit gebeurt als ik op -Aangepast- klikt

 

[snb]

Gebruik svp een screenshot (zoals ik).

 

[weswillem]

Zo dan ?

 

[snb]

Kijk in de VBEditor, extra, referenties.
Daar moet Microsoft Windows common controls 6.0 (SP6.0) geaktiveerd zijn.

 

[blikbanaan]

Beste SNb,

Bedankt voor de duidelijke uitleg, alleen als ik bij Aangepast klik krijg ik een een foutmelding
Microsoft Windows common controls 6.0 (SP6.0) is bij mij geaktiveerd .

 

[weswillem]

Dit zijn de verwijzingen

 

[snb]

Dat lijkt niet verkeerd.
Kijk eens of je aan de toolbox de listview kunt toevoegen.

 

[weswillem]

Dat lijkt niet verkeerd.
Kijk eens of je aan de toolbox de listview kunt toevoegen.

Kan m laden en plaatsen.
Maar zie dat hij system32 staat.
Volgens mij moet hij tot in de map WOW64 staan en daar staat hij ook en niet in system32

 

[snb]

Het zegt me niks. Ik werk in Office 32 Bit.
Wat is het probleem ? De listview is toch geladen en gevuld ?

In de bijlage hoe ik me het filteren en wijzigen voorstel in 1 userform.
Horizontale comboboxen om te filteren, verticale om te wijzigen.

 

[weswillem]

Inderdaad, dat werkt.
Het probleem is:

- of werkblad 'wsdata' een 'intelligente tabel' (=.Listobject in VBA) bevat -
en
- sn = wsData.ListObjects(1).DataBodyRange - werkt niet = ongeldig gebruik van eigenschap

mvg

 

[snb]

je ziet toch in mijn bestand wat een intelligente tabel is. Hier werkt alles vlekkelings.

 

[blikbanaan]

Bete snb,

welke office 32 bit werk je in.

 

[snb]

Office 2010.

 

[blikbanaan]

Ok, bedankt nu weet ik het probleem bij mijn Office 365

 

[snb]

Kun je in 365 controls toevoegen aan de werkset ?
Kun je in 365 referenties toevoegen aan de lijst ?
Krijg je de Listview geladen in 365?
Kun je de Listview aanpassen in 365?

Alternatief kun je gebruik maken van (voor het bestand dat in deze draad centraal staat):

Private Sub UserForm_Initialize()
   sn = s_data.ListObjects(1).DataBodyRange
   sh = s_data.ListObjects(1).HeaderRowRange
   ReDim sc(Controls.Count)
    
    With L_00.ColumnHeaders
        If .Count <> 8 Then
           .Clear
           For j = 1 To 8
              .Add , , sh(1, Choose(j, 1, 2, 3, 4, 6, 9, 10, 12)), Choose(j, 28, 80, 100, 100, 80, 80, 80, 80)
           Next
        End If
    End With

 

[blikbanaan]

werkt 365 controls toevoegen aan de werkset
werkt 365 referenties toevoegen aan de lijst
Krijg de Listview geladen in 365
Kan de Listview aanpassen in 365
Alleen zie draadje 27 werkt niet krijg alleen in dit veld de foutmelding

 

[snb]

Je zou kunnen proberen:

   ThisWorkbook.VBProject.References.AddFromGuid "7EBD.... "

en dan de string invullen die je in de foutmelding krijgt.

 

[blikbanaan]

ThisWorkbook.VBProject.References.AddFromGuid "7EBDDAAE1-8120-11CF-899F-OOAAOO688B10"
Krijg een compileerfout op .AddFromGuid