Hallo Doris,
es geht fast alles, nur eine Frage des Aufwandes....
Wo soll die Abfrage der Pflichfelder denn überhaupt eingesetzt werden?
Hier ein Update:
Sub Test()
Tabelle2.Visible = CheckMussfelder 'versteckt das Blatt,wenn Musseingaben fehlen
End Sub
Function CheckMussfelder() As Boolean
'Prüft, ob alleMussfelder 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
|