Range bepalen met invoer

[bar88]

Wie kan mij even helpen.

Ik wil verschillende keuzes in één maken.

   If Range("C5") = "vergunning nummer" Then b00 = ("A:A")
    If Range("C5") = "bedrijfsnaam" Then b00 = ("C:C")
    If Range("C5") = "naam vergunning" Then b00 = ("B:B")
    If Range("C5") = "KVK" Then b00 = ("C:C")


   Worksheets("B-Centrum").Range b00.Copy
    Worksheets("Zoekenop").Range("A1").PasteSpecial

Normaal gesproken zet je
Worksheets("B-Centrum").Range ("A:A").Copy

Maar ik wil dat ("A:A") een invoer wordt.
Op het manier hier boven werkt het niet.
Wie kan mij helpen om dit werkend te maken.

Alvast bedankt

 

[edmoor]

Zoiets?

Select Case Range("C5")
    Case "vergunning nummer":   b00 = "A:A"
    Case "naam vergunning":     b00 = "B:B"
    Case "bedrijfsnaam", "KVK": b00 = "C:C"
End Select

Worksheets("B-Centrum").Range(b00).Copy
Worksheets("Zoekenop").Range("A1").PasteSpecial

 

[bar88]

Ja dit werkt,

Helemaal toppie en bedankt.

 

[cow18]

bovenin de module "option compare text" ofwel select lcase(range("C5").value) is misschien een voorzichtige uitbreiding om het zaakje hoofdletterongevoelig te maken.

 

[edmoor]

Of:

Select Case LCase(Range("C5"))
    Case "vergunning nummer":   b00 = "A:A"
    Case "naam vergunning":     b00 = "B:B"
    Case "bedrijfsnaam", "kvk": b00 = "C:C"
End Select

 

[HSV]

Of:

[COLOR=#3E3E3E]sheets("B-Centrum").c[/COLOR]olumns(application.match(lcase(range("c5")), array([COLOR=#3E3E3E]"vergunning nummer"[/COLOR], "[COLOR=#3E3E3E]naam vergunning[/COLOR]", "[COLOR=#3E3E3E]bedrijfsnaam[/COLOR]"), 0)).copy sheets[COLOR=#3E3E3E]("Zoekenop")[/COLOR].Cells(1)

Als het een validatie is kan de LCase vervallen door de array net zo uit te schrijven.