Eingaben auf Gültigkeit prüfen lassen

Computer: Software & Programmierung Office Software
1

Hallo,

gibt es in Excel eine Funktion welche es verhindert einen Wert in eine Zelle zu schreiben wenn dadurch eine Spaltensumme größer als 100% wird?

Beispiel:

Anteil A: 10%
Anteil B: 30%
Anteil X: … (hier soll eine Eingabe gemacht werden, wenn größer als 70% soll eine Fehlermeldung kommen)

Summe: 100%

Ich hoffe ich habe mein Anliegen verständlich geschildert.

Grüße,
Sebastian Gansemer

2

gibt es in Excel eine Funktion welche es verhindert einen Wert
in eine Zelle zu schreiben wenn dadurch eine Spaltensumme
größer als 100% wird?

Hi Sebastian Gansemer,

Tabelle:
[Mappe4]!Tabelle1

 │ A │ 
──┼────┤
1 │ 30 │ 
2 │ 10 │ 
3 │ 50 │ 
──┴────┘
In A3 stellen, dann Daten--Gültigkeit--Zulassen Benutzerdefiniert

Formel: =SUMME(A1:A3)
Gruß
Reinahrd
3

Danke, das klappt wunderbar.
Kann man jetzt die Fehlermeldung so anpassen, das der maximal mögliche Wert angezeigt wird?
Mit einer Formel in der Fehlermeldung funktioniert es leider nicht, dann wird einfach nur die Formel angezeigt, aber nicht ausgerechnet.

4

Kann man jetzt die Fehlermeldung so anpassen, das der maximal
mögliche Wert angezeigt wird?
Mit einer Formel in der Fehlermeldung funktioniert es leider
nicht, dann wird einfach nur die Formel angezeigt, aber nicht
ausgerechnet.

Hi Wombat,
dann lasse die Daten–Gültigkeit weg.
Alt+F11, Doppelklick auf den Blattnamen, Code einfügen, Editor schliessen.

Option Explicit

Private Sub Worksheet\_Change(ByVal Target As Excel.Range)
If Target.Address(0, 0) "A3" Then Exit Sub
Dim Mldg As String
If Application.WorksheetFunction.Sum(Range("A1:A3")) \> 100 Then
 Mldg = "A1:A3 dürfen in der Summe nicht mehr als 100 ergeben." & vbLf & "D.h. der Maximalwert für "
 Mldg = Mldg & "die Eingabe in A3 ist " & 100 - Application.WorksheetFunction.Sum(Range("A1:A2"))
 MsgBox Mldg
 Target.Select
 Target = ""
End If
End Sub

Gruß
Reinhard