ich habe in einer zelle (z.b. A1) einen bestimmten wert stehen
und möchte, dass man in einer anderen zelle einen wert
eingeben muss, der
nicht größer ist als der wert in der zelle A1; wenn man diese
bedingung nicht erfüllt, soll man höflich darauf aufmerksam
gemacht werden, dass in dieser zelle die zahl eine bestimmte
größe haben muss (oder anders rum nur eine bestimmte größe
haben darf),
Hallo Schmitzi,
Rechtsklick unten auf den Blattnamen, Code Anzeigen, dort den Code reinkopieren, ggfs. anpassen, Editor schliessen.
Nun in A1 den Wert eingeben.
Dann probiere die Eingabe verschiedener Werte in B1…
Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Address(0, 0) "A1" Then Exit Sub
With Range("B1").Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, \_
Operator:=xlBetween, Formula1:="0", Formula2:=Target.Value
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "So geht's nicht!"
.InputMessage = ""
.ErrorMessage = "Der Wert in B1 muß kleinergleich " & Target.Value & " sein."
.ShowInput = True
.ShowError = True
End With
End Sub
Gruß
Reinhard