Maximal Wert

Forumthread: Maximal Wert
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Maximal Wert

Maximal Wert

29.07.2008 11:44:00

Michael

Hi,
wie kann man es bewerkstelligen, dass in einer Liste (A1:A20) Summe der Liste steht in A21 nur ein maximaler Wert von z.B. 100 eingetragen werden darf?
Also die Werte von A1:A20 dürfen 100 nicht überschreiten.
Gruß
Michael

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Daten, Gültigkeit

29.07.2008 11:48:48

backowe
AW: Daten, Gültigkeit

29.07.2008 12:06:06

Michael
Sorry, habe ich etwas verpeilt! ;o)

29.07.2008 12:29:41

backowe
AW: Daten, Gültigkeit

29.07.2008 12:31:00

Rudi
Danke! Das hab ich gesucht !! o.T.

29.07.2008 12:45:36

Michael

Daten, Gültigkeit

29.07.2008 11:48:48

backowe

Hi,

	A
1	99
2	99
3	99
4	99
5	99
6	99
7	99
8	99
9	99
10	99
11	99
12	99
13	99
14	99
15	99
16	99
17	99
18	99
19	99
20	99

Datengültigkeit der Tabelle

Zelle	Zulassen	Daten	Eingabe 1	Eingabe 2
A1	Benutzerdefiniert		=A1<100
A2	Benutzerdefiniert		=A2<100
A3	Benutzerdefiniert		=A3<100
A4	Benutzerdefiniert		=A4<100
A5	Benutzerdefiniert		=A5<100
A6	Benutzerdefiniert		=A6<100
A7	Benutzerdefiniert		=A7<100
A8	Benutzerdefiniert		=A8<100
A9	Benutzerdefiniert		=A9<100
A10	Benutzerdefiniert		=A10<100
A11	Benutzerdefiniert		=A11<100
A12	Benutzerdefiniert		=A12<100
A13	Benutzerdefiniert		=A13<100
A14	Benutzerdefiniert		=A14<100
A15	Benutzerdefiniert		=A15<100
A16	Benutzerdefiniert		=A16<100
A17	Benutzerdefiniert		=A17<100
A18	Benutzerdefiniert		=A18<100
A19	Benutzerdefiniert		=A19<100
A20	Benutzerdefiniert		=A20<100

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruss Jürgen

AW: Daten, Gültigkeit

29.07.2008 12:06:06

Michael

Hi,
danke für den Hinweis. Soweit war ich auch schon. Nur das Problem ist die Summenfunktion in A21. Wenn die Summe der Werte von A1 bis A20 mehr als 100 ergeben passiert nichts bzw. es wird einfach zugelassen. Das sollten nicht sein.
Gruß
Michael

Sorry, habe ich etwas verpeilt! ;o)

29.07.2008 12:29:41

backowe

Hallo Michael,
dann hätte ich noch diese Lösung im Angebot! :o)

VBA-Code:

Private Sub Worksheet_Change(ByVal Target As Range)

'Code in das entsprechende Tabellenblatt!

If Not Intersect(Target, [A1:A20]) Is Nothing And Target.Count = 1 Then

  If [A21].Value >= 100 Then MsgBox "Summe in A21 muss kleiner 100 sein!"

End If

End Sub

Gruss Jürgen