Hallo,
Ben er enkele uurtjes tussenuit geweest. Ondertussen snap ik opnieuw niet meer waar dit allemaal heen gaat. Alles wat er nog aan toegevoegd is zal wel kloppen (heb niet alles in detail bekeken), maar volgens mij te ver gezocht.
@ SoftAid,
Eerder gaf je toch aan dat mijn methode volstond om de juiste cel te vinden. Voor een daaropvolgende resize en merge heb je maar één extra instructie nodig:
Sub Geef_Rij_en_Kolom()
For x = 1 To 5
aantal = WorksheetFunction.CountIf(Range(Cells(1, 5), Cells(1, 10)), x)
If aantal = 1 Then
rij = Range(Cells(1, 5), Cells(1, 10)).Find(x, , , xlWhole).Row
kol = Range(Cells(1, 5), Cells(1, 10)).Find(x, , , xlWhole).Column
Cells(rij, kol).Resize(onder, rechts).Merge
End If
Next x
End Sub
Vermoedelijk krijg je bij merge wel nog een waarschuwing; die kan je nog vermijden, maar daar kan ik me verder niet over uitspreken want hangt af van je doelstellingen.
Mvg,
Molly