ich hoffe mir kann hier jemand helfen, ich sehe wahrscheinlich den Wald vor lauter Bäumen nicht mehr.
Folgendes Scenario:
Ich suche einen Wert aus einer Zelle in der Arbeitsmappe 1 in einem Range in der Arbeitsmappe zwei. Wenn es diesen Wert in dem Range nicht gibt, dann soll er aus der Arbeitsmappe 1 die Zeile wo sich der Wert befindet löschen. Dies mache ich in 4 verschiedenen Arbeitsmappen aber immer im gleichen Range. Vorher schaue ich noch wie viele Zeilen eigentlich belegt sind in den jeweiligen Arbeitsmappen, weil sich das immer ändern kann.
Folgender Code dazu:
'Löschen von Einträgen die nicht mehr vorhanden sind bzw. den Bezirk gewechselt haben
aZeilen1 = Worksheets(district1).Range("A65535").End(xlUp).Row 'Anzahl der belegten Zeilen _
ermitteln
aZeilen2 = Worksheets(district2).Range("A65535").End(xlUp).Row
aZeilen3 = Worksheets(district3).Range("A65535").End(xlUp).Row
aZeilen4 = Worksheets(district4).Range("A65535").End(xlUp).Row
For i = 2 To aZeilen1
If Worksheets("Daten_Quarz").Range("Q:Q").Find(Worksheets(district1).Cells(i, 17)) Is _
Nothing Then
Worksheets(district1).Rows(i).Delete
End If
Next i
For i = 2 To aZeilen2
If Worksheets("Daten_Quarz").Range("Q:Q").Find(Worksheets(district2).Cells(i, 17)) Is _
Nothing Then
Worksheets(district2).Rows(i).Delete
End If
Next i
For i = 2 To aZeilen3
If Worksheets("Daten_Quarz").Range("Q:Q").Find(Worksheets(district3).Cells(i, 17)) Is _
Nothing Then
Worksheets(district3).Rows(i).Delete
End If
Next i
For i = 2 To aZeilen4
If Worksheets("Daten_Quarz").Range("Q:Q").Find(Worksheets(district4).Cells(i, 17)) Is _
Nothing Then
Worksheets(district4).Rows(i).Delete
End If
Next i
Problem:
Er löscht mir nicht alle Zeilen raus, in denen sich Inhalt befinden wo der Wert aus Cells(i, 17) nicht gefunden wird in dem Range("Q:Q") beim ersten mal. Ich muss das mehrfach ausführen, bis alles weg ist, was nicht mehr rein gehört. Je nachdem wie viel drin ist, kann es manchmal sein, dass ich das 2mal oder auch 4mal ausführen muss.
Weiß jemand Rat, woran es liegen könnte? Eventuell Speicherauslastung oder ähnliches?
Danke für die HILFE