Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1576to1580
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

Pop-up Fenster bei einem bestimmten Wert

Pop-up Fenster bei einem bestimmten Wert
08.09.2017 19:31:20
Heier
Hallo Experten,
ich habe mal wieder eine Frage.
Es soll sich ein Pop-up Fenster öffnen, wenn in einer der Zellen C8:N8 der Wert
10000 oder größer erscheint.
Die Zellen C8 :N8 sind mit einer Formel hinterlegt(z.B.für C8 =Summe C10:C20)
Folgende Formel habe ich gefunden, die jedoch nicht zum Ergebnis führt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C8:N8")) Is Nothing Then
If Target.Count = 1 And Target => 10000 Then
MsgBox "Das Spiel ist beendet!", vbInformation, "Hinweis für " & _
Application.UserName
End If
End If
End Sub
Wie müsste die umgeschrieben werden?
Grüße
Rolf

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pop-up Fenster bei einem bestimmten Wert
08.09.2017 19:35:51
Hajo_Zi
Hallo Rolf,
Change wirkt nur bei Eingabe.
Da muss Private Sub Worksheet_Calculate()
was aufwendig ist.
Ich arbeite nur an einem Not-Not Rechner, darum kein Vorschlag.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Anzeige
AW: Pop-up Fenster bei einem bestimmten Wert
08.09.2017 19:40:50
Heier
Danke für die schnelle Antwort, dann werde ich mal weiter suchen.
AW: Pop-up Fenster bei einem bestimmten Wert
08.09.2017 20:16:12
Gerd
Hallo Rolf!
Private Sub Worksheet_Calculate()
Dim lngCalc As Long
With Application
lngCalc = .Calculation
.Calculation = xlCalculationManual
.EnableEvents = False
If .Max(Range("C8:N8")) > 10000 Then MsgBox "Zu hoch!"
.EnableEvents = True
.Calculation = lngCalc
End With
End Sub

Gruß Gerd

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige