Array durchlaufen und Zeilen löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim lngZeile As Long, i As Integer, b As Boolean Dim arrKuerzel As Variant arrKuerzel = Split("ABC;AZZ;XYZ1;AZ36", ";") Application.ScreenUpdating = False With Worksheets("Daten") For lngZeile = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1 b = False For i = LBound(arrKuerzel) To UBound(arrKuerzel) If .Cells(lngZeile, 1) Like arrKuerzel(i) & "*" Then b = True Exit For End If Next i If Not b Then .Rows(lngZeile).Delete Next lngZeile End With End Sub

Private Sub MachMal(strKuerzel As String) Dim lngZeile As Long, i As Integer Dim arrKuerzel As Variant arrKuerzel = Split(strKuerzel, ";") Application.ScreenUpdating = False With Worksheets("Daten") For lngZeile = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1 For i = LBound(arrKuerzel) To UBound(arrKuerzel) If .Cells(lngZeile, 1) Like arrKuerzel(i) & "*" Then Exit For Next i If i > UBound(arrKuerzel) Then .Rows(lngZeile).Delete Next lngZeile End With End Sub

Sub filter() arr = Array("ABC", "AZZ", "XYZ1", "AZ36") For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1 For begr = 0 To UBound(arr) If Left(Cells(i, 1), Len(arr(begr))) = arr(begr) Then 'Cells(i, 1).Interior.ColorIndex = 4 Rows(i).Delete Exit For End If Next begr Next i End Sub

Sub löschen() Dim var As String Dim FO As String var = "ABC;AZZ;XYZ1;AZ36" var = "{""" & Replace(var, ";", """,""") & """}" FO = "=IF(OR(Left(RC1,Len(_var_))=_var_),Row(),0)" FO = Replace(FO, "_var_", var) With Sheets("Daten").Cells(1, 1).CurrentRegion With .Columns(.Columns.Count + 1) .FormulaR1C1 = FO .Cells(1, 1).FormulaR1C1 = 0 .EntireRow.RemoveDuplicates .Column, xlNo .ClearContents End With End With End Sub

Hallo Daniel,
Danke für die zusätzlichen Tipps. Die Geschwindigkeit kann evtl. noch eine Rolle spielen. Allerdings taucht momentan folgendes Problem auf: Es kommt die Meldung: Falsche Anzahl an Argumenten oder unzulässige Zuweisung einer Eigenschaft. Ich möchte die Suchbegriffe in einer Variablen übergeben, z.B. strText="ABC;ABD;ABX"
Irgendwie scheint es, dass ich irgendwas übersehen habe. Wie müsste z.B. das Programm von Chris angepasst werden, damit SPLIT sich auf eine Variable (z.B. strrText) bezieht? Es sollen dann alle Zeilen gelöscht werden, die in Spalte 1 weder mit ABC, ABD oder ABX beginnen. Wie kann ich eine Variable übergeben? Split (strtext, ...) hat nicht funktioniert.
Danke im Voraus nochmal für Eure Hilfe.
Grüße, Constantin


Sub t()
Dim lngZeile As Long, i As Integer, b As Boolean
Dim arrKuerzel As Variant
arrKuerzel = Split("ABC;AZZ;XYZ1;AZ36", ";")
Application.ScreenUpdating = False
With Worksheets("Daten")
For lngZeile = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
b = False
For i = LBound(arrKuerzel) To UBound(arrKuerzel)
If .Cells(lngZeile, 1) Like arrKuerzel(i) & "*" Then
b = True
Exit For
End If
Next i
If Not b Then .Rows(lngZeile).Delete
Next lngZeile
End With
End Sub

Sub aaaa() Call ZeilenLoeschen("ABC;ABD;ABX") End Sub Sub ZeilenLoeschen(strTEXT As String) Dim lngZeile As Long, i As Integer Dim rngDEL As Range Dim arrKuerzel As Variant arrKuerzel = Split(strTEXT, ";") Application.ScreenUpdating = False With Worksheets("Daten") For lngZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row For i = LBound(arrKuerzel) To UBound(arrKuerzel) If .Cells(lngZeile, 1) Like arrKuerzel(i) & "*" Then If rngDEL Is Nothing Then Set rngDEL = .Cells(lngZeile, 1) Else Set rngDEL = Union(rngDEL, .Cells(lngZeile, 1)) End If End If Next i Next lngZeile End With If Not rngDEL Is Nothing Then rngDEL.EntireRow.Delete End If End Sub

Hallo Rudi,
vielen Dank für Deinen Vorschlag. Vielleicht liegt es an der Version. Kann es sein, dass Excel 2013 "meckert" und Excel 2010 nicht? Bei Excel 2010 lief z.B. die Version von Chris einwandfrei. Auch folgende Änderung hat das Programm vertragen:
Statt: arrKuerzel = Split("ABC;AZZ;XYZ1;AZ36", ";") habe ich den Inhalt zuerst in eine Variable gesetzt: strText = "ABC;AZZ;XYZ1;AZ36" und dann : arrKuerzel = Split(strText, ";") verwendet. Dann erschien die Fehlermeldung (in Excel 2013). In 2010 geht es offensichtlich. Erscheint diese "Wahrnehmung" plausibel?
Die Variable strText hat bei jedem Öffnen der Datei unterschiedliche Inhalte, deswegen nicht fest vorgegeben. Ich übernehme die Werte aus einer anderen Zelle. Danach ist jede Zeile in Spalte A zu prüfen, ob sie mit einer der angegeben Buchstabenfolgen (von links gesehen) übereinstimmt oder nicht. Wenn nicht, dann ist die Zeile zu löschen (für obiges Beispiel wäre die Zeile zu löschen, wenn nur "AB" in Spalte A stünde). Alle Zeilen, die mit ABC, AZZ, XYZ1 oder AZ36 beginnen, müssten in diesem Beispiel erhalten bleiben.
Ihr habt mir schon sehr viel geholfen. Ich werde es einfach nochmal genau anschauen.
Grüße, Constantin

Beliebteste Forumthreads (12 Monate)

Array durchlaufen und Zeilen löschen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Array durchlaufen und Zeilen löschen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread