Filterkriterium aus anderer Datei holen
20.10.2020 09:59:38
Tamás
https://www.herber.de/forum/archiv/1784to1788/1786915_Range_anhand_Inhalt_in_Spalte_A_loeschen.html
Ich benutze die Lösung:
Sub TT()
Dim LR As Long, i As Long, RNG As Range
On Error GoTo Fehler
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Set RNG = Columns("A:H")
LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
For i = LR To 1 Step -1
If Cells(i, 1) Like "XYZ_P1*" Then
Intersect(Rows(i), RNG).Delete xlUp
End If
Next
Fehler:
'*** Rücksetzen
With Application
.EnableEvents = True
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub
For i = LR To 1 Step -1
If Cells(i, 1) Like "=C:\Users\" & Environ("Username") & "\Documents\TEST.csv!R2C2*" Then
Intersect(Rows(i), RNG).Delete xlUp
Das funktioniert so aber leider nicht. Wenn ich das Makro starte passiert einfach gar nichts. Es kommt auch keine Fehlermeldung.
Was mache ich falsch?
Gruß
Tamás