• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

rijen verwijderen in een tabel

Status
Niet open voor verdere reacties.
T

tepke

Gebruiker
Lid geworden
3 okt 2004
Berichten
237
Hoi

ik heb een tabel genaamd "tabel12" de tabel wil ik leeg gooien op de header na, maar ik krijg het niet voor elkaar ik heb al overal gezocht maar kom er niet meer uit.
de vulling van de tabel is iedere keer anders dus ik kan het aantal rijen niet opgeven.

ik heb de volgende code tot nu

Code: 
    Range("A26").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    selections.Rows.Delete

maar hier geeft hij steeds fouten op "selections.Rows.Delete"

nadat de tabel geleegd heb vul ik hem weer nieuwe gegevens
 
Je kunt toch een range opgeven? Als je bv weet dat je tabel loopt van Kolom A t/m kolom H dan geef je op:

Code: 
ThisWorkbook.Worksheets("JouwBlad").Range("A2:H").ClearContents

Omdat je begint bij rij 2 blijven alleen je kolomkoppen staan.

Om het korter te houden mag je ThisWorkbook weglaten...En als je het bladnummer weet (zichtbaar in het objectenoverzicht) dan kun je zelfs volstaan met:
Code: 
Blad2.Range("A2:H").ClearContents

In dit geval maakt het niet uit als je de bladnaam zou veranderen...
 
Zo doe je dat

Code: 
Sub j()
Sheets(1).ListObjects("tabel12").DataBodyRange.Delete
End Sub
 
Om te voorkomen dat je een foutmelding krijgt als de tabel al leeg is:
Code: 
Sub j()
    With Sheets(1).ListObjects("tabel12")
        If .ListRows.Count>0 Then 
            .DataBodyRange.Delete
        End If
    End With
End Sub
 
Volgens mij kan dit nog eenvoudiger met
Code: 
    Range(Rows(2), Rows(2).End(xlDown)).Delete
 
Alleen als de tabel toevallig in cel A1 begint en er geen lege cellen zijn in kolom A
 
Als je een tabel gebruikt kun je die sws beter behandelen als tabel
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan