Toevoegen/verwijderen regel melding geven

[Tweety1]

Ik gebruik de volgende macro. Alleen werkt deze met 1 regel hoe kan ik deze aanpassen zodat het ook werkt met meerdere regels

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Cells.Count = Cells.Columns.Count Then
MsgBox "Row added or deleted"
End If

End Sub

 

[sylvester-ponte]

dit gaat meestal goed:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    c = Target.Cells.Count / Cells.Columns.Count
    If Int(c) = c Then
        MsgBox c & " Row(s) added or deleted"
    End If
End Sub

 

[pasan]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Cells.Count = Cells.Columns.Count * Target.Rows.Count Then
MsgBox "Row added or deleted"
End If

End Sub

 

[Tweety1]

bedankt