Suchen und Löschung von Datensätze
28.11.2017 08:25:21
Datensätze
um eine Liste zu filtern und nicht gewünschte Datensätze zu löschen habe ich folgende Code angepasst.
erster schritt: Filterung und Kopie der gefilterten Liste in Spalte B (Funktioniert)
zweiter schritt: Löschen von bestimmte (Strings) bzw. Suchwörter. dies klappt nur wenn der Tabellenblatt aktiv bzw. Sichbar ist (visible).
warum klappt es nicht wenn das Tabellenblatt im Hintergrund ist bzw. ausgeblendet (Hidden) ist.
dazu meine Code:
Public Sub Werke()
Dim var1 As Variant
Worksheets("Maßnahmen").Range("I:I").Copy Worksheets("Werke").Range("A:A")
Worksheets("Werke").Range("A:A").AdvancedFilter Action:=xlFilterCopy, _
copyToRange:=Worksheets("Werke").Range("B1"), unique:=True
Do While Not IsError(var1)
var1 = Worksheets("Werke").Application.Match("*All*", Columns(2), 0)
If Not IsError(var1) Then
Worksheets("Werke").Cells(var1, 2).Delete xlShiftUp
End If
Loop
end sub
vielen Dank für eure Hilfe
Grüße
legac
Anzeige