Vba code verkleine

Doohan · 8 jan 2016

Beste helper is het mogelijk om deze code korter te schrijven.
En hoe zou deze er dan uit zien"

Code:

Private Sub KoeliisendemperInCombobox_Change()

    Select Case KoeliisendemperInCombobox.Text
        Case "ZT.200.80-500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 1
            
        Case "ZT.200.80-750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 2
            
        Case "ZT.200.80-1000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 3
                    
        Case "ZT.200.80-1250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 4
                    
        Case "ZT.200.80-1500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 5
                    
        Case "ZT.200.80-1750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 6
                    
        Case "ZT.200.80-2000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 7
                    
        Case "ZT.200.80-2250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 8
                    
        Case "ZT.200.80-2500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 9
                    
        Case "ZT.200.100-500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 10
                    
        Case "ZT.200.100-750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 11
                    
        Case "ZT.200.100-1000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 12
                    
        Case "ZT.200.100-1250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 13
                    
        Case "ZT.200.100-1500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 14
                    
        Case "ZT.200.100-1750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 15
                    
        Case "ZT.200.100-2000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 16
                    
        Case "ZT.200.100-2250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 17
                    
        Case "ZT.200.100-2500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 18
                    
        Case "ZT.200.120-500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 19
                    
        Case "ZT.200.120-750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 20
                   
        Case "ZT.200.120-1000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 21
                    
        Case "ZT.200.120-1250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 22
                    
        Case "ZT.200.120-1500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 23
                    
        Case "ZT.200.120-1750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 24
                    
        Case "ZT.200.120-2000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 25
                    
        Case "ZT.200.120-2250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 26
                    
        Case "ZT.200.120-2500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 27
                    
        Case "ZT.200.140-500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 28
                    
        Case "ZT.200.140-750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 29
                    
        Case "ZT.200.140-1000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 30
                    
        Case "ZT.200.140-1250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 31
                    
        Case "ZT.200.140-1500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 32
                    
        Case "ZT.200.140-1750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 33
                    
        Case "ZT.200.140-2000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 34
                    
        Case "ZT.200.140-2250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 35
                   
        Case "ZT.200.140-2500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 36
                   
        Case "ZT.200.160-500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 37
                    
        Case "ZT.200.160-750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 38
                    
        Case "ZT.200.160-1000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 39
                   
        Case "ZT.200.160-1250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 40
                    
        Case "ZT.200.160-1500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 41
                    
        Case "ZT.200.160-1750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 42
                    
        Case "ZT.200.160-2000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 43
                    
        Case "ZT.200.160-2250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 44
                    
        Case "ZT.200.160-2500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 45
                    
        Case "ZT.200.180-500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 46
                   
        Case "ZT.200.180-750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 47
                   
        Case "ZT.200.180-1000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 48
                    
        Case "ZT.200.180-1250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 49
                    
        Case "ZT.200.180-1500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 50
                    
        Case "ZT.200.180-1750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 51
                    
        Case "ZT.200.180-2000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 52
                    
        Case "ZT.200.180-2250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 53
                    
        Case "ZT.200.180-2500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 54
                   
        Case "ZT.200.200-500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 55
                   
        Case "ZT.200.200-750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 56
                    
        Case "ZT.200.200-1000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 57
                    
        Case "ZT.200.200-1250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 58
                    
        Case "ZT.200.200-1500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 59
                    
        Case "ZT.200.200-1750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 60
                    
        Case "ZT.200.200-2000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 61
                    
        Case "ZT.200.200-2250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 62
                    
        Case "ZT.200.200-2500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 63
            
            End Select
            
End Sub

wampier · 8 jan 2016

combobox heeft een eigenschap genaamd "listindex" dat je het nummer van het geselecteerde item uit de reeks geeft

Ik kan het niet testen vanavond, maar dan zou zoiets kunnen werken:

Code:

Sheets("AIRFLOW 1 SET").Range("koelzoek") = KoeliisendemperInCombobox.ListIndex

mogelijk moet je er +1 bij doen ik weet even niet zo uit mijn hoofd of de reeks 0-based of 1-based is

HSV · 9 jan 2016

De eerste geselecteerde item in een combobox is inderdaad 0 (niets geselecteerd = -1)
Dus als je 1 wilt van de eerst geselecteerde neem je listindex + 1.

Doohan · 9 jan 2016

onbegrip

Ik denk dat ik niet volledig genoeg was want ik begrijp het niet. Want het werkt niet. ik vul mijn combobox met onderstaande code.

Code:

  With KoeliisendemperInCombobox
        .AddItem "ZT.200.80-500"
        .AddItem "ZT.200.80-750"
        .AddItem "ZT.200.80-1000"
        .AddItem "ZT.200.80-1250"
        .AddItem "ZT.200.80-1500"
        .AddItem "ZT.200.80-1750"
        .AddItem "ZT.200.80-2000"
        .AddItem "ZT.200.80-2250"
        .AddItem "ZT.200.80-2500"
        .AddItem "ZT.200.100-500"
        .AddItem "ZT.200.100-750"
        .AddItem "ZT.200.100-1000"
        .AddItem "ZT.200.100-1250"
        .AddItem "ZT.200.100-1500"
        .AddItem "ZT.200.100-1750"
        .AddItem "ZT.200.100-2000"
        .AddItem "ZT.200.100-2250"
        .AddItem "ZT.200.100-2500"
        .AddItem "ZT.200.120-500"
        .AddItem "ZT.200.120-750"
        .AddItem "ZT.200.120-1000"
        .AddItem "ZT.200.120-1250"
        .AddItem "ZT.200.120-1500"
        .AddItem "ZT.200.120-1750"
        .AddItem "ZT.200.120-2000"
        .AddItem "ZT.200.120-2250"
        .AddItem "ZT.200.120-2500"
        .AddItem "ZT.200.140-500"
        .AddItem "ZT.200.140-750"
        .AddItem "ZT.200.140-1000"
        .AddItem "ZT.200.140-1250"
        .AddItem "ZT.200.140-1500"
        .AddItem "ZT.200.140-1750"
        .AddItem "ZT.200.140-2000"
        .AddItem "ZT.200.140-2250"
        .AddItem "ZT.200.140-2500"
        .AddItem "ZT.200.160-500"
        .AddItem "ZT.200.160-750"
        .AddItem "ZT.200.160-1000"
        .AddItem "ZT.200.160-1250"
        .AddItem "ZT.200.160-1500"
        .AddItem "ZT.200.160-1750"
        .AddItem "ZT.200.160-2000"
        .AddItem "ZT.200.160-2250"
        .AddItem "ZT.200.160-2500"
        .AddItem "ZT.200.180-500"
        .AddItem "ZT.200.180-750"
        .AddItem "ZT.200.180-1000"
        .AddItem "ZT.200.180-1250"
        .AddItem "ZT.200.180-1500"
        .AddItem "ZT.200.180-1750"
        .AddItem "ZT.200.180-2000"
        .AddItem "ZT.200.180-2250"
        .AddItem "ZT.200.180-2500"
        .AddItem "ZT.200.200-500"
        .AddItem "ZT.200.200-750"
        .AddItem "ZT.200.200-1000"
        .AddItem "ZT.200.200-1250"
        .AddItem "ZT.200.200-1500"
        .AddItem "ZT.200.200-1750"
        .AddItem "ZT.200.200-2000"
        .AddItem "ZT.200.200-2250"
        .AddItem "ZT.200.200-2500"
               
    End With

bij selectie van 1 van deze moet er een getal op de range "koelzoek" komen. Mischien moet ik hierin niet additem gebruiken om de combobox te vullen. Ik heb de lijst nl ook op het blad koelissendata

en had ik van daaruit de combobox moeten vullen.

Het is nu zo dat zoals het nu geschreven is allemaal wel werkt, maar ik zoek naar kortere schrijfwijze.

HSV · 9 jan 2016

Code:

with sheets("koelissendata")
 combobox1.list = .range("b4:b"& .cells(rows.count,2).end(xlup).row).value
end with

Doohan · 9 jan 2016

dank je hsv.
maar het gaat eigenlijk ook om de case lijst (bovenste vraag) die ik wilde verkorten waarbij de waarde in kolom 1 op sheet 'koelissendata' bij de keuze in de combobox op de range 'koelzoek moet komen. Ik heb de code van wampier gebruikt maar de range koelzoek verandert niet van getal.

VenA · 9 jan 2016

Zie voorbeeldje waaruit blijkt dat het idee van wampier met de aanvulling van HSV prima werkt.

snb · 9 jan 2016

Voor het vullen van een combobox/listbox zie: http://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

etri · 9 jan 2016

Voor het vullen van een combobox/listbox zie: http://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

Goede tip! Zo leer je nog eens wat... :thumb:

Doohan · 9 jan 2016

ok heren

bedankt het vullen van de combobox was niet het probleem. Het schijnt dat het me niet lukt uit te leggen dat het om de getallen gaat die ik graag in een bepaalde cel die koelzoek heet wil projecteren die voor de lijst staat op sheet koelissendata. bedankt voor de moeite. ik grijp maar weer terug op mijn wel werkende lange case lijst

m.vr.gr. Martin

snb · 9 jan 2016

Jij legt het goed uit. Je probleem is dat je de suggesties niet begrijpt. Lees ze dus nog eens rustig over.
Als je je bestand plaatst wordt het -vermoed ik - zó voor je gemaakt.

etri · 9 jan 2016

Doohan zei:
ok heren

bedankt het vullen van de combobox was niet het probleem. Het schijnt dat het me niet lukt uit te leggen dat het om de getallen gaat die ik graag in een bepaalde cel die koelzoek heet wil projecteren die voor de lijst staat op sheet koelissendata. bedankt voor de moeite. ik grijp maar weer terug op mijn wel werkende lange case lijst

m.vr.gr. Martin

Martin,

In je eerste bericht plaats je code om uit te vinden welke keuze een gebruiker heeft gemaakt, om vervolgens in een bepaalde cel een waarde te plaatsen. Je vraagt of jouw zeer uitgebreide code niet korter kan worden geschreven. Wampier doet daar vervolgens een prima suggestie voor. Vervang die eerste code bijvoorbeeld eens door zijn code...

Jouw andere code betreft het vullen van de combobox. Hoewel dit natuurlijk een belangrijke eerste stap is (anders valt er geen keuze te maken door een gebruiker) gaan de reacties van de andere forumleden daar niet over, maar over jouw oorspronkelijke vraag.

Misschien dat je jouw eigen vraag bent vergeten, of anders snappen wij jouw vraag niet...

Doohan · 9 jan 2016

het bestand is simpelweg te groot om te uploaden het is 2,5 mb. hierbij de code die wel werkt.

Code:

Private Sub KoeliisendemperInCombobox_Change()

    ' Select Case KoeliisendemperInCombobox.Text
    'case Sheets("AIRFLOW 1 SET").Range("koelzoek") = KoeliisendemperInCombobox.ListIndex
    ' Private Sub KoeliisendemperInCombobox_Change()

    Select Case KoeliisendemperInCombobox.Text
        Case "ZT.200.80-500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 1
            
        Case "ZT.200.80-750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 2
            
        Case "ZT.200.80-1000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 3
                    
        Case "ZT.200.80-1250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 4
                    
        Case "ZT.200.80-1500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 5
                    
        Case "ZT.200.80-1750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 6
                    
        Case "ZT.200.80-2000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 7
                    
        Case "ZT.200.80-2250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 8
                    
        Case "ZT.200.80-2500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 9
                    
        Case "ZT.200.100-500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 10
                    
        Case "ZT.200.100-750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 11
                    
        Case "ZT.200.100-1000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 12
                    
        Case "ZT.200.100-1250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 13
                    
        Case "ZT.200.100-1500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 14
                    
        Case "ZT.200.100-1750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 15
                    
        Case "ZT.200.100-2000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 16
                    
        Case "ZT.200.100-2250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 17
                    
        Case "ZT.200.100-2500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 18
                    
        Case "ZT.200.120-500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 19
                    
        Case "ZT.200.120-750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 20
                   
        Case "ZT.200.120-1000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 21
                    
        Case "ZT.200.120-1250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 22
                    
        Case "ZT.200.120-1500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 23
                    
        Case "ZT.200.120-1750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 24
                    
        Case "ZT.200.120-2000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 25
                    
        Case "ZT.200.120-2250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 26
                    
        Case "ZT.200.120-2500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 27
                    
        Case "ZT.200.140-500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 28
                    
        Case "ZT.200.140-750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 29
                    
        Case "ZT.200.140-1000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 30
                    
        Case "ZT.200.140-1250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 31
                    
        Case "ZT.200.140-1500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 32
                    
        Case "ZT.200.140-1750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 33
                    
        Case "ZT.200.140-2000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 34
                    
        Case "ZT.200.140-2250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 35
                   
        Case "ZT.200.140-2500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 36
                   
        Case "ZT.200.160-500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 37
                    
        Case "ZT.200.160-750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 38
                    
        Case "ZT.200.160-1000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 39
                   
        Case "ZT.200.160-1250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 40
                    
        Case "ZT.200.160-1500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 41
                    
        Case "ZT.200.160-1750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 42
                    
        Case "ZT.200.160-2000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 43
                    
        Case "ZT.200.160-2250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 44
                    
        Case "ZT.200.160-2500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 45
                    
        Case "ZT.200.180-500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 46
                   
        Case "ZT.200.180-750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 47
                   
        Case "ZT.200.180-1000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 48
                    
        Case "ZT.200.180-1250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 49
                    
        Case "ZT.200.180-1500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 50
                    
        Case "ZT.200.180-1750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 51
                    
        Case "ZT.200.180-2000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 52
                    
        Case "ZT.200.180-2250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 53
                    
        Case "ZT.200.180-2500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 54
                   
        Case "ZT.200.200-500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 55
                   
        Case "ZT.200.200-750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 56
                    
        Case "ZT.200.200-1000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 57
                    
        Case "ZT.200.200-1250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 58
                    
        Case "ZT.200.200-1500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 59
                    
        Case "ZT.200.200-1750"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 60
                    
        Case "ZT.200.200-2000"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 61
                    
        Case "ZT.200.200-2250"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 62
                    
        Case "ZT.200.200-2500"
            Sheets("AIRFLOW 1 SET").Range("koelzoek") = 63
            
            End Select
            
End Sub

comboxbox ziet er zo uit.

Code:

    With Sheets("koelissendata")
        KoeliisendemperInCombobox.List = .Range("b4:b" & .Cells(Rows.Count, 2).End(xlUp).Row).Value
    End With

koelissedata ziet er zo uit

koelzoek is 1 cel waar ik de getallen in case naartoe projecteer op sheet airflow 1 set.

snb · 9 jan 2016

En jij weet sinds 2012 en 139 posts nog niet dat je een deelbestand dat beperkt is tot je vraag in dit forum kunt plaatsen ?

Doohan · 9 jan 2016

@SNB sorry dat ik je lastig val met mijn lastige vragen, Helaas is mijn werk normaal alleen maar beperkt tot het simpel ontwerpen in 3d van noodstroom aggregaten, geluidsberekingen en wat radiatiestralingen van warmte waarin ik probeer de spreadsheets die ik heb een beetje toegankelijker te maken voor collega's. Hierdoor ben ik genoodzaakt om wat VBA toe te passen. Helaas door de werk drukte kan ik niet het VBA -programmeren tot hoofdzaak maken.(iets wat ik gerust wel wil) En hoop ik dat jullie me af en toe helpen ik ben inderdaad al sinds 2012 bezig met het maken van dit bestand. Als ik een geweldige programmeur zou als U. Dan had ik waarschijnlijk allang klaar geweest met dit bestandje. Helaas ben ik nog een nono. Die inderdaad door alle kruis bestuivingen door het bestand heen en mijn slechte programmering heen niet zou weten hoe je een deel bestand maakt.
Het bestand werkt dus laat het maar rusten.

HSV · 10 jan 2016

Als je er al vanaf 2012 mee bezig bent, en je vraagt om raad, maak een kopie van dat bestand en neem de twee coderegels uit de post van @VenA over in je userform.
De ene coderegel om de gegevens te laden in de combobox stop je in de initialize van het form, de andere ene regel in de combobox_change van het formulier.
Die twee regels doen hetzelfde als de gehele code van jou.

Gewoon proberen, zo moeilijk is het allemaal niet.

Doohan · 11 jan 2016

Dank je Harry.
Ik ga het proberen

Vba code verkleine

Doohan

Gebruiker

wampier

Meubilair

HSV

Inventaris

Doohan

Gebruiker

HSV

Inventaris

Doohan

Gebruiker

VenA

Inventaris

Bijlagen

snb

Verenigingslid

etri

Gebruiker

Doohan

Gebruiker

snb

Verenigingslid

etri

Gebruiker

Doohan

Gebruiker

snb

Verenigingslid

Doohan

Gebruiker

HSV

Inventaris

Doohan

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy