Een tabel uitbreiden op Blad1 met de input van Blad2

[CasperEx]

Beste formumleden
Zie het voorbeeldbestand

Op Blad1 staat een tabel met 5 regels (Inhoud: A tot en met E)
Op Blad 2 kan de gebruiker een nieuw artikel invoeren: F
Hoe krijg ik deze F automatisch onder de E op Blad1
En daarna dus G (als ik dat intik op Blad2) weer onder de F op Blad1
Enzovoort

Ik heb oprecht geen idee en roep graag jullie hulp in
Dank je wel!
Casper

 

[JEC.]

Met deze achter tabblad 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [G5]) Is Nothing Then Sheets(1).ListObjects("Tabel1").ListRows.Add.Range = Target.Value
End Sub

 

[CasperEx]

Werkt geweldig!!

De oplossing werkt geweldig!!
Dank je wel!!
Mvg
CasperEx

 

[VenA]

Als er maar 1 cel is die het change Event moet aanroepen dan is dit voldoende.

If Target.Address(0, 0) = "G5" Then ...

Als je van een range een tabel maakt dan moet je even kijken of je wel of geen kolomkoppen gebruikt.