Hallo zusammen,
ich habe folgendes Problem,
wenn die Zellen G-K in einer Zeile (oder mehreren Zeilen) markiert und gelöscht werden, sollen auch die Zellen D, E und M gelöscht werden.
Die Zellen A,B,C unf F sind mit Formeln befüllt und schreibgeschützt diese dürfen nicht gelöscht werden.
Folgender VBA funktioniert aber nicht.
Ist das machbar ?
If Not Intersect(Target, Range("D7:K200")) Is Nothing Then
If WorksheetFunction.CountBlank(Range(Cells(Target.Row, 4), Cells(Target.Row, 11))) = 8 Then
Intersect(Target.EntireRow, Range("M:M")).ClearContents
Target.EntireRow.Interior.Pattern = xlNone
End If
End If
Vielen Dank
Erik