DateDiff Kontingent bei Zellenwechsel

Question

Ich versuche Excel haben die Anzahl der Tage zu berechnen, wenn zwei Datumsbereiche gegeben. Das Makro funktioniert eigenständig, aber ich habe Probleme, das Makro auszuführen, wenn die Zellen geändert werden, die die Daten enthalten. Dies ist der Code, den ich derzeit haben:

Public sub Worksheet_Change(ByVal Target As Range) 
    If Target.Address="$C$32" Then Sheet1.pdates 
    End If 
End Sub 

Public sub pdates() 
    Dim pdates as Integer 
    Dim pdates2 as Integer 
     pdates=DateDiff("d",[D32],[F32]) 
     pdates2=DateDiff("d",[H32],[J32]) 
     [L32]=pdates+pdates2 
End Sub 

Wenn ich Lauf drücken, werden Sie gefragt, ob ich Sheet1.pstubs ausgeführt werden soll, erlaubt aber nicht die Möglichkeit, die Worksheet_Change Code ausgeführt wird. Ich denke, ich könnte das (ByVal Target as Range) falsch verwenden. Irgendein Rat?

Vielen Dank!

Answer 1

Ich bin mir nicht sicher, warum, aber das änderte folgenden befähigten sie arbeiten:

Original:

If Target.Address="$C$32" then Sheet1.pdates 
End if 

Wechsel:

If Target.Address="$C$32" then 
Sheet1.pdates 
End if