Opgelost Rij invoegen eerste regel tabel

[Amstellovich1967]

Hallo Leden,

Ik wil graag d.m.v. een button en lege regel op de eerste regel de tabel laten invoegen die ook de formules overneemt.
Nu heb ik een macro gevonden maar die voegt een regel in buiten de tabel.
Wat doe ik fout?

Groet,
René

 

[AD1957]

bedoel je dit ?

Blad2.ListObjects(1).ListRows.Add (1)

 

[Amstellovich1967]

Hoi Ad1957:
Waar plaat ik deze code? Onder de button?

 

[AD1957]

Jouw code vervangen

Sub Macro_legeregel()

    Blad2.ListObjects(1).ListRows.Add (1)
    Blad2.ListObjects(1).ListRows(1).Range.Interior.Color = xlNone

    
End Sub

 

[Amstellovich1967]

@AD1957:
Je code werkt goed echter zou het mogelijk zijn dat de datum automatisch mee verandert?
Onderste regel is bijv 31-12-2024 dat de regel erboven dan met een dag later verspringt?

Groet,
Rene

 

[snb]

Waarom een macro voor iets wat een tabel automatisch doet ?
Vul iets in in de eerste lege cel onder de tabel en klaar is Kees.

 

[Amstellovich1967]

@snb:
Ik begrijp wat je bedoeld maar bij mij geeft het wel een lege regel maar geen datum weer.
Is het ook mogelijk dat als kolommen D en/of E leeg zijn dat de melding #waarde in kolom F ook niet te zien is?

 

[snb]

Selekteer cel C5, trek door naar beneden en kijk wat er gebeurt.

 

[Amstellovich1967]

Ik weet niet wat ik fout doet maar als ik in de onderste regel een datum plaats en dan een lege regel invoeg dan krijg ik een lege cel in kolom datum.

 

[AD1957]

Zoiets voor de datum. (kan waarschijnlijk nog korter)
En voor de melding #waarde moet je eens goed naar de formules kijken.

Sub Macro_legeregel()
 With Blad2.ListObjects(1)
    datum = Blad2.Cells(3 + .ListRows.Count, 3)
    .ListRows.Add (1)
    .ListRows(1).Range.Interior.Color = xlNone
    Blad2.Cells(4, 3) = datum + .ListRows.Count - 1
 End With

End Sub

 

[Amstellovich1967]

Geweldig! het werkt zeer goed. Achter de formule in kolom F ga ik even googlen om dit netjes te krijgen.
Super bedankt.

 

[emields]

Probeer het zo eens.

 

[Amstellovich1967]

Emields: bedankt voor je hulp, ziet er ook goed uit. Blij met jullie hulp.

;-)

Rene