Gefilterte Daten in Array schreiben

[snb]

Und:

Code:

Sub M_snb_001()
  sn = Cells(1).CurrentRegion
 
 With CreateObject("scripting.dictionary")
  For j = 2 To UBound(sn)
   If sn(j, 4) = "X" Then .Item(.Count) = Array(sn(j, 1), sn(j, 2), sn(j, 3))
  Next
  sn = Application.Index(.items, 0, 0)
 End With
End Sub

[knobbi38]

Hallo Andreas,

Wenn Dir mein kommentierter Code nicht verständlich genug ist, dann würde ich es zu schätzen wissen wenn Du Kommentare dieser Art in Zukunft lässt.

Solche Kommentare kannst du dir wirklich schenken! Wenn dir meine Kommentare nicht gefallen, kann ich auch nichts dafür. Unabhängig davon, ob du das schätzt oder nicht, hast du hier nicht zu bestimmen, was geschrieben wird und was nicht.

Im Übrigen hättest du mich auch einfach auf meinen Irrtum hinweisen können, denn leider habe ich die Zeile

Code:

Data = Source.Value

bei deinen vielen Kommentaren wohl überlesen.

Knobbi38

[snb]

@Egon

Ich würde bevorzügen:

Code:

Sub M_snb_002()
c00 = ThisWorkbook.FullName
 With CreateObject("ADODB.Recordset")
   .Open "SELECT [Component], [BOM Component Description], [Comp# Plant-Sp Matl Status] FROM [Rohstoffe_1$] WHERE [Exklusiv] = 'X'", "Provider=Microsoft.ACE.OLEDB.12.0; Extended Properties=""Excel 12.0 Xml"";Data Source=" & c00
   sn = Application.Transpose(.getrows)
 End With
End Sub

Ergbnis ein Array  Option Base 1

Und weil 'transpose' seine Beschränkungen hat als Alternative
   

Code:

Sub M_snb_003()
 c00 = ThisWorkbook.FullName   
 With CreateObject("ADODB.Recordset")
   .Open "SELECT [Component], [BOM Component Description], [Comp# Plant-Sp Matl Status] FROM [Rohstoffe_1$] WHERE [Exklusiv] = 'X'", "Provider=Microsoft.ACE.OLEDB.12.0; Extended Properties=""Excel 12.0 Xml"";Data Source=" & c00
   sn = .getrows
 End With
 With CreateObject("New:{8BD21D20-EC42-11CE-9E0D-00AA006002F3}") '  - Microsoft Forms 2.0 ListBox
  .Column = sn
  sn = .List
 End With
End Sub

Als Ergebnis ein Array Option Base 0

[slowboarder]

was spricht gegen:
arr = evaluate("FILTER(...)")
???

[RPP63]

Die Excel-Version 2016?