Udfyldning af flere celler på baggrund af valg i én celle. (datavalidering)

Må det være VBA?

Jeg søger den nemmeste løsning, som jeg (nybegynder) kan forstå.
Hvis den nemmeste løsning indbefatter VBA - så... hvorfor ik?

Har du mulighed for at sende en kopi af filen?
@-adresse under min profil.

så kan jeg se om der evt. skulle være andre muligheder.

Super fedt, TAK!

Jeg har sendt dig en mail

Hej...

Hvor er det bare kanon...!!
Efter lidt tilretninger virker det efter de virkelige kolonner jeg har i mit ark!!!

Må jeg eller vil du poste koden her? Eller vil du gerne holde den for dig selv?

Under alle omstændigheder har du fortjent de 200 point her på Eksperten.

Det er naturligt at vise løsningen - når der betales med points.
Så du får et svar

Const søgFraArkNr = 1                              'arkNr der søges fra - kan evt. justeres
Const søgPåArkNr = 2                                'arkNr der søges i - " -
Dim antalRækker2 As Long

Dim navn As String, organisation As String, rolle As String
Private Sub Worksheet_Change(ByVal Target As Range)
Dim aktuelleRække As Long
    Application.ScreenUpdating = False
    If InStr(Target.Address, ":") = 0 Then

        If InStr(Target.Address, "$B") > 0 And Target <> "" Then
            navn = Target
            aktuelleRække = Target.Row
           
            række2 = findMedarbejderRække(navn, organisation, rolle)
            If række2 > 0 Then
                Range("C" & aktuelleRække) = organisation
                Range("E" & aktuelleRække) = rolle
            End If
        End If
    End If
    Application.ScreenUpdating = True
End Sub
Private Function findMedarbejderRække(navn, organisation, rolle)
Dim c
    organisation = ""
    rolle = ""
   
    ActiveWorkbook.Sheets(søgPåArkNr).Activate
    antalRækker2 = ActiveCell.SpecialCells(xlLastCell).Row
   

    With ActiveSheet.Range("A1:A" & CStr(antalRækker2))
        Set c = .Find(navn, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            findMedarbejderRække = c.Row
            organisation = ActiveSheet.Range("B" & c.Row)
            rolle = ActiveSheet.Range("D" & c.Row)
        Else
            findMedarbejderRække = 0
        End If
    End With
   
    ActiveWorkbook.Sheets(søgFraArkNr).Select
End Function

Jeg har samme udfordring. Jeg har forsøgt at kopiere ind og rette lidt til men det er lidt for kompliceret til mig. Supertekst, kan du måske hjælpe?

Prøv at sende en model af det du har og ønsker - så er det lidt nemmere.
www.supertekst-it.dk | kontakt - så svarer jeg og du kan sende nævnte model.

Det varer nok lidt inden jeg får svaret - sidder med en kundeopgave.

Hej Camilla

Har lidt tid i de kommende dage, hvis det stadig er relevant.