Verwijzen naar een kolomtitel

[carkoe]

Hallo,

Ik heb een macro waarin iets uitgefilterd wordt in een bepaalde kolom. Deze kolom staat echter niet altijd op dezelfde plaats. Wel heeft ze altijd dezelfde kolomtitel. Is het mogelijk om naar deze kolomtitel te verwijzen ipv naar de kolomnummer.

Stukje macro:
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=13, Criteria1:="<>"
Columns("A:A").Select
Selection.Copy

Ipv 13 zou er hier dus verwezen moeten worden naar een kolomtitel.

Alvast bedankt
Koen

 

[snb]

Vermijd select en activate in VBA, want overbodig en vertragend.

With Thisworkbook.sheets(1).cells(1,1).currentregion
  .autofilter .rows(1).find("[COLOR="Blue"]kolomtitel[/COLOR]").column,"<>"
  .specialcells(xlcelltypevisible).copy Thisworkbook.sheets(1).range("AA1")
  .autofilter
End With

Vervang kolomtitel door de kolomtitel.

 

[carkoe]

Hallo snb,

Alvast bedankt voor uw snelle reactie.
Nog 1 vraagje. Moet ik deze kolomtitel dan op voorhand definiëren. Want ik krijg een foutmelding dat hij deze kolom niet vindt?

In bijlage stuur ik een voorbeeldje waar ik alle lege velden in de kolom 'Carrier Out' wil wegfilteren en dan een copy doen van de nummers die in kolom 1 staan.

 

[snb]

Dit loopt prima:

Sub tst()
  With ThisWorkbook.Sheets(1).Cells(1, 1).CurrentRegion
    .AutoFilter .Rows(1).Find("Carrier Out").Column, "<>"
    .SpecialCells(xlCellTypeVisible).Copy ThisWorkbook.Sheets(1).Range("AA1")
    .AutoFilter
  End With
End Sub

 

[carkoe]

Ik krijg altijd volgende foutmelding:

Objectvariabele of blokvariabele With is niet ingesteld (Fout 91)

Ben wel een absolute leek in VBA.

Bedankt

 

[snb]

Dan is het advies: begin bij het begin.

 

[carkoe]

Dat dacht ik al.

Ik heb dit helaas dringend nodig voor mijn werk.

Toch bedankt!