Message Box bei Wertüberschreitung
30.03.2004 23:20:02
Ralle74
ich habe eigentlich keine Ahnung von VBA, dies nur als Vorsatz.
Ich möchte eine Zelle (C11)überprüfen ob der Wert über 1000 oder über 1450 ist.
Ist der Wert kleiner soll nichts passieren.
Ist der Wert zwischen 1000 und 1450 soll eine Hinweismeldung erscheinen, die ich mit "OK" oder "Abrechen" weiterführen oder abbrechen kann.
Ist der Wert über 1450 soll das gleiche geschehen, nur mit einem anderen Text.
Ich habe folgendes versucht komme aber irgendwie nicht weiter.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 11 And Target.Column = 3 Then
If Target.Value < 1000 Then MsgBox "über einer Breite von 1000mm ist schleifen nur mit Mehraufwand möglich!!", vbOKOnly, "Hinweis"
End If
End Sub
Wäre Klasse, wenn mir jemand weiterhelfen könnte.
Danke im Voraus
Ralle74