Folgendes Macro macht fast was es soll ;-)
If Not Intersect(Target, Range("D7:K200")) Is Nothing Then
If WorksheetFunction.CountBlank(Range(Cells(Target.Row, 4), Cells(Target.Row, 11))) = 8 Then
Range(Cells(Target.Row, 13), Cells(Target.Row, 14)).ClearContents
Rows(Target.Row).Interior.Pattern = xlNone
End If
End If
Allerdings nur fast wenn ich eine Zeile (von D bis K) markiere löscht es die
Zellen 13 und 14 mit.
Wenn ich aber 2 oder mehr Zeilen markiere löscht es nur die Zellen 13 und 14 der ersten Zeile.
Wie muß ich es ändern ?
Vielen Dank
und Gruß
Erik