wiijzigen VBA code om rij teverwijderen tot kolom p

[jan excel]

Hallo experts,

Met Onderstaande code kan ik een hele geselecteerde rij verwijderen via een listbox1.
Echter ik wil niet de hele rij verwijderen, de code dient het geselecteerde (rij) t/m kolom P te verwijderen.
Wet iemand hoe de VBA-code moet worden om dit te realiseren.

Private Sub Com_verwijderen_Click()
With ListBox1
        For i = .ListCount - 1 To 0 Step -1
            If .Selected(i) Then
              Sheets("data").Cells(i + 2, 1).EntireRow.Delete Shift:=xlUp
            Else
              n = n + 1
            End If
        Next i
   If n = .ListCount Then
    MsgBox "Eerst een datum selecteren waarvan u de gegevens wilt verwijderen", vbOKOnly, "Selectie"
  End If
    .List = Sheets("data").Cells(1).CurrentRegion.Offset(1).Value
  End With
End Sub

 

[jan excel]

per abuis verstuurd zonder titel, hopelijk komt zo de titel er als nog in te staan.

 

[snb]

Private Sub Com_verwijderen_Click()
  For j=0 to Listbox1.ListCount - 1 
    If Listbox1.Selected(i) Then Sheets("data").Cells(i + 2, 1).resize(,15).clearcontents
  Next
End Sub

 

[jan excel]

Hoi SNB,

Bedankt voor de super snelle reactie en het werkt.

Groet,
Jan E