Guten Tag,
ich möchte gern leere zellen zählen und diese per MsgBox wiedergegeben.
Leider zählt mein jetziger Code nicht richtig ( Leere zellen sind definitiv in Spalte O)
Vieleicht könnte mir jemand auf die sprünge helfe.
Lg Klaus
Sub Leerezellen()
Dim mldg As Variant
With Worksheets("Tabelle1")
mldg = MsgBox(" bei " & WorksheetFunction.CountBlank(.Range("O1:O" & .Cells(.Rows.Count, "O").End(xlUp).Row)) & " Mitarbeitern sind keine Dienste geplant .", vbCritical, "Hinweis")
End With
End Sub
|