Tabblad 1 zuiveren met uitsluitingen op tabblad 2

[gvanwijk]

@ HSV: "Heb nog wat in elkaar gestoken op twee manieren." -> geweldig!
Vraagje: ik ben niet bekend met .xlsb bestanden, maar mijn bestaande versie is .xlsm, wat moet ik doen
1. de bestaande xlsm opslaan als xlsb : werken dan mijn eerdere macro's nog?
2. de bestaande xlsm behouden : werkt dan jouw manier nog? Of alleen kwestie dat xlsb (misschien?) sneller is dan xlsm?

@sylvester-ponte: reuze bedankt! Jouw 2e versie werkt ook. Met of zonder punt (is inderdaad afkortingsteken): ik voer 'm wel 2x in bij uitsluitingen, geen probleem.
Ik ga ze beide gebruiken en merk dan in het werk wel of er (relevante) verschillen uitkomen.

Beide bedankt nogmaals! :thumb:

 

[snb]

@Octa zal een betere SQL-string hebben:

Sub M_snb()
  With CreateObject("ADODB.recordset")
    Open "SELECT DISTINCT `Voorraad$`.Plantnaam FROM `Voorraad$`, `Uitsluiten$` WHERE `Voorraad$`.Plantnaam > `Uitsluiten$`.Uitsluitingen ", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0"""
    Blad3.Cells(1, 15).CopyFromRecordset .DataSource
  End With
End Sub