Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1584to1588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

bitte um nochmalige Hilfe

bitte um nochmalige Hilfe
12.10.2017 06:26:03
Günther
Hallo
mein Thema ist untergegangen:
ich habe diese Aufgabe :
Spalte C trage ich meine X ein
In Zelle M2 = Anzahl wieviel zugelassen werden dürfen
M3 =zählenwenn(c:c;"x")
jetzt möchte ich gerne eine Info die kommt wenn ich über meinen Wert m2 bin.
"Achtung Anzahl überschritten, bitte beachten
wäre so was möglich ?
https://www.herber.de/bbs/user/116872.xlsb
Aber mit diesem Code geht das leider nicht:
Private Sub Worksheet_Calculate()
If [M3] > [M2] Then MsgBox ("Achtung Anzahl überschritten, bitte beachten")
End Sub
weil er alles als Fehler zählt.
Danke nochmal
LG Günther

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW:mit Change
12.10.2017 07:16:05
hary
Moin
Nimm mal das Change Ereigniss mit Case Anweisung.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Columns(3)) Is Nothing Then
Select Case Target
Case "x"
If [M3] > [M2] Then MsgBox ("Achtung Anzahl x überschritten, bitte beachten")
Case "c"
If [M5] > [M4] Then MsgBox ("Achtung Anzahl c überschritten, bitte beachten")
End Select
End If
End Sub

gruss hary

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige