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:
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
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