Prüft nur 2 von 3 Pflichtfeldern
08.12.2020 09:18:30
3
ich habe ein kleines Problem mit meinen Pflichtfeldern.
Die Prüfung bezieht sich immer auf eine Zeile.
Wenn bestimmte Zellen "" sind, müssen 3 definierte Zellen befüllt sein.
Die ersten beiden Zellen prüft er auch ganz normal und wirft die MsgBox aus.
Die 3. Zelle wird auch geprüft, nur das hier keine MsgBox kommt.
Zudem wäre es toll wenn mir jemand eine Möglichkeit aufzeigt die "fehlerhaften" Zellen farblich zu markieren und als aktiv zu setzen.
Vielen Dank im Voraus.
Grüße
Chris
https://www.herber.de/bbs/user/142151.xlsm
Hier einmal der Code:
Dim wksImp As Worksheet
Dim ir As Integer 'Zähler für die Zeilen Tabelle Import
Dim iz As Integer 'Zähler für den Eintrag der Daten
Sub Pflichtfelder()
Dim Bereich As Range
Set wksImp = Worksheets("Import")
ir = 3
Do While wksImp.Cells(ir, 1).Value ""
Set Bereich = wksImp.Range(Cells(ir, 3), Cells(ir, 12))
If wksImp.Cells(ir, 2).Value = "" Or wksImp.Cells(ir, 4).Value = "" Or wksImp.Cells(ir, _
7).Value = "" And _
Application.Count(Bereich.Value2) = 1 Then
MsgBox ("Achtung!" & vbCrLf & "In Zeile " & ir & " fehlt der Name!"), vbCritical
wksImp.Cells(ir, 2).Select
End
End If
ir = ir + 1
Loop
ir = 3
End Sub