Excel-Formel zum automatischen Ausfüllen eines Datums

309
Lindsay

Ich möchte, dass die Zellen F4-F23 das heutige Datum automatisch füllen, wenn Daten in die Zellen E4-E23 eingegeben werden. Ich muss dann die Zellen I4-I23 automatisch mit dem heutigen Datum füllen, wenn Daten in die Zellen H4-H23 eingegeben werden. Daten, die in die Zellen H4-H23 eingegeben werden, werden an anderen Tagen eingegeben als die Daten in den Zellen E4-E23. Ich habe diesen Code gefunden, der für den ersten Teil meiner Frage funktioniert. Ich muss wissen, wie ich ihn modifizieren kann, um die Zellen H und I zu bearbeiten.

Private Sub Worksheet_Change(ByVal Target As Range) Dim E As Range, F As Range, Inte As Range, r As Range Set E = Range("E:E") Set Inte = Intersect(E, Target) If Inte Is Nothing Then Exit Sub Application.EnableEvents = False For Each r In Inte r.Offset(0, 1).Value = Date Next r Application.EnableEvents = True End Sub
0

1 Antwort auf die Frage

1
teylyn

Versuche dies:

Private Sub Worksheet_Change(ByVal Target As Range) Dim E As Range, H As Range, Inte As Range, r As Range Set E = Range("E:E") Set H = Range("H:H") Set Inte = Intersect(E, Target) If Not Inte Is Nothing Then Application.EnableEvents = False For Each r In Inte r.Offset(0, 1).Value = Date Next r Application.EnableEvents = True End If Set Inte = Intersect(H, Target) If Not Inte Is Nothing Then Application.EnableEvents = False For Each r In Inte r.Offset(0, 1).Value = Date Next r Application.EnableEvents = True End If End Sub

Anstatt das Sub zu verlassen, wenn die Kreuzung nichts ist, überprüfen Sie das Gegenteil von nichts und führen Sie den Code an jeder Kreuzung separat aus.

Beachten Sie, ich habe H als Bereich deklariert und die nicht verwendete Deklaration von F als Bereich entfernt.

Verwandte Probleme