*update*
voorlopig heb ik mijn foutmelding mbt de select case problematiek kunnen wegwerken (hier kom ik later nog op terug),
maar nu krijg ik verderop in mijn code een foutmelding bij een aangeroepte sub uit een andere module.
Dit is de basis-sub :
With bestand.Sheets("idx")
rijen = .Cells(Rows.Count, 1).End(xlUp).Row
For bron = 2 To rijen
If .Cells(bron, reskol + 1) = "" Then
arIdx_tmp = .Range("A" & bron & ":" & kol & bron)
'----- tijdelijke array maken voor conversies
arConv = arIdx_tmp
'----- converteren van de aktenamen naar stamnamen
For x = 9 To fneinde Step 2
fnaam = arConv(1, x)
fnaamvarianten fnaam, varfnaam '----- procedure zie mod_xtrnsubs
arConv(1, x) = varfnaam
Next x
'----- converteren van de aktevoornamen naar de latijnse vorm
For y = 10 To vneinde Step 2
tekst = arConv(1, y)
vnaam = WorksheetFunction.Trim(tekst)
vnaamvarianten vnaam, varvnaam '----- procedure zie mod_xtrnsubs
arConv(1, y) = varvnaam
Next y
'----- arConv wegschrijven naar bestand
With bestand.Sheets("conv")
rij = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(rij, 1).Resize(, reskol) = arConv
.Columns("A:Z").EntireColumn.AutoFit
End With
.Cells(bron, reskol + 1) = "ok"
End If
Next bron
End With
en dit is de aangeroepen sub die in het lijntje "With ..." een foutmelding geeft (object vereist)
Sub fnaamvarianten(fnaam, varfnaam)
'----- aktenamen converteren naar stamnamen
With wb_namen.Sheets("fn-var").Rows("1:150")
On Error Resume Next
d = ""
d = .Find(fnaam, LookIn:=xlValues, LookAt:=xlWhole).Column
fnaam = .Cells(1, d)
End With
varfnaam = fnaam
End Sub
Waar doe ik iets verkeerd?
groetjes,
BlackDevil
*edit*
Heb de foutmelding weg gekregen door bovenaan elke basis-sub de initialisatie-sub aan te roepen.