AW: Bei Änderung in Zeile Markierung
16.03.2018 09:52:36
EtoPHG
Hallo MCO,
Zitat: Wenn es nur darum geht, brauchst du kein intersect:
Das ist eine ziemlich seltsame Aussage/Empfehlung von einem sog. Exel-Profi.
Der Anfrager schreibt eindeutig von einem ListObject und das erstreckt sich kaum über die gesamte Spalte 4, bzw. muss auch nicht zwingend in Spalte 1 beginnen.
Hallo Felix,
So:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ISRange As Range, CellInRange As Range
Set ISRange = Intersect(Target, ListObjects(1).DataBodyRange.Offset(, 1))
If Not ISRange Is Nothing Then
Application.EnableEvents = False
For Each CellInRange In ISRange
Cells(CellInRange.Row, ListObjects(1).DataBodyRange.Columns(1).Column) = "x"
Next CellInRange
Application.EnableEvents = True
End If
End Sub
...unter der Voraussetzung, dass das betroffene Listobject den Index = 1 hat, sonst ggf. Index anpassen!
Gruess Hansueli