Ich möchte eine Spalte nach einem Begriff durchsuchen.
Wenn der Begriff forhanden ist, wird der Wert dahinter mit -1 multipliziert, und wenn nicht soll einfach nichts passieren
Den Begriff liefert mir ein Array (Pause).
If Worksheets("Anwesenheitsliste").Range("R:R").Find(what:=Pause(n)) Is Nothing Then
Else
Set Bereich = Worksheets("Anwesenheitsliste").Range("R:R").Find(what:=Pause(n))
Bereich.Offset(0, 2).Value = Bereich.Offset(0, 2).Value * -1
End If
Leider funktioniert mein Code nicht. Gibt es dieses "if find is nothing" überhaupt
|