Zelle löschen, wenn andere Zelle leer ist VBA excell

Question

Ich werde damit beginnen zu sagen, ich bin nicht sehr gut mit Codierung.

Das Problem, das ich habe, wenn ich meinen Text in Zelle "L" lösche, bleibt das Datum in Zelle "J". Wie mache ich es automatisch löschen, wenn "L" leer ist? Wenn eine Zelle in "L" leer ist, möchte ich grundsätzlich, dass die entsprechende Zelle in "J" leer ist.

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim L As Range, Inte As Range, r As Range 
    Set L = Range("L:L") 
    Set Inte = Intersect(L, Target) 
    If Inte Is Nothing Then Exit Sub 
    Application.EnableEvents = False 
     For Each r In Inte 
      ActiveSheet.Range("J" & r.Row).Value = Date 
      Next r 
    Application.EnableEvents = True 
End Sub 

Answer 1

Sie können diese Arbeit an den Code in:

Range("L1:L10").SpecialCells(xlCellTypeBlanks).Offset(0, -2).ClearContents 

anpassen Gerade der Bereich nach Bedarf.