Gegevens wissen via een listbox

[jefkeh]

Hoi,
Wie wil mij een beetje helpen.
Bestand in bijlage
Ik heb een formulier met een listbox erop, deze box vul ik als volgt:

 ListBox1.List = Sheets("Deelnemers").Range("a11:q" & Sheets("Deelnemers").Cells(Rows.Count, 2).End(xlUp).Row).Value

dit werkt prima.
Nu zou ik graag via die listbox gegevens willen wissen (volledige regel), hier had ik iets voor gevonden op jullie forum, maar werkt niet.

  Range(ListBox1.Rowsource).Cells(ListBox1.ListIndex + 1, 2).EntireRow.Delete

hier krijg ik foutmelding
" Methode Range van object_Global is mislukt"
waar heb ik fout?

Als ik een naam aanmaak als volg

 =Deelnemers!$A$11:$Q$135
     ListBox1.RowSource = "Nrlijst

dit werkt wel, maar dan heb ik al die lege regels in mijn listbox

Als dit werkt zou ik ook graag die zelfde regel willen wissen in een ander werkblad(Pv), waarom diezelfde werkbladen,
ze verschillen iets en moet naar 2 verschillende mensen.
Alvast bedankt

 

[gast0660]

Probeer deze eens in het knopje wissen voor het tabblad Deelnemers.

Private Sub CommandButton7_Click()
    Set ws = Worksheets("Deelnemers")
    Set Rng = ws.Range("A11:A" & ws.Cells(Rows.Count, "A").End(xlUp).Row)
    Set fnd = Rng.Find(What:=TextBox107.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If ListBox1.ListIndex = -1 Then
        MsgBox "Kies eerst een deelnemer!", vbCritical, "Deelnemer?"
        ListBox1.SetFocus
        Exit Sub
    End If
    If Not fnd Is Nothing Then smessage = "Deelnemer verwijderen, ben je zeker" + "?"
    If MsgBox(smessage, vbQuestion + vbYesNo, "Bevestig wissen") = vbNo Then GoTo oops
    ws.Rows(fnd.Row).Delete
    MsgBox "De deelnemer is verwijderd!", vbInformation, "Klaar"
oops:
For Each Ctrl In Controls
        If TypeName(Ctrl) = "TextBox" Or TypeName(Ctrl) = "ComboBox" Then Ctrl.Value = ""
    Next Ctrl
End Sub

 

[jefkeh]

Hoi,
Bedankt voor de snelle reactie en oplossing, werkt perfect.
Ik heb deze een beetje uitgebreid om het ook in werkblad 'Pv" te verwijderen en dat werkt ook.
Nogmaals super bedankt.
Gr.

 

[gast0660]

Ik heb uw code wat getrimd.