hoe voeg ik in een tabel regels toe op dynamische plek

[Jolte]

Ik heb in excel een tabel (tabel 2) gemaakt welke gegevens haalt uit een andere tabel (tabel 2).
Het is in sommige situaties wenselijk dat ik in tabel 2 extra regels toe wil voegen om gegevens uit tabel 1 te splitsen.

Hiervoor heb ik onderstaande macro aangemaakt.

In onderstaande macro wordt in regel 6 een nieuwe regel toegevoegd en niet op de plek waar ik de cel geselecteerd heb.
Hoe pas ik de macro aan zodat er op de plek waar de cel geselecteerd is regels worden toegevoegd en dat de overige taken op die plek worden uitgevoerd?

ActiveCell.Select
    Selection.ListObject.ListRows.Add (6)
    Selection.ListObject.ListRows.Add (6)
    Selection.ListObject.ListRows.Add (6)
    ActiveCell.Rows("1:4").EntireRow.Select
    With Selection.Font
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = -0.249977111117893
    End With
    ActiveCell.Offset(0, 2).Range("Tabel2[[#Headers],[rekening]]").Select
    ActiveCell.FormulaR1C1 = "1250"
    ActiveCell.Offset(3, 0).Range("Tabel2[[#Headers],[rekening]]").Select
    ActiveCell.FormulaR1C1 = "1250"
    ActiveCell.Offset(0, 2).Range("Tabel2[[#Headers],[rekening]]").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)*-1"
    ActiveCell.Offset(-2, 0).Range("A1:A2").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .Color = 10092543
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.ClearContents
    ActiveCell.Offset(0, -2).Range("Tabel2[[#Headers],[rekening]]").Select

 

[AD1957]

aanzetje.

Selection.ListObject.ListRows.Add (Selection.Row)

 

[JEC.]

Deze zal niet helemaal zuiver zijn omdat je zo niet naar een tabelrij verwijst

 

[Jolte]

@AD1957 bedankt voor het aanzet. Het toevoegen van een regel werkt op deze wijze. Alleen komt de regel nu een regel te hoog en zou dus een regel lager moeten komen

 

[JEC.]

Dat dus

 

[AD1957]

Probeer dit eens.

Selection.ListObject.ListRows.Add (Selection.Row+1)

 

[AD1957]

@ JEC,
Was me niet helemaal duidelijk, of de oplossing in #6 nu goed is weet ik eigenlijk niet zeker.
Wat is anders de juiste oplossing.

 

[Jolte]

Selection.ListObject.ListRows.Add (Selection.Row+0)

doet redelijk wat ik wil

 

[JEC.]

Dat lijkt me sterk, dat is hetzelfde als de eerste oplossing van Albert.
Zo maakt het niet uit op welke regel de tabel begint.

Sub jec()
 With Sheets(1).ListObjects(1)
   .ListRows.Add ActiveCell.Row - .HeaderRowRange.Row
 End With
End Sub

 

[AD1957]

MsgBox Selection.Row & " is hetzelfde als  " & Selection.Row + 0

 

[JEC.]

Het lijkt alsof je gelijk 3 regels wilt toevoegen. Dat doe je dan zo

Sub jec()
 With Sheets(1).ListObjects(1)
   .ListRows.Add(ActiveCell.Row - .HeaderRowRange.Row).Range.Resize(2).Insert
 End With
End Sub

 

[AD1957]

Eentje teveel, voor 3 rijen boven de actieve cel.:d:d

Sub jec()
 With Sheets(1).ListObjects(1)
   .ListRows.Add(ActiveCell.Row - .HeaderRowRange.Row).Range.Resize([COLOR="#FF0000"]2[/COLOR]).Insert
 End With
End Sub

3 regels onder de actieve cel

Sub jec()
 With Sheets(1).ListObjects(1)
   .ListRows.Add(ActiveCell.Row - .HeaderRowRange.Row+1).Range.Resize([COLOR="#FF0000"]2[/COLOR]).Insert
 End With
End Sub

En weer heb ik wat geleerd.

 

[Jolte]

dat (+0) zelfde zou zijn als () leek mij ook. Maar resultaat leek wel anders te zijn.

@JEC, jou code werkt wel, maar de regels worden in de andere tabel toegevoegd en niet in de tabel waar ik een cel geselecteerd heb

maar dat zal te maken hebben met de naam van de tabel die ik gewijzigd heb naar "Tabel_DB", hoe pas ik dat aan?

 

[AD1957]

Mag ik ook antwoorden?

 With Sheets(1).ListObjects("Tabel_DB")

 

[Jolte]

Ik had het ondertussen op onderstaande wijze opgelost

    With Sheets(2).ListObjects(1)
        .ListRows.Add(ActiveCell.Row + 1 - .HeaderRowRange.Row).Range.Resize(2).Insert
    End With

 

[AD1957]

Met een voorbeeldbestandje was het duidelijker geweest.
Succes met de rest van de code.

 

[Jolte]

zo is het ook opgelost.

bedankt voor de ontvangen hulp!