AW: Prüfung zelle enthält zahl
02.02.2020 15:06:56
Nepumuk
Hallo Marquardt,
ein Beispiel:
Sub leerpruefen()
Dim Zelle As Range
Dim msgEmpty As String, msgDate As String
Dim msgNumeric As String, msgText As String
Dim msgError As String
For Each Zelle In Sheets("Begehung für Anschreiben").Range("A2:A11")
If IsError(Zelle.Value) Then
msgError = msgError & Zelle.Address & vbLf
ElseIf Zelle.Text = vbNullString Then
msgEmpty = msgEmpty & Zelle.Address & vbLf
ElseIf IsDate(Zelle.Text) Then
msgDate = msgDate & Zelle.Address & vbLf
ElseIf IsNumeric(Zelle.Text) Then
msgNumeric = msgNumeric & Zelle.Address & vbLf
Else
msgText = msgText & Zelle.Address & vbLf
End If
Next
If msgError <> "" Then Call MsgBox("Folgende Zellen enthalten Fehlerwerte:" & vbLf & vbLf & _
msgError, vbInformation Or vbOKOnly, "Prüfergebnis")
If msgEmpty <> "" Then Call MsgBox("Folgende Zellen sind leer:" & vbLf & vbLf & _
msgEmpty, vbInformation Or vbOKOnly, "Prüfergebnis")
If msgDate <> "" Then Call MsgBox("Folgende Zellen enthalten ein Datum:" & vbLf & vbLf & _
msgDate, vbInformation Or vbOKOnly, "Prüfergebnis")
If msgNumeric <> "" Then Call MsgBox("Folgende Zellen enthalten Zahlen:" & vbLf & vbLf & _
msgNumeric, vbInformation Or vbOKOnly, "Prüfergebnis")
If msgText <> "" Then Call MsgBox("Folgende Zellen enthalten Text:" & vbLf & vbLf & _
msgText, vbInformation Or vbOKOnly, "Prüfergebnis")
End Sub
Gruß
Nepumuk