variable def en toekennen

[wilbert1967]

hallo

hoe ken ik een variable toe en vul deze met de waarden, als ik in een sheet op e4 begin met afdeling W, op f4 afdeling F en op w4 afdeling O.

wat de bedoeling is dat de cursor gaat naar de cel e4 als in a1 een W staat?

mvg

wilbert

 

[Gert Bouwmeeste]

Da's een beetje kort door bocht qua probleemomschrijving.

Wil je wat meer toelichten of evt een voorbeeldbestandje bijsluiten?

 

[Ginger]

Da's een beetje kort door bocht qua probleemomschrijving

Dat kan je wel stellen!!!

In het kader van de 'vakantie-komkommertijd' toch alvast 2 gokjes...

Sub dinges1()
Dim sAfdeling As String

    Select Case UCase(Range("A1").Value)
        Case "W"
            sAfdeling = Range("E4").Value
        Case "F"
            sAfdeling = Range("F4").Value
        Case "O"
            sAfdeling = Range("W4").Value
    End Select

End Sub

Sub dinges2()

    Select Case UCase(Range("A1").Value)
        Case "W"
            Range("E4").Select
        Case "F"
            ange("F4").Select
        Case "O"
            Range("W4").Select
    End Select

End Sub

Bij voorbeeld 1 neem je de waarde over van de genoemde afdeling in de variabele 'sAfdeling'. Bij het 2e voorbeeld ga je met de cursor naar de cel van die afdeling. Dit alles aan de hand van de opgegeven waarde in cel A1 (niet automatisch!!!).

Maar alléén met een goed voorbeeld (bijlage) of uitgebreide omschrijving valt er verder te gaan met je probleem.

Groet, Leo

 

[wilbert1967]

mijn excus voor onduidelijkheid las het achteraf ook
maar dit is wel de makkelijkste manier zoals optie 2 is
ik wilde eigenlijk een array vullen (w,a4), (f,f4) en (o,w4) en dan uitvragen wat in a1 staat en dat zoeken in array en dan springen naar de cel
maar nog maals dank optie 2 is net zo makkelijk