If ZelleA.Value <> "Nie gelaufen" Or ZelleA.Value <> "Verlust" _
Or ZelleA.Value <> "Außer Kontrolle" Or ZelleA.Value <> "AbhNr*" Or ZelleA.Value <> "" Then
Dies prüft in Spalte A und soll so sein.
WorksheetFunction.CountIf(Bereich, Zelle.Value) = 1
Dies prüft in der Spalte M nicht A ob Werte doppelt bzw. einfach vorkommen. Ist so gewollt.
With Cells(Zelle.Row, 1)
Danke sehr.
Ich bin eigentlich ein voller Anfänger was programmieren an sich an geht. Ich werde mich bemühen meine Codes übsichtlicher zu strukturieren.
LG Bobby
|