Fout 13 typen komen niet met elkaar overeen.

[ferry86d]

Hallo allemaal,

Zojuist met ik erg lerende met VBA programmeren. Ik loop echter tegen een probleem aan welke ik niet opgelost krijgt. Wellicht doe ik het wel helemaal fout. Het eerste deel van de code werkt echter krijg ik een error bij de tweede if ins****ie. Ik heb even vetgedrukt waar ik de foutmelding krijg. Wellicht doe ik aan eht begin bij he tbepalen van het selectiegebied iets fout. Echter kom ik er niet uit.

Sheets("Sheet1").Select
Worksheets("Sheet1").Select
sZoek = "Bezoeker"

'verwijderen van bezoeker
For Each rng In ActiveSheet.UsedRange.Rows
If InStr(1, "<!" & rng.Range("R1") & "!>", sZoek, vbTextCompare) > 0 Then
rng.Delete
End If
Next

Sheets("Sheet1").Select
Worksheets("Sheet1").Select
sZoek = "2"

'Kopieren van rijen
For Each rng In ActiveSheet.UsedRange.Rows
If InStr(1, "<!" & rng.Range("J1") & "!>", sZoek, vbTextCompare) > 0 Then
With Worksheets("Zaterdag")
rng.Copy .Range("A65536").End(xlUp).Offset(1)
End With
End If
Next
End Sub

 

[wampier]

sheets en worksheets is hetzelfde. Overigens zou ik nooit select gebruiken, het is vaak vervelend voor de gebruiker en moeilijk te debuggen.

Ik krijg je probleem overigens ook niet gereproduceerd. Heb je een voorbeeldfile waarbij het mis gaat. Ik begrijp overigens ook niet goed waarom je <!!> om de tekst wil zetten. Ik zie geen enkel voordeel

 

[sylvester-ponte]

hallo Ferry

bij mij werkt het gewoon

heb je Zaterdag goed gespeld? is er een sheet met exact die naam?

groet sylvester