ich möchte gerne über eine VBA-Abfrage prüfen, ob
der Wert von Range("b74") zwischen größer 30 und kleiner 100 liegt.
Wenn dies der Fall ist, soll eine Hinweisbox erscheinen.
Wer kann mir hier helfen.
Danke im Voraus.
viele Grüsse
gert
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("B74") Then
If IsNumeric(Range("B74").Value) And _
Range("B74").Value > 30 And _
Range("B74").Value < 100 Then
MsgBox "Der Wert in Zelle B74 liegt zwischen 30 und 100.", _
64, " Hinweis für " & Application.UserName
Else
MsgBox "Der Wert in Zelle B74 entspricht nicht den vereinbarten Inhalten.", _
48, " Hinweis für " & Application.UserName
End If
End If
End Sub