Test om cellområden är tomma eller inte


Här i detta demonstreras hur vi relativt enkelt kan kontrollera om ett visst cellområde är tomt eller inte.

Detta kan vara värdefullt om vi t ex behöver kontrollera att data har matats in i ett önskat cellområde i mallar.

 

Om ett felmeddelande erhålls vid kopiering till VBA-modul så läs mer här»
 

 

(© 2002 - 2005 All rights Colo - Used by permission)

Option Explicit

 

Sub Test_Range_Empty()

  '© Alla rättigheter XL-Dennis

  Dim wsSheet As Worksheet

  Dim rnData As Range

 

  Dim stConstants As String

  Dim stFormulas As String

 

  Set wsSheet = ActiveSheet

 

  With wsSheet

    Set rnData = .Range("A2:B20")

  End With

 

  On Error Resume Next

  With rnData

    stConstants = .SpecialCells(xlCellTypeConstants).Address

    stFormulas = .SpecialCells(xlCellTypeFormulas).Address

  End With

 

  If stConstants = "" And stFormulas = "" Then

    MsgBox "Cellområdet är tomt!"

  Else

    MsgBox "Cellområdet innehåller data enligt följande:" & vbCrLf & _

        "Text : " & stConstants & vbCrLf & _

        "Formler : " & stFormulas

  End If

 

End Sub