MSG Box wenn...
19.07.2005 13:10:22
Andre
ich habe folgende Code aus dem Forum (von Hajo_Ziplies)und möchte gern eine Änderung vornehmen, dass bei falscher Werteingabe die Möglichkeit besteht mit nein zu betätigen und damit in die zuletzt aktivierte Zelle springe, wo ich dann die Änderung machen kann.
Ich hoffe mir kann jemand helfen!Danke
Option Explicit
Dim StwertA As String
Dim StwertB As String
Private Sub Worksheet_Calculate()
If StwertA = "" And StwertB = "" Then
StwertA = Range("A1")
StwertB = Range("B1")
End If
If Range("B1") < Range("A1") And (StwertA <> Range("A1") Or _
StwertB <> Range("B1")) Then
MsgBox "Ist der Wert richtig!"
StwertA = Range("A1")
StwertB = Range("B1")
End If
End Sub
Anzeige
