Hej!

Jeg har lavet en datavalideringsliste. Celle G49 returnerer et nummer fra 1-10 på baggrund af valget i datavalideringslisten. Der er anvendt et LOPSLAG'et i til en liste. Jeg kan IKKE få min makro til at køre når jeg vælger en værdi i listen der så returnerer et tal til G49 vha. LOPSLAG'et. Men hvis jeg taster i G49, kan jeg få det til at virke. Hvad gør jeg galt?

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$G$49" Then

        Select Case Target.Value

        Case Is = 1: Call Deponi

        Case Is = 2: Call Dæk

        Case Is = 3: Call Fyldplads

        Case Is = 4: Call Gips

        Case Is = 5: Call Jernogmetal

        Case Is = 6: Call PVC

        Case Is = 7: Call Madrasser

        Case Is = 8: Call Stortbb

        Case Is = 9: Call Stød

        Case Is = 10: Call Trykimp

        Case Else: Call Deponi

        End Select

    End If

End Sub

 

Du gav mig en god ide. Som du nævnte linkede jeg til cellen med listen og i stedet for at returnere et nummer på baggrund af et valg i listen, har jeg nu i stedet blot skrevet listens værdier ind:

 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$49" Then
        Select Case Target.Value
        Case Is = "Deponi": Call Deponi
        Case Is = "Dæk": Call Dæk
        Case Is = "Blandet byggeaffald": Call Fyldplads
        Case Is = "Gips": Call Gips
        Case Is = "Jern og metal": Call Jernogmetal
        Case Is = "PVC": Call PVC
        Case Is = "Madrasser og fjedermøbler": Call Madrasser
        Case Is = "Stort brændbart": Call Stortbb
        Case Is = "Stød og rødder": Call Stød
        Case Is = "Trykimprægneret træ": Call Trykimp
        Case Else: Call Deponi
        End Select
    End If
End Sub

 

Nu fungerer det.