Hallo zusammen,

ich möchte einen Wert X vergleichen, der in der Tabelle1 In Spalte A von A21 bis letzte gefüllte Zelle in Spalte A
auftauchen kann. Wird X gefunden dann soll X in einer Zelle gesetetzt werden:

 

Sub Worksheet_Activate()

If Format(WorkSheets("Übersicht").Range("C9") + 1, "DDDD") = "Samstag" and   ??????  Then

   Worksheets("Übersicht").Range("E9").Value = Worksheets("Übersicht").Range("C9").Value + 1


End If

End Sub

Die ?????? ist das gesuchte.

Der Bereich wäre:

Worksheets("Tabelle1").range("A21:A) letzte gefüllte Zelle.value = Worksheets("Übersicht").Range("C9").value+1

Hat jemand eine Idee dafür?

Danke schonmal.

Alex