VBA: Code Überprüfung - Überspringe erste Zeile eines Blattes

Question

Ich habe versucht zu verstehen, wie die erste Zeile (A) meines Blattes zu überspringen, wenn ich unter Code verwenden, die überprüfen, ob ein Wert auf meinem Excel-Blatt verfügbar ist.

Sub IsActiveSheetEmpty() 
    If WorksheetFunction.CountA(Cells) = 0 Then 
     MsgBox ActiveSheet.Name & " is empty" 
    Else 
     MsgBox ActiveSheet.Name & " is not empty" 
    End If 
End Sub 

Vielen Dank im Voraus

Answer 1

Versuchen Sie Folgendes (implizit aktives Blatt referenziert, so dass Sie explizit die Arbeitsblatt-Namen angeben möchten vielleicht.) Es wird die letzte Zeile verwenden und Spalte, für die je Version von Excel Sie verwenden:

Answer 2

Sub IsActiveSheetEmpty() 
If WorksheetFunction.CountA("A2:A5") = 0 Then 'skips A1 
    MsgBox ActiveSheet.Name & " is empty" 
Else 
    MsgBox ActiveSheet.Name & " is not empty" 
End If 

End Sub

Answer 3

Scheint wie es sollte eine boolesche-zurückkehrende Funktion sein, aber nicht:

Option explicit 

Sub IsActiveSheetEmpty() 

Dim ws as worksheet 
Set ws = Activesheet 

With ws 

If application.CountA(.range(.range("B1"),.cells(.rows.count,.columns.count))) = 0 Then 
MsgBox .Name & " is empty" 
Else 
MsgBox .Name & " is not empty" 
End If 

End with 

End Sub 

Ungetestet, geschrieben am Handy. Tut es was du willst?

Edit: Denke du meinst Spalte A?

Answer 4

Option Explicit 
Sub IsActiveSheetEmpty() 
    Dim myRange As Range 
    Set myRange = Range("A2",Cells(2,1).SpecialCells(XlCellType.xlCellTypeLastCell)) 

    If WorksheetFunction.CountA(myRange) = 0 Then 
     MsgBox ActiveSheet.Name & " is empty" 
    Else 
     MsgBox ActiveSheet.Name & " is not empty" 
    End If 
End Sub