Range van selecteren

[Stainn]

Ik wil 50 cellen in een bepaalde kolom selecteren. Aangezien de kolommen niet altijd op dezelfde plaats staan zoek ik eerst naar de juiste kolom om vervolgens de 50 cellen te selecteren.


Dit heb ik tot nu toe gedaan:
Ik selecteer de kolom in de bovenste rij:
Rows("1:1").Select

Vervolgens de naam van de kolom:
Selection.Find(What:="Actuele Functie", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

Vervolgens selecteer ik de cel onder de gevonden kolom:
ActiveCell.Offset(1, 0).Select


Het lijkt heel eenvoudig maar het lukt mij vervolgens niet om in deze kolom de eerste 50 cellen te selecteren. Wie kan mij helpen?

Gr

 

[jkpieterse]

Selecteren is in macro's zelden nodig:

With Rows("1:1").Find(What:="Actuele Functie", LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Offset(1, 0).Resize(50,1)
'Nu iets met die cellen doen, bijv vet maken:
.Font.Bold = True
End With

 

[VenA]

of een kleurtje geven

Sub VenA()
  Cells(1, Application.Match("Actuele Functie", Rows(1), 0)).Resize(50).Interior.Color = vbYellow
End Sub

 

[Stainn]

Helemaal goed. Hartstikke bedankt.


Gr Stainn