TODO List zwei Subs laufen lassen

[homtail]

Hi miteinander, 

vorab, bin ein totaler VBA Anfänger. 

Erstelle in Excel eine TODO List mit einer Erinnerungsfunktion und, dass die erledigten Aufgaben in den Erledigt-Sheet verschoben werden. Dazu habe ich folgedende Subs:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 6 Then
 If Target = "Done" Then
   Application.EnableEvents = False
     nxtRow = Sheets("Erledigt").Range("A" & Rows.Count).End(xlUp).Row + 1
     letztezeile = Sheets("Erledigt").Cells(Rows.Count, 1).End(xlUp).Row
      Target.EntireRow.Copy _
       Destination:=Sheets("Erledigt").Range("A" & letztezeile + 1)
      Target.EntireRow.Delete
 End If
End If
Application.EnableEvents = True
nxtRow = nxtRow + 1
End Sub

Private Sub Workbook_Open()
For Each cell In Range("D14:D100")
If cell.Value < Date + 3 And cell.Value <> "" Then
cell.Font.ColorIndex = 2
End If
Next
End Sub

Der erste Sub soll ausgeführt werden, wenn in bestimmten Feldern "Done" ausgewählt wird aus der drop down. Das funktioniert.
Der zweite Sub, die Erinnerungsfunktion, soll beim Öffnen der Datei angewendet werden, doch das klappt nicht. Est wenn ich manuell laufen lasse, wird der Sub ausgeführt. 

Hat jemand eine Idee woran das liegt?
Besten Dank und LG
homtail

[atilla]

Hall,

wo stehen die Codes?

Das

Code:

Private Sub Workbook_Open()

muss im Modul DieseArbeitsmappe stehen.

[homtail]

Hallo Atilla, danke, das hat geholfen. 
beste grüsse