Code voor verwijderen data

[VenA]

Lijkt mij eenvoudiger met een filter.

Sub VenA(S As String)
  With Sheets(S).ListObjects(1).Range
    .AutoFilter 1, LB_03.Column(0)
    .Offset(1).Rows.Delete
    .AutoFilter
  End With
End Sub

Private Sub LB_03_Click()
  If MsgBox("Ruiter verwijderen, ben je  zeker" + "?", vbQuestion + vbYesNo, "Bevestig verwijderen") = vbYes Then
    Application.DisplayAlerts = False
    VenA "Leden"
    VenA "Proeven"
    MsgBox "De ruiter is verwijderd.", vbInformation, "Klaar"
  End If
  Unload Me
  Ledenkaart.Show
End Sub

 

[HSV]

Dat is inderdaad eenvoudiger.

 

[JosEindhoven]

Het lijkt er wel op Harry alleen ik kan in de code VenA vervangen door wat ik wil maar krijg het niet aan de gang

 

[VenA]

Zo moeilijk kan het niet zijn.

In de module van het formulier 'Verwijderen'
- verwijder de sub Private Sub LB_03_Click()
- kopieer en plak de code uit #21

 

[JosEindhoven]

Je had gelijk Ven A. Ik had de gehele sub niet verwijdert. Bedankt voor de oplossing. Je bent een echte tovenaar.