Private Sub Worksheet_Change als cel leeg dan...

[Tweety1]

Ik heb een macro die rijen verplaats naar een andere tabblad. Op tabblad waar het na toe wordt geplaatst heb ik een tabel gemaakt.
Is de tabel al gevuld dat plakt ie het er netjes onder en wordt de tabelgrootte aangepast. Is de tabel leeg dan plakt hij er onder en wordt de tabelgrootte niet aangepast (tabel wordt afentoe leeggemaakt).
Nu had ik het volgen bedacht om een macro te maken en plaatsen in Private Sub Worksheet_Change.
de macro zou dan het volgende moeten doen
Is Cel A3 leeg dan niks doen. Is cel A3 gevuld dan regel A2 verwijderen als de tekst "test" is anders ook niks doen.

 

[Cobbe]

En wat houdt u tegen?

 

[snb]

Maak de 'tabel' niet leeg, maar alleen de databodyrange.

 

[Tweety1]

Het probleem is als de tabel leeg is dat hij het onder de tabel plakt

Sheets("log").Cells(65000, 1).End(xlUp).Offset(1, 0).Resize(1, 8).Value = Split(x, "|")

 

[snb]

Hoe maak je de tabel leeg ?

 

[Tweety1]

met de volgende code
Sheets("Logfile").Range("Logfile").Delete

 

[snb]

kijk eens naar

sheets("logfile").listobjects(1).databodyrange.clearcontents

 

[Tweety1]

Als ik dat gebruik dan wordt de nieuwe regel onder de tabel geplaatst maar niet op de 1e regel van de tabel.

 

[snb]

Dan zul je een andere VBA opdracht moeten gebruiken.