Zeile löschen wenn Bezug zu bestimmtem Reiter
06.12.2017 14:53:40
arek
ich habe folgendes Makro programmiert, mit dem die komplette Zeile gelöscht wird, falls in Spalte A irgendwo "closed" bzw. "stopped" erscheint. Jetzt würde ich dieses Makro gerne ändern und zwar soll die komplette Zeile gelöscht werden, falls in Spalte A irgendwo eine Formel steht, die auf den Reiter "Closed_Stopped" verweist, also z.B. "=Closed_Stopped!L10". Also immer wenn dieser Reiter in der Formel auftaucht, soll die Zeile entsprechend gelöscht werden. Ist das möglich?
Vielen Dank im Voraus!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngRow As Long
If Not Intersect(Target, Columns(1)) Is Nothing Then
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
For lngRow = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
With Cells(lngRow, 1)
If .Value = "closed" Or .Value = "stopped" Then Rows(lngRow).Delete
End With
Next lngRow
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Application.CalculateFullRebuild
End If
End Sub
Anzeige