Spørger om samme vbyesno spørgsmål flere gange

Jeg ved det kan gøres via datavalidering, men det vil jeg undgå

Prøv med følgende:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$B$38" Then
    'Her sætter du så koden for din boks
End If

End Sub

Det har ingen effekt, koden ser ud som følger og msgbox fremkommer ikke når jeg vælger en værdi højere end 13 og mindre end 33

If Target.Address = "$b$38" Then
If Range("b38").Value > 13 And Range("b38").Value < 33 Then
If MsgBox("Der må kun udskydes mere end 13 uger efter aftale, " & vbNewLine & "da det ikke er medarbejderens ret. " & vbNewLine & "Er der lavet en aftale ?", vbYesNo + vbQuestion, "Er der indgået aftale") = vbNo Then
  ' Der må kun udskydes mere end 13 uger efter aftale
  Range("b38").ClearContents
  Range("b38").Select
Else
End If
End If
End If

Prøv med:

If Target.Address = "$B$38" Then
    If Range("b38").Value > 13 And Range("b38").Value < 33 Then
        If MsgBox("Der må kun udskydes mere end 13 uger efter aftale, " & vbNewLine & "da det ikke er medarbejderens ret. " & vbNewLine & "Er der lavet en aftale ?", vbYesNo + vbQuestion, "Er der indgået aftale") = vbNo Then
            ' Der må kun udskydes mere end 13 uger efter aftale
            Range("b38").ClearContents
            Range("b38").Select
        Else
        End If
    End If
End If

Lidt snyd at sende hele koden igen. Det eneste jeg gjorde var at ændre

If Target.Address = "$b$38" Then

til

If Target.Address = "$B$38" Then

Utroligt at så lidt kan gøre så meget, du har fortjent dine point

"Liden tue kan vælte et stort læs"

Dette gode gamle ordsprog gælder åbenbart stadig :0)

En god idé når der indgår strenge kan være at UCASE alting. Så behøver man ikke spekulere om det ene eller det andet nu er med store eller små bogstaver og om der skelnes eller ej:

If UCase(Target.Address) = UCase("$b$38") Then