Opgelost Listbox gegevens uit 2 verschillende bereiken

[Atwist]

Hallo.
Moet een van mijn Sheets veranderen, in het bijbehorende userform staat Listbox1 deze haalt nu de gegevens uit het bereik A2300.
Nu moet Listbox1 ook naar een ander bereik kijken namelijk E2:G300.
Kan de gegevens niet onder elkaar zetten want dan had ik de vraag hier niet gesteld.
Met het volgende kom ik niet verder, heb daar bij set rang & "E2:G300" toegevoegd maar dat werkt dus niet.
Heeft iemand een oplossing hiervoor??

Sub vul_listbox1()
       Dim I As Long, ii As Long, rng As Range
    Set rng = Sheets("Sheet1").Range("A2:D300" & "E2:G300")
    With Me.ListBox1
        .ColumnCount = rng.Columns.Count
        For I = 1 To rng.Rows.Count
            For ii = 1 To rng.Columns.Count
                .AddItem
                .List(I - 1, ii - 1) = rng.Cells(I, ii).Text
            Next
        Next
    End With
    Set rng = Nothing
End Sub

 

[JEC.]

Waarom niet gewoon range("A2:G300") ?

Dit zou voldoende zijn overigens

ListBox1.List = range("a2:g300").value

 

[Atwist]

Omdat ik met product nummers die beginnen met HD en JJ die komen bij ver schillend leveranciers weg en wil deze opstelling zo houden.
range("A2:G300") dat is het zelfde dat is het zelfde als alles onder elkaar met range("A2")

 

[JEC.]

Ik begrijp er geen bal van. Omschrijf het even in ABN in het vervolg met een voorbeeldbestand ter verduidelijking.

 

[Atwist]

Volgens mij is het ABN misschien met een tikje Duitse grammatica, dus niets mis mee.
Een voorbeeldbestand kan ik wel maken.

 

[AD1957]

Vreemd en onduidelijk verhaal.
Lid sinds 2006, dan moet je ondertussen toch weten dat een voorbeeldbestandje heel veel kan verduidelijken.

 

[emields]

In de oudheid bestonden er geen voorbeeld bestanden.

 

[Atwist]

Beste mensen het is bijna KERST dus heb elkander lief, in plaats van overal zout opleggen.
Hierbij het voorbeeld bestandje.

 

[emields]

zoek je zoiets?

 

[Atwist]

Nee, dit voorbeeld is echt niet wat ik zoek.

 

[Atwist]

Ik leg dit project voorlopig aan de kant.
Dus zet de vraag op "opgelost"

 

[AD1957]

Je kunt beter uitleggen wat je dan wel zoekt.
Waarschijnlijk dit:

With Sheets("Sheet1")
    j = .Range("A" & Rows.Count).End(xlUp).Offset(1).Row
    I = .Range("E" & Rows.Count).End(xlUp).Row
    .Range("E2:G" & I).Copy .Range("A" & j)
    ListBox1.List = .Cells(1).CurrentRegion.Value
    .Cells(j, 1).Resize(I, 3).Delete
End With

Waarom kun je die twee tabellen niet samenvoegen in 1 dynamische tabel ?

 

[Haije]

Selecteer a2:d300 en e2:g300 en geef die samen een naam. Verwijs naar die naam