Habe ich es hoffentlich verständlich genug erklärt?
Noch immer nicht so wirklich.
Wie lautet deine verbale Formulierung für diese Bedingung?
If ZelleA.Value <> "Nie gelaufen" Or ZelleA.Value <> "Verlust" _
Or ZelleA.Value <> "Außer Kontrolle" Or ZelleA.Value <> "AbhNr*" Or ZelleA.Value <> "" Then
Man sieht was sie tut (IST), jedoch sieht man nicht, ob das auch so gewollt ist (SOLL).
Diese Bedingung hier:
WorksheetFunction.CountIf(Bereich, Zelle.Value) = 1
Damit erfasst du ob ein Eintrag nur einmal oder mehrfach vorhanden ist.
Warum tust du das aber für jede Zelle in SpalteA? An dem Bereich ändert sich nichts.
So gewollt? Nicht gewollt? Etwas vergessen? Falsche Variable genommen?
Was soll diese Verschleierung?
With Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 1))
einfach:
With Cells(Zelle.Row, 1)
Vielleicht ist das aber auch nicht gewollt - erneut: IST und SOLL.
PS: Code sollte selbsterklärend sein, erst recht wenn man ihn ohne Kontext vor sich hat.
|