Zelleneingabe
30.09.2003 12:35:08
Thorsten
Ich möchte erreichen, dass in meiner Spalte M nur werte eingetragen werden dürfen, die kleiner bzw. gleich 12 sind. Ansinsten soll eine Fehlermeldung erscheinen und der Wert soll nicht übernommen werden.
Habe das versucht mit :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <> 13 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Target.Value > "12" Then MsgBox "Nur Werte <=12!", vbOKOnly + vbExclamation + vbDefaultButton1, "Achtung!"
On Error Resume Next
End Sub
Das läuft nur nicht sauber. Zum Beispiel bekomme ich ne Fehlermeldung, wenn ich die If Abfragen mit Endif beenden will. Der Eintrag in die Zelle wird auch nicht verhindert...
Wäre nett, wenn mir jemand bei der Korrektur des Makros zu Hand gehen könnte