Hallo Bart,
kun je uw suggestie iets duidelijker formuleren.
Application.Goto Reference:="R1C1"
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Find(What:="klas", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False).Activate
'selecteer het gebied van 3rijen en 5kolommen
ActiveCell.Offset(3, 0).Range("A1:E3").Select
'kijk na of geselecteerde gebied leeg is
en dan weet ik het niet meer