x-aantal rijen toevoegen aan tabel (VBA)

[HHD]

Hallo,

bijgevoegd mijn test bestand. Bekijk bijlage Inzetlijst.xlsm

In dit bestand wil ik graag middels een msgbox kunnen invoeren met hoeveel rijen de bestaande tabel moet worden uitgebreid.
Daarbij is het belangrijk dat deze rijen behoren bij TbTest en onderaan in deze tabel worden toegevoegd.

Wellicht goed om te weten dat in het originele bestand het tabblad meerdere tabellen bevat die onder elkaar staan.

Wie o wie helpt me verder. Ik heb al een stukje VBA code geprobeerd maar kom niet verder.

Met vriendelijke groet,

HHD

 

[gast0660]

Is het zoiets dat je in gedachten hebt?
Vbtje in bijlage
Ga ergens in een van de cellen staan in de laatste rij van de tabel waar je rijen wil bijvoegen.

 

[HHD]

Ja zoiets heb ik in gedachten inderdaad, bedankt tot dusver.

Maar:
1. De regels worden niet onderaan toegevoegd, maar op de regel van de op dat moment geselecteerde cel.
2. Alle waarden en formules worden overgenomen van de regel waarop je op dat moment staat. Formules is in dit geval wenselijk, handmatig ingevoerde waarden niet.

 

[gast0660]

Dan is het wenselijk dat je een beter vb bestandje post
Mijn code werkt ook als je in een van de cellen gaat staan onder de laatste ingave van uw tabel maar
als je de laatste cel pakt in uw tabel is de formule (kolom D als vb)

=ALS([@Kolom1]="";"";[@Kolom1])

Als je de eerste lege cel pakt onder uw tabel is de formule

=ALS(TbBeveiligers[@Kolom1]="";"";TbBeveiligers[@Kolom1])

En Tabblad TBBeveiligers is niet te vinden in uw vbtje
Volgens mij is het eventjes testen in een kopie van uw echte bestand

 

[roeljongman]

Hallo HHD,

Als je onderstaande code gebruikt ipv jou code dan zou het moeten werken.

x = InputBox("Hoeveel regels wil je toevoegen", "Regels toevoegen")

If x > 0 Then
    For i = 1 To x
        Range("TbBeveiligers").ListObject.ListRows.Add
    Next
End If

Met deze code wordt altijd onderaan de tabel regels toegevoegd, tabellen of andere waarden die onder de benoemde tabel staan worden automatisch doorgeschoven naar onderen.

edit: bestandje ook nog toegevoegd..

 

[edmoor]

Je kan de startregel en aantal regels van elkaar aftrekken. Die doe je -1 en heb je de laatste regel in de tabel. Vervolgens:
Rows(LaatsteRegel).Insert in een loopje van 1 tot het ingegeven aantal.

Start regel: ActiveSheet.ListObjects("TbBeveiligers").Databodyrange.row
Aantal regels: ActiveSheet.ListObjects("TbBeveiligers").Databodyrange.rows.count

 

[HHD]

Hallo HHD,

Als je onderstaande code gebruikt ipv jou code dan zou het moeten werken.

x = InputBox("Hoeveel regels wil je toevoegen", "Regels toevoegen")

If x > 0 Then
    For i = 1 To x
        Range("TbBeveiligers").ListObject.ListRows.Add
    Next
End If

Met deze code wordt altijd onderaan de tabel regels toegevoegd, tabellen of andere waarden die onder de benoemde tabel staan worden automatisch doorgeschoven naar onderen.

edit: bestandje ook nog toegevoegd..

Super, hiermee is het gelukt.

Iedereen bedankt voor de bijdrage!