Excel VBA für einzelne Nachricht Box für alle leeren Zellen

Question

Ich versuche, die Adresse aller Zellen, die im Bereich D8:D13 leer sind.
Ich möchte ein einzelnes Meldungsfeld anzeigen, das alle zurückgegebenen Adressen auflistet, sofern vorhanden.

Zum Beispiel: "D9, D10, D11 und D13 sind leer"

ich ein Meldungsfeld etwas zu sagen möchte wie

Answer 1

Sie so etwas wie den Code unten bedeuten Sie:

Option Explicit 

Sub GetEmptCells() 

Dim C As Range 
Dim MsgStr As String 

For Each C In Range("D8:D13") ' <-- change the range in this line 
    If C.Value2 = "" Then 
     If MsgStr = "" Then 
      MsgStr = C.Address(False, False) 
     Else 
      MsgStr = MsgStr & "," & C.Address(False, False) 
     End If 
    End If 
Next C 

MsgBox MsgStr & " cells are empty" 

End Sub