Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 9 van 9

Onderwerp: kolommen selecteren met een variabel waarde

  1. #1
    Senior Member
    Geregistreerd
    13 december 2010
    Vraag is opgelost

    kolommen selecteren met een variabel waarde

    Hoi, ik heb een probleem met VBA.

    Ik wil kolommen selecteren waarbij de waardes veranderen.

    Dit is de standaard waarde:
    Columns("F:IW").Select
    Selection.EntireColumn.Hidden = True

    Nu wil ik het volgende: De letter F staat in cel R1 en de letter IW staat in cel R2, maar die kunnen veranderen. Ik meen mij te herinneren dat met behulp van het teken & de variabelen kunnen worden opgenomen.
    Iets van: Columns(" & R1: R2 &").Select
    Toch doe ik iets niet goed, want het werkt niet. Wat doe ik verkeerd?

    Als ik een voorbeeldbestand moet maken dan hoor ik dat graag.

    Groet Egbert

  2. #2
    Senior Member
    Geregistreerd
    1 juni 2022
    Code:
    Columns(Range("R1") & ":" & Range("R2")).EntireColumn.Hidden = True

  3. #3
    Senior Member
    Geregistreerd
    13 december 2010
    Bedankt maar weer

  4. #4
    Senior Member
    Geregistreerd
    13 december 2010
    Zou je mij nog een keer willen helpen?

    In vervolg op de vorige vraag wil ik graag het volgende:

    Range("ES2").Select

    De waarde ES staat in cel E1 en de waarde 2 staat in cel A1. Hoe plaats ik dat in de formule?

  5. #5
    Giga Senior Haije's avatar
    Geregistreerd
    24 maart 2009
    Locatie
    Oldenzaal
    zo
    Code:
    sel = [E1] & [A1]
    Range(sel).Select
    Haije
    ___________________________________________________

    Ik gebruik Office 2016 Professional Plus

  6. #6
    Senior Member
    Geregistreerd
    13 december 2010
    Geweldig, bedankt

  7. #7
    Senior Member
    Geregistreerd
    13 december 2010
    Hoi, advies van Haije werkt prima. Deze oplossing kende ik nog niet. Nu nog een vraag.

    In mijn eerste voorbeeld stonden de letters ES en het cijfer 2 in respectievelijk in E1 en A1, maar wat als die gegevens in een ander tabblad staan? Hoe formuleer ik dan sel =
    Zoals ik het nu doe werkt het niet.

    bereik = Sheets("temp").Range("T12")
    bereik1 = Sheets("temp").Range("T13")

    Sheets("rooster").Select

    sel = [bereik] & [bereik1]
    Range(sel).Select

  8. #8
    Senior Member
    Geregistreerd
    1 juni 2022
    Code:
    Sub test()
        With Sheets("Temp")
            Range(.[T12] & .[T13]).Select
        End With
    End Sub

  9. #9
    Senior Member
    Geregistreerd
    13 december 2010
    bedankt

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren