Sub Test()
Tabelle2.Visible = CheckMussfelder
End Sub
Function CheckMussfelder() As Boolean
Dim sBer As String, sMsgTxt As String
Dim Obj As Range, sArr() As String, i As Integer
sBer = "A1,B2,E24"
sMsgTxt = "A1|Test|Budgetierte Bausumme (EUR)"
sArr = Split(sMsgTxt, "|")
For Each Obj In Tabelle1.Range(sBer)
If IsEmpty(Obj.Value) Then
Obj.Select
MsgBox "Die Zelle " & Obj.Address(0, 0) & vbCr & "'" _
& sArr(i) & "'" & vbCr & "ist leer!" & vbCr & vbCr _
& "Bitte tragen Sie dort einen Wert ein!", _
vbCritical, "Prüfung"
CheckMussfelder = False
Exit Function
End If
i = i + 1
Next Obj
CheckMussfelder = True
End Function