Vanuit een main werkblad kolom A en B kopieren naar een nieuw werkblad

[popipipo]

Function WksExists(wksName As String) As Boolean
   On Error Resume Next
   WksExists = CBool(Len(Worksheets(wksName).Name) > 0)
End Function

Deze functie nog toevoegen en het gaat vlgns mij wel goed.

[kapima]

Popipipo en Beerke,

Ik wil jullie hartelijk dank voor jullie tijd en inzet.

HET WERKT FANTASTISCH!!!

Groetjes Karin

[Asus]

Topic eventjes opnieuw heropend op vraag van Beerke10...

[Beerke10]

Hallo kapima,

ik reageer nog even om uit te leggen wat er fout ging. Nuttig ook voor jou, om de code te begrijpen, en voor andere mensen die dit topic in de toekomst lezen.

In het origineel Excel-bestand dat je stuurde stond een hoop code, die ik slechts gedeeltelijk kon aanpassen om aan jou vraag te voldoen.

De code was geschreven voor een andere toepassing.

We zijn dan met een propere lei gestart en hebben een nieuwe module gestart en daar de veel eenvoudiger code geschreven, code die wel enige beperkingen had (geen hoofding), maar voor jou voldeed dit.

Na veelvuldig testen heb ik dan het werkboek opgeruimd en hierboven aangehangen als Onderwerpenlijst_Theo.xlsm.

Mijn fout was het opruimen van het werkboek. Ik heb module1 (die met jou code) ook verwijderd bij het opruimen, maar

de "Function WksExists()" stond nog in deze module1, en die was noodzakelijk voor de werking van de Sub() in de Module2.

Na het verplaatsen van die function naar module2 moet alles in orde zijn.

Met dank aan popipipo

Groeten,

Beerke10