• 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.

hele rij verwijderen in werkblad met vba

Status
Niet open voor verdere reacties.
A

appie36

Gebruiker
Lid geworden
19 mei 2009
Berichten
196
hallo,

Met deze code verwijder ik een regel uit een listbox/tabel

Private Sub CommandButton5_Click()
Range("Tabel8").Cells(Me.ListBox2.ListIndex + 1, 1).EntireRow.Delete

Tot voor kort deed het prima maar nu ineens steeds een foutmelding. ( Methode van Delete van klasse Range is mislukt)

Wat doe ik verkeerd?

Mvg

Ab
 
Wordt je List ook bijgewerkt na het deleten van een rij?
 
HSV,

Ik denk het niet, zegt me in ieder geval niets Een soortgelijke melding kreeg ik ook bij het toevoegen van een regel, de tabel verder komt dan regel 50

de verwijzing wat aangepast , daarna ging het weer verder dan 50 regels zonder foutmelding.

dat was eerst:

Sheets("Blad1")

Nu met

Sheets("Blad1").Range("Tabel8")

Doet hij het wel, geen idee of dat het probleem wat maar ja het werkt.(misschien tijdelijk)

Moet na het verwijderen van een regel de tabel opnieuw worden berekent of zo?

Mvg

Ab
 
Ik vermoed dat je lijst is gebaseerd op de tabel.
Rijen weg, foutmelding op den duur.
 
HSV,

Bedankt voor de snelle reactie.

Hoe los ik dit nu op? zonder tabellen gaan werken?

Alleen verwijzen naar Sheet("Blad1") enz en dan niet werken met tabellen en tabel namen?

Mvg

Ab
 
Plaats anders een voorbeeld-bestand zodat iemand kan zien wat je bedoelt.
 
Hierbij een voorbeeldje,

Als je een regel selecteert in bewerking en dan op wis klikt ging het normaal goed, maar nu niet meer.
klik je op een regel in bewerking komt het geselecteerde in textbox1 en combobox1. Clear maakt deze cellen weer leeg.

De wis functie doe niet goed zijn werk, ik kom er niet uit waar het zit.

Mvg

Ab
 

Bijlagen

  • vbappie17217.xlsb
    26,9 KB · Weergaven: 79
Gaat het zo beter?
Code: 
Private Sub CommandButton3_Click()
[COLOR=#0000ff] Sheets("Blad1").ListObjects("Tabel3").ListRows(ListBox2.ListIndex + 1).Delete[/COLOR]
End Sub
 
Hallo HSV,

Helemaal goed zo, mooi snel geregeld via dit forum.

Ik kan het bijna ontleden de formule, alleen de listindex +1 nog niet helemaal.
Op internet vond ik wel dat de functie listindex -1 genereert als er niets is geselecteerd. Houd dit in dat listindex +1 betekent dat er een regel is geselecteerd? Zodat met Delete deze regel word gewist?

Nogmaals bedankt voor de oplossing

Mvg

Ab
 
De eerst geselecteerde regel in een listbox = 0 (nul).
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan