Filter-Methode um Wert zu entfernen

Sub test2() Dim myArr As Variant Dim x As Integer, s As Variant myArr = Array("a", "b", "c", "d", "e") Randomize 'Zufälligen Eintragwählen (Index) x = Int((UBound(myArr) + 1) * Rnd) 'Zufälliger Eintrag s = myArr(x) 'Eintrag Löschen myArr = Filter(myArr, s, False) MsgBox Join(myArr, vbCrLf) End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
ob das nur mit eindimensonalen Arrays funktionert, weiß ich auch nicht, aber in der Hilfeseite, die direkt aufpoppt, wenn man im Editor den Cursor auf "Filter" setzt und F1 drückt, steht folgendes:
"sourceArray Erforderlich. Eindimensionales Array mit den zu durchsuchenden Zeichenfolgen."
ich überlasse das mal deiner Interpretation.
Arrays, die du direkt aus dem Tabellenblatt übernimmst, sind immer zweidimensional, auch wenn der Zellbereich einzeilig oder einspaltig ist.
dh wenn du Einzelwerte aus dem Array extrahieren willst, musst du immer Zeilen- und Spaltenindex angeben.
um ein zweidimensionales Array in ein eindimensionales Array zu wandeln, kann man Worksheetfunction.Transpose verwenden.
arr2 ist das vorhandene 2-dimensionale Array, arr1 das daraus zu erstellende eindimensionale
Array hat eine Spalte:


arr1 = Worksheetfunction.Transpose(arr2)

Array hat eine Zeile:


arr1 = Worksheetfunction.Transpose(Worksheetfunction.Transpose(arr2))

oder man dimensioniert sich ein zweites eindimensionales Array mit gleicher Elementanzahl und schaufelt dann die Werte per Schleife von einem ins andere Array.


redim arr1(lbound(arr2, 1) to ubound(arr2, 1))
for x = lbound(arr1) to ubound(arr1)
arr1(x) = arr2(x, 1)
Next

beim Transponieren kann man natürlich auch die gleiche Variable verwenden, wenn man die 2-d-Variante nicht mehr benötigt.
Je nach Array-Größe und Excelversion kann es sein, dass die Schleifenlösung schneller und leistungsfähiger ist (bezogen auf die Elementanzahl) als das Transponieren. (wird aber erst bei 5-6-Stelleigen Elementanzahlen relevant)
Gruß Daniel

Sub test () Dim TR_arr_old() As Variant TR_arr_old = Prepare_TR(ThisWorkbook.Worksheets("temp")) TR_arr_old = WorksheetFunction.Transpose(TR_arr_old) Dim TR_list() As Variant TR_list = Compare_TR_arrays(TR_arr_new, TR_arr_old) End Sub

Function Prepare_TR(TR As Worksheet) As Variant TotalRows = TR.Cells(TR.Rows.Count, "A").End(xlUp).Row For Z = TotalRows To 1 Step -1 With TR If .Cells(Z, 3) = "nein" Then .Rows(Z).Delete End With Next TotalRows = TR.Cells(TR.Rows.Count, "A").End(xlUp).Row Prepare_TR = TR.Range("A2:A" & TotalRows).Value End Function

Function Compare_TR_arrays(Listnew As Variant, Listold As Variant) As Variant Dim commonList() As Variant 'Werte, die in beiden Listen drin sind Dim commonLength 'Länge von commonList Dim NewLength 'Länge von New_Only_List Dim New_Only_List() As Variant 'Werte, die in New drin sind, aber nicht in Old Dim isInList As Boolean For Indexnew = LBound(Listnew) To UBound(Listnew) 'Gehe durch alle TRs der neuen Liste For Indexold = LBound(Listold) To UBound(Listold) 'String Compare überprüft textuell (1) und gibt 0 aus, wenn identisch If StrComp(Listold(Indexold), Listnew(Indexnew), 1) = 0 Then isInList = True 'Verlasse innere for-schleife Exit For Else isInList = False End If Next If isInList = True Then Listold = Filter(Listold, Listold(Indexold), False) next End Function

Beliebteste Forumthreads (12 Monate)

Filter-Methode um Wert zu entfernen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread