Prüfung zelle enthält zahl
02.02.2020 14:44:00
Marquardt
ich möchte prüfen, ob bestimmte Zellen eine Zahl (Datum) enthalten. Jetzt bin ich schon soweit, dass mir die Zellen angezeigt werden die leer sind. Alle Zellen mit Formel werden mir nicht angezeigt. Könnt Ihr es euch bitte einmal anschauen.
Vielen Dank.
Sub leerpruefen()
Dim Zelle As Range, myC As Range
Dim msg As String
Set chkRange = Sheets("Begehung für Anschreiben").Range("a2,A11")
msg = ""
For Each myC In chkRange
If IsEmpty(myC) Then
msg = msg & myC.Address & vbCrLf
End If
Next
If msg = "" Then
Else
MsgBox "Folgende Zellen sind leer:" & Chr(13) & vbCrLf & msg, vbInformation + vbOKOnly, "Prü _
_
_
_
fergebnis"
Exit Sub
End If
End Sub
Anzeige