VBA - Check leere Zellen - Falsche Ausgabe

Question

Ich habe einen Code, der in einem Bereich überprüft, wenn einige Zellen leer sind (leer oder nicht). Es gibt mir eine Botschaft, die das sagt. Aber es scheint nicht gut zu funktionieren: Die Ausgabenachricht sagt immer, dass es einige leere Zellen in dem Bereich gibt (Spalte A bis H, bis zur letzten aufgefüllten Zeile), wohingegen es das Gegenteil ist (immer Daten). Ich präzis, dass das Layout der Palette eine Tabelle ist! MsgBox (LastRow) ist jedes Mal gleich die letzte Zeile .. auch Hier ist ein Teil des Codes:

Set sht = ThisWorkbook.Worksheets("SS upload")   
Set StartCell = Range("A14")    
LastRow = sht.Cells(sht.Rows.Count, StartCell.Column).End(xlUp).Row 
MsgBox (LastRow) 
Set Rrng = Range("A14 : H" & LastRow) 
For Each cell In Rrng 
If IsEmpty(cell) = True Then 
bIsEmpty = True 
Exit For 
End If 
Next cell 
If bIsEmpty = True Then 
MsgBox "There are empty cells in the file" 
Else 
MsgBox "All cells have values!" 
End If 
End Sub 

Hat in dieser etwas falsch scheinen?

Vielen Dank für Ihre wertvolle Hilfe! :) Grüße

Answer 1

Wahrscheinlich wissen Sie nicht, dass Sie in einem range(A14:H LAST Row) suchen Also, wenn Sie 5 Reihen haben, dann ist der Bereich noch Range (A14: H5). Und dort haben Sie leere Werte.

Public Sub TestME() 

    Dim bIsEmpty As Boolean 

    Set sht = ThisWorkbook.Worksheets(2) 
    Set StartCell = Range("A14") 

    LastRow = sht.Cells(sht.Rows.Count, StartCell.Column).End(xlUp).row 

    MsgBox (LastRow) 
    Set Rrng = Range("A1 : H" & LastRow) 

    For Each cell In Rrng 
     If IsEmpty(cell) = True Then 
      bIsEmpty = True 
      Exit For 
     End If 
    Next cell 

    If bIsEmpty Then 
     MsgBox "There are empty cells in the file" 
    Else 
     MsgBox "All cells have values!" 
    End If 

End Sub 

Answer 2

Das ist in der Tat seltsam, weil es manchmal auch funktioniert. Ich meine die Ausgangsmeldung „Alle Zellen haben Wert“ angepasst wird, was in der Datei wirklich ist (keine Leerzeichen überhaupt), aber manchmal nicht ..

Hier ist mein vollständiger Code:

Sub empty_cells()     
    Dim sht As Worksheet   
    Dim Rrng As Range   
    Dim cell As Range     
    Dim LastRow As Long 
    Dim StartCell As Range 
    Dim bIsEmpty As Boolean 
    Set sht = ThisWorkbook.Worksheets("SS upload") 
    Set StartCell = Range("A14") 
    LastRow = sht.Cells(sht.Rows.Count, StartCell.Column).End(xlUp).Row 
    MsgBox (LastRow) 
    Set Rrng = Range("A14 : H" & LastRow) 
    For Each cell In Rrng 
    If IsEmpty(cell) = True Then 
    bIsEmpty = True 
    Exit For 
End If 
Next cell 
If bIsEmpty = True Then 
MsgBox "There are empty cells in the file" 
Else 
MsgBox "All cells have values!" 
    End If 
End Sub 

Dank für Ihre Unterstützung :)