ich habe im Tabellenblatt folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRow As Long
With Worksheets("Kontodaten")
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row 'ermittele die Anzahl der Zeilen, gehe von _
dort nach oben
If Not Intersect(Target, Range("A2:A" & lRow)) Is Nothing Then
Call LetzteZeileNummer12L
End If
End With
End Sub
Mit Call LetzteZeileNummer12L wird in Spalte 12 eine Zahl eingefügt.Wie muss der Code bitte geändert werden, dass sobald die letzte beschriebene Zelle in A gelöscht wird, die letzte beschriebene Zelle in Spalte L gelöscht wird.
Besten Dank
Gruss
Peter