Meerdere rijen toevoegen aan listobject zonder loop

Status
Niet open voor verdere reacties.

JEC.

Terugkerende gebruiker
Lid geworden
27 feb 2019
Berichten
4.299
Office versie
365
Is er naast onderstaande aanpak een andere manier om meerdere rijen tegelijk toe te voegen aan een listobject? (zonder loop)

Met de + 5 als variabele:

Code:
Sub j()
 With Sheets(1).ListObjects(1)
  .Resize Range(.Range.Resize(.ListRows.Count + 5).Address)
 End With
End Sub
 
Of een celwaarde of:
Code:
With ListObjects(1)
  .Resize .Range.Resize(.ListRows.Count + Application.InputBox("aantal", , , , , , , 1) + 1)
 End With

Geen idee wat je van plan bent.
 
Het lijkt me zo omslachtig als je het vergelijkt met het invoegen van normale rijen.
Ik dacht misschien is er een trucje met de listobject die ik nog niet kon, maar het lijkt er op dat het alleen op deze manier kan of met een loop.
 
Nog steeds geen idee wat je bedoelingen zijn.

Op een vaste plek rijen invoegen kan ook.
Code:
x = Application.InputBox("aantal", , , , , , , 1)
  ListObjects(1).ListRows.Add(3).Range.Resize(x - 1).Insert
Of:
Code:
 ListObjects(1).DataBodyRange.Rows(3).Resize(x).Insert

Of onderaan aanvullen gelijk met waarden.
Code:
ListObjects(1).ListRows.Add.Range = Array(4, 5, 6)
 
Ik ben was gewoon even wat testjes aan het doen;)
In ieder geval bedankt voor de reacties!
 
Code:
Sub M_snb()
  Blad1.ListObjects(1).ListRows(2).Range.Resize(3).Insert
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan