Private Sub ComboBox1_Change()
    If LCase(ComboBox1.Value) = "shipped" Then
        Range("E7") = Date
    Else
        Range("E7") = ""
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

    'Tjekker om markøren er i kolonne C (Hvor status står)
    If Not Intersect(Target, Range("C:C")) Is Nothing Then
    
        'Hvis den er det, så tjekker den hvad status er i sted (altså rullegardinet)
        Select Case LCase(Target.Value)
            Case "lager":
                'Giver lidt respons.
                MsgBox "Varen er lagt på lager den " & Date
                
                'Skriver datoen i kolonne D, der har sammerække, som den valgte.
                'Offset-funktionen skal læses som. Tag hvor markøren står, og tryk 0 rækker ned og 1 kolonne til højre. (Altså til datofeltet)
                Target.Offset(0, 1).Value = Date
            Case "reserveret":
                'Giver lidt respons.
                MsgBox "Varen er reserveret den " & Date
                
                'Skriver datoen i kolonne D, der har sammerække, som den valgte.
                'Offset-funktionen skal læses som. Tag hvor markøren står, og tryk 0 rækker ned og 1 kolonne til højre. (Altså til datofeltet)
                Target.Offset(0, 1).Value = Date
        End Select
    End If
End Sub