Opgelost Melding bij verwijderen kolommen/rijen die gegevens bevatten

[E v R]

Je hoeft niet cel voor cel te checken, dit kan in 1 keer per bereik

 

[snb]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Application.EnableEvents = False
   
   Select Case Target.Address
   Case Target.EntireColumn.Address, Target.EntireRow.Address
      On Error Resume next
      n=Target.dependents.count
      If Not Intersect(Cells.SpecialCells(2), Target) Is Nothing Or Not Intersect(Cells.SpecialCells(-4123), Target) Is Nothing or n>0 Then MsgBox "niet leeg"
   End Select

  Application.EnableEvents = True
End Sub

 

[E v R]

Netjes snb,
Ik had die specialcells links laten liggen vanwege die grens
Maar ook hier moet je zelf de hele rij of kolom selecteren.
Een rij of kolom verwijderen wanneer er een cel of meerdere bereiken zijn geselecteerd, geeft geen melding.
Meest ideale zou zijn om de optie om rijen/kolommen te verwijderen (rechtermuis, lint, short cut) te 'disablen' wanneer dit niet zou mogen.