Testen, ob Spaltenwerte = 0 ist, dann

Question

Ich versuche, den folgenden Code zu verwenden, um zu überprüfen, ob eine Spalte leer ist, und wenn ja, sollte sie gelöscht werden, aber es gibt mir einen Bereichsfehler. Was mache ich falsch?

Sub Hide() 


    If Range(E3, E1549) = "" Then 

     Columns("E:E").Hidden = True 

     End If 

     End Sub 

Answer 1

Dies ist ähnlich den Test, den Sie im Arbeitsblatt durchführen würde:

Sub Hide() 
    Dim r As Range 

    Set r = Range("E3:E1549") 

    If Application.WorksheetFunction.CountBlank(r) = r.Count Then 
     Columns("E:E").Hidden = True 
    End If 
End Sub 

COUNTBLANK() zählt leere Zellen, Zellen NULL enthalten, und Zellen mit Formeln, die NULL zurückgeben.

Answer 2

Sie bekommen einen Range Fehler, weil Ihr Bereichsbezug nicht richtig gebildet wird. Und Sie können nicht eine ganze Range gegen einen einzelnen Wert überprüfen, es sei denn, Sie erstellen eine Schleife. Sie können die Prüfung mit einer Tabellenfunktion machen:

If WorksheetFunction.CountA(Range("E:E")) = 0 Then 
    Debug.Print "Column is empty" 
Else 
    Debug.Print "Column is not empty" 
End If