Prüfung ob Bereich numerisch...
06.09.2022 10:42:09
Unknown_User
ich habe zuletzt vom Gerd eine gute Hilfe bekommen und nun habe ich mit dieser Prüfung noch ein Problem:
If .WorksheetFunction.CountIf(Range("V" & r & ":AQ" & r), "n. i. O.") > 0 Or .Min(Range("V" & r & ":AQ" & r)) Cells(r, 16) Then
Min(Range("V" & r & ":AQ" & r)) Cells(r, 16) Then
Zwar kann ich mit for each cells in... jede Zelle einzeln Prüfen, aber das ist nicht zielführend. Wenn eine Zelle außerhalb liegt oder bestimmten Text entspricht, sollen Einträge in anderen Zellen geändert werden:
Cells(r, 46).Value = ""
Cells(r, 48).Value = "x"
Beispiel:
Zelle 1 = n. i. O.
Zelle 2 = i. O.
Zelle 3 = i. O.
Dann muss der Eintrag bereits erfolgen und bleiben.
Oder Zelle 1 = außerhalb oder n. i. O.
Zelle 2 = innerhalb oder i. O.
Dann muss der Eintrag ebenfalls erfolgen und bleiben, wenn alles ok ist, dann erfolgt ein anderer Eintrag.
Also eigentlioch soll
Min(Range("V" & r & ":AQ" & r)) Cells(r, 16) Then
bestimmten Text hat oder außerhalb der Formel liegt...
Ich denke wahrscheinlich zu kompliziert. Ich hoffe jemand versteht mein Anliegen.
Vielen Dank.