Zeilen löschen und übertragen
20.03.2019 11:35:45
Stefan
ich möchte in der Tabelle "erledigt", bestimmte Zeilen löschen.
Leider funktioniert das Makro nur, wenn die Tabelle aktiv ist.
Ich möchte aber auch dann, wenn ich in anderen Tabellen bin, das Makro nur für die Tabelle "erledigt" ausführen dürfen.
Sub Zeilenloeschen_erledigt()
Dim i As Long, tLR As Long
Dim tarWks As Worksheet, srcWks As Worksheet
Set tarWks = Worksheets("erledigt")
With tarWks
For zelle = 60000 To 2 Step -1
If Cells(zelle, 14).Value = "erledigt am" Then
Rows(zelle).Delete
End If
Next
End With
End Sub
Anzeige