Lijsten in Excel

[sanma]

Hallo,

Ik wil graag via een lijst een functie maken bijvoorbeeld:

1. - Rood
2. - Blauw
3. - Groen
4. - Geel
5. - Paars
6. - Zwart
7. - Wit

Nu wil ik graag dat wanneer A1 gelijk is aan rood dat er een 1 komt te staan in B1, is A1 blauw dat moet er in B1 een 2 komen en zo verder. Ik heb dit geprobeerd met de als functie echter kan ik hier slechts 3 waardes aangeven en ik heb een lijst met ongeveer 40 merkcodes.

Alvast bedankt!

 

[Thoralf]

Hallo Sanma,

Dit lijkt mij een typisch geval voor VERT.ZOEKEN.

 

[Hoornvan]

sanma,

Kun je hier wat mee?
De code moet achter het blad.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
  Dim cell_in_loop As Range
  For Each cell_in_loop In Range("A1:A10")
    With cell_in_loop
      Select Case .Value
        Case "Rood": .Offset(0, 1) = 1
        Case "Blauw": .Offset(0, 1) = 2
        Case "Groen": .Offset(0, 1) = 3
        Case "Geel": .Offset(0, 1) = 4
        Case "Paars": .Offset(0, 1) = 5
        Case "Zwart": .Offset(0, 1) = 6
        Case "Wit": .Offset(0, 1) = 7
        Case "": .Offset(0, 1) = ""
      End Select
    End With
  Next
Application.ScreenUpdating = True
End Sub]

 

[Warme bakkertje]

Of met een UDF (plaatsen in een standaardmodule)
In B1 ==> en dan verder naar beneden trekken met vulgreep

=omzetten(A1)

Function omzetten(waarde As String) As Integer
    omzetten = Switch(waarde = "Rood", 1, waarde = "Blauw", 2, waarde = "Groen", 3, waarde = "Geel", 4, waarde = "Paars", 5, _
                        waarde = "Zwart", 6, waarde = "Wit", 7)
End Function

 

[sanma]

Hallo,

Met de functie verticaal zoeken kom ik een heel eind echter nog niet helemaal.

Ik wil omdat het een vrij groot systeem wordt gebruik maken van meerdere werkbladen.

Werkblad 1: (bijvoorbeeld, hier staat de data)
ID - Kleur
1 - Geel
2 - Blauw
3 - Blauw
4 - Groen
5 - Geel
6- Blauw

Werkblad 2: (hier staat de legenda)
1 = Blauw
2 = Groen
3 = Geel
4 = Rood

Werkblad 3: (hier komt dan de uitwerking)
1 - 3 (In blad 1 staat bij id1 geel dus moet er via de legenda een 3 komen voor de kleur geel)
2 - 1
3 - 1
4 - 2
5 - 3
6 - 1

Dit is dus ongeveer hoe het moet komen alleen kom ik er met de functie verticaal zoeken niet helemaal aan uit nog.

 

[sanma]

Hallo,

Ik weet eerlijk gezegd niet helemaal hoe ik functies en modules kan toevoegen in excel dus verticaal zoeken is makkelijker voor me denk ik.

 

[sanma]

Hallo,

Ben even gaan zoeken naar modules toevoegen en via =omzetten(A1) werkt het zo kan ik het waarschijnlijk ook doen via meerdere tabbladen dus heel erg bedankt voor jullie hulp!

 

[Warme bakkertje]

Volgens jouw laatste vb

Function omzetten(waarde As String) As Integer
    omzetten = Switch(waarde = 1, 3, waarde = 2, 1, waarde = 3, 1, waarde = 4, 2, waarde = 5, 3, waarde = 6, 1)
End Function