Hallo Doris,
ich hoffe, ich habe Dich rihtig verstanden.
SInd es viele Mussfelder mit verschiedenen Meldungstexten?
Dann könntest Du eine Function verwenden.....
Sub Test()
If CheckMussfelder Then
Tabelle2.Activate
End If
End Sub
Function CheckMussfelder() As Boolean
'Prüft, ob alle Mussfelder ausgefüllt sind
Dim sBer As String, sMsgTxt As String
Dim Obj As Range, sArr() As String, i As Integer
sBer = "A1,B2,E24" 'Mussfelder kommagetrennt eingeben
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
viele Grüße
Karl-Heinz
|