Listbox vullen met meer dan 10 kolommen

[postbus52]

Hallo allemaal,

Ik heb een voorbeeld bestand wat voor mij goed werkt, alleen heeft additem een beperking van 10 kolommen.
Nu zou ik daar nog een kolom willen toevoegen.
Alle voorbeelden die ik tegen kom zijn met additem en dat gaat dus niet.

Ik wil dus vanuit de combobox een groep kiezen en vervolgens het type vanuit de listbox1, daarna wil ik na iedere muisklik op toevoegen, dat het wordt toegevoegd in listbox2

Voor diegene die zich gaat afvragen wat voor zin dit heeft, een korte uitleg.
Mijn bestand is nogal groot geworden en veel formules en grafieken.
Als ik per type direct gaat toevoegen, duurt het bijna 10 seconde per type.
Maar als ik eerst alles toevoegt aan een listbox en daarna de listbox leegt op het werkblad, scheelt dat enorm veel tijd.

Ik hoop maar dat het mogelijk is wat ik wil, maar ik vrees het ergste omdat ik geen enkel voorbeeld bent tegen gekomen.

Met vriendelijke groet,
Hans

 

[HSV]

Maak gebruik van:

listbox1.list = sheets("bladnaamhier").cells(1).currentregion.value

 

[edmoor]

Het berekenen op handmatig zetten is geen optie?

 

[snb]

Geen enkel voorbeeld tegengekomen

:shocked:

Kijk eens hier (ook voor afhankelijke comboboxen/listboxen): http://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

 

[postbus52]

Ik heb het voorbeeld bestand opnieuw geplaatst, want ik zag dat de knop van het invoerscherm niet werkte.

 

[postbus52]

Het berekenen op handmatig zetten is geen optie?

?

 

[postbus52]

Maak gebruik van:

listbox1.list = sheets("bladnaamhier").cells(1).currentregion.value

Kan ik op die manier dan meerdere regels in listbox2 krijgen?

 

[edmoor]

?

Je zegt dat het toevoegen per type te lang duurt vanwege alle ingebouwde formules en wat dies meer zij.
Als het automatisch berekenen bereken op handmatig zet wordt dat pas gedaan als je op de F9 toets drukt.

 

[edmoor]

En die code staat zo, met alles direct onder elkaar, dus zonder juiste inspringpunten in je VBA?

 

[postbus52]

En die code staat zo, met alles direct onder elkaar, dus zonder juiste inspringpunten in je VBA?

haha nee hoor.
Dat is gekomen na kopiëren en plakken

 

[edmoor]

Gebruik dan codetags, het # knopje dus. Dan blijft het intact.

 

[postbus52]

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
aa = ComboBox1.text
If aa > "" Then
    Dim bereik, tekst, pp, test As String
                With ListBox2
                    .ColumnCount = 4
                End With
If aa = "verzekering" Then
    e = " "
    Else
    If aa = "tussenstuk" Then
        e = " "
        Else
        If aa = "diversen" Then
        e = " "
        Else
            e = 1
        End If
    End If
End If
If ListBox1.text <> "" Then
    If Range("d2") = "" Then
        a = Weekday(Now(), vbUseSystemDayOfWeek)
    Else
        a = Weekday(Range("d2"), vbUseSystemDayOfWeek)
    End If
    b = WeekdayName(a)
    c = Year(Date)
    With ListBox2
        ListBox2.AddItem ""
        ListBox2.List(r, 0) = e
        ListBox2.List(r, 1) = aa
        ListBox2.List(r, 2) = ListBox1.text
        ListBox2.List(r, 3) = " € " & Right("        " & Format(Me.TextBox1, "0.00"), 8)
        ListBox2.List(r, 4) = Str(TextBox1.text)
        ListBox2.List(r, 5) = TextBox5.text
        ListBox2.List(r, 6) = b
        ListBox2.List(r, 7) = c
            If Range("d2") = "" Then
                dd = Date
                ListBox2.List(r, 8) = Format(dd, "m-d-yyyy")
            Else
                h = Range("d2")
                k = Format(h, "m-d-yyyy")
                ListBox2.List(r, 8) = k
            End If
        ListBox2.List(r, 9) = "=datt"
    End With
    r = r + 1
End If
ListBox1.ListIndex = ListBox1.ListIndex + 1
End If
Application.ScreenUpdating = True
End Sub

 

[edmoor]

Zo inderdaad, maar het blijft, met alle respect, een zootje.
Heb je dat van het zetten van Berekenen op Handmatig al getest?

 

[postbus52]

:shocked:

Kijk eens hier (ook voor afhankelijke comboboxen/listboxen): http://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

Hier heb ik inderdaad meerdere keren naar gekeken, maar als u mijn voorbeeld bestand bekijkt, weet ik nog steeds niet hoe ik dat moet toepassen.
Ik moet een variabele zien te vullen met meer dan 10 velden en met meerdere regels.
En dan listbox2.list = variabele

 

[postbus52]

Zo inderdaad, maar het blijft, met alle respect, een zootje.
Heb je dat van het zetten van Berekenen op Handmatig al getest?

Heb ik net getest en is inderdaad een groot verschil.

Wat betreft het zootje, ben ik het wel eens. Ik had het wat beter moeten aanpassen.
Ook al is het maar een voorbeeld.
Maar het gaat uiteindelijk om additem te vervangen door een andere techniek.

 

[HSV]

Kan ik op die manier dan meerdere regels in listbox2 krijgen?

Je krijgt alle regels en kolommen die aan 'cells(1).currentregion' zijn verbonden in de listbox.

 

[postbus52]

Je krijgt alle regels en kolommen die aan 'cells(1).currentregion' zijn verbonden in de listbox.

Is het mogelijk om dat in mijn voorbeeldje te verwerken?
Dan zou ik u heel dankbaar zijn.

mvg Hans

 

[snb]

PB52

Kun je niet beter je eerst de grondbeginselen van VBA eigen maken ? Dat communiceert zoveel gemakkelijker.

Pas je ambities aan aan je kennisnivo en streef naar het omgekeerde.

 

[postbus52]

PB52

Kun je niet beter je eerst de grondbeginselen van VBA eigen maken ? Dat communiceert zoveel gemakkelijker.

Pas je ambities aan aan je kennisnivo en streef naar het omgekeerde.

Ik weet niet waar ik deze denigrerende opmerkingen aan verdiend heb.

 

[snb]

De eerste is een vraag.
De tweede een aansporing.
Je leest wat je wil lezen natuurlijk, maar waarom vraag je dan om hulp op 'helpmij' (what's in a name ?) ?