Regels in tabel invoegen boven laatste regel van tabel

[gielkleinjan]

In een Excel bestand heb ik een gegevenstabel waar ik met een ActiveX knop regels aan kan toevoegen. Als je op de knop klikt vraagt de macro hoeveel regels je wilt toevoegen.

Deze regels worden alleen toegevoegd onder de 'titelbalk'. er worden dus regels boven de bestaande regels in de tabel toegevoegd.

Private Sub CommandButton2_Click()
x = Application.InputBox("Hoeveel adresregels wil je toevoegen?", "Adresregels toevoegen", , , , , , 1)
For j = 1 To x
ActiveSheet.ListObjects(1).ListRows.Add 1
Next j
End Sub

Graag zou ik zien dat de regels boven de laatste regel van de tabel ingevoegd worden, dus onder de gegevens die al in de tabel staan. wat moet ik aan de VBA tekst toevoegen om dit voor elkaar te krijgen?

 

[AD1957]

Laat de 1 weg achter .Add

 

[pixcel]

Goed dat je een tabel/listobject gebruikt.
Als je het even niet meer weet is de macrorecorder je beste vriend:
- macrorecorder aan
- selecteer de laatste cel in de tabel
- druk op [tab]
- macrorecorder uit
- bekijk het resultaat.

Of:
- selecteer een cel in de laatste rij
- rechts-klik > Invoegen > Tabelrij onder

Om drie rijen ergens in een tabel snel in te voegen:
- navigeer naar een cel in de rij waar je wilt invoegen
- druk op shift en dan twee keer pijl beneden
- shift spatiebalk
- drie keer ctrl +
Ook toe te passen als er een keer geen knop in de buurt is