Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1500to1504
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ganze Zeile leeren wenn Spalte G-K leer ist

ganze Zeile leeren wenn Spalte G-K leer ist
01.07.2016 14:54:48
Erik
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ganze Zeile leeren wenn Spalte G-K leer ist
02.07.2016 13:21:01
Michael
Hi Erik,
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tr
If Not Intersect(Target, Range("G7:K200")) Is Nothing Then
For Each tr In Target.Rows
If WorksheetFunction.CountA(Range("G" & tr.Row).Resize(, 5)) = 0 Then
Range("D" & tr.Row).Resize(, 2).ClearContents
Range("M" & tr.Row).ClearContents
End If
Next
End If
End Sub
Gruß,
Michael
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige