bepalen of een bepaalde range 'leeg' is VBA

[chermans74]

Hallo allemaal,

Is het mogelijk om met een macro een bepaalde range te selecteren, laten we zeggen A1:A5, om vervolgens te bepalen of alle cellen in deze range leeg zijn.
Wat resulteert in, wanneer alle cellen leeg zijn, Msgbox ("er is ruimte beschikbaar")
en wanneer 1 of meerdere cellen gevuld zijn, Msgbox ("er is geen ruimte beschikbaar")

Alvast bedankt,

C. Hermans.

 

[HSV]

Zoiets?

Sub hsv()
Dim i As Long, y As Long, tekst As String
For i = 1 To 5
  If Not IsEmpty(Cells(i, 1)) Then
    y = y + 1
  End If
    Next i
  tekst = IIf(y > 0, "er is geen ruimte beschikbaar", "er is ruimte beschikbaar")
 MsgBox tekst
End Sub

 

[Thoralf]

Harry,

Moet dit niet zijn:

  If IsEmpty(Cells([COLOR="#FF0000"][B]i[/B][/COLOR], 1)) Then

 

[HSV]

Uiteraard Thoralf; scherp.
Aangepast, en bedankt.

 

[Thoralf]

@ Harry,

Ik had nog niet het idee dat VBA voor jou een beetje synoniem was met de duivel

 

[HSV]

Zonder test gaat het wel eens mis he, en dan is het net of de duivel er mee speelt. :d

 

[chermans74]

Wederom bedankt, werkt perfect....

Groet,
C.Hermans.

 

[Warme bakkertje]

Sub Rudi()
    MsgBox IIf(WorksheetFunction.CountA(Range("A1:A5")) > 0, "er is geen ruimte beschikbaar", "er is ruimte beschikbaar")
End Sub

 

[snb]

Sub lege_rij_snb()
MsgBox IIf(Join([transpose(transpose(index(A1:F1,)))], "") = "", "", "niet ") & "leeg"
End Sub

Sub lege_kolom_snb()
    MsgBox IIf(Join([transpose(index(A1:A10,))], "") = "", "", "niet ") & "leeg"
End Sub

Sub leeg_gebied_snb_002()
    On Error Resume Next
    y = Range("A1:F10").SpecialCells(4).Count
    MsgBox IIf(Err.Number <> 0, "geen", y) & " lege cellen"
End Sub