Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Warnmeldung bei "Summe größer als x"

Forumthread: Warnmeldung bei "Summe größer als x"

Warnmeldung bei "Summe größer als x"
07.07.2008 20:46:00
scheichuwe
Hallo zusammen,
folgendes Problem:
Es wird eine Summe in H16 berechnet, die nicht größer als 800 sein darf. Sonst soll eineWarnmeldung erscheinen, die den Benutzer darauf hinweist. Mit Daten -- Gültigkeit hab ich teilweise Erfolg gehabt, allerdings nur wenn ein Wert größer 800 manuell eingegeben wurde. Mit einer Summe funktioniert's nicht.
Gibt's eine Möglichkeit, dieses Problem zu lösen? Wenn ja, was muss ich machen?
Vielen Dank schonmal
Uwe

Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Warnmeldung bei "Summe größer als x"
07.07.2008 21:06:00
Matthias
Hallo
schreib z.B. in G16 800
in einer Zelle Deiner Wahl nun : =WENN(H16>G16;"Warnung";"")

Wird in H16 nun ein Wert > 800 angezeigt, so erscheint die Warnung


Gruß Matthias

AW: Warnmeldung bei "Summe größer als x"
07.07.2008 21:11:25
scheichuwe
OK, so geht's natürlich.
Aber die Warnung sollte als Pop-up erscheinen, das sollte ich wohl noch erwähnen.
Gruß
Uwe

Anzeige
AW: Warnmeldung bei "Summe größer als x"
07.07.2008 21:14:00
Matthias
Hallo Uwe
Woher sollte ich das wissen. Bei Dir steht VBA=Nein
Gruß Matthias

AW: Warnmeldung bei "Summe größer als x"
07.07.2008 21:18:00
hary
Hallo Uwe

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("h16") > 800 Then
MsgBox ("Wert überschritten")
Exit Sub
End If
End Sub


musst nur zuweisen wann das Ereigniss eintreten soll hier beim Change.
Gruss Hary

Anzeige
AW: Warnmeldung bei "Summe größer als x"
07.07.2008 21:19:00
hary
Hallo Uwe

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("h16") > 800 Then
MsgBox ("Wert überschritten")
Exit Sub
End If
End Sub


musst nur zuweisen wann das Ereigniss eintreten soll hier beim Change.
Gruss Hary

Anzeige
AW: Warnmeldung bei "Summe größer als x"
07.07.2008 21:32:00
scheichuwe
Perfekt. Funktioniert einwandfrei.
Vielen Dank für die schnelle Antwort.
Gruß Uwe

AW: Warnmeldung bei "Summe größer als x"
08.07.2008 00:19:18
Susanne99
Die Sache mit der Warnmeldung ist interessant. Kann man das noch so erweitern, daß das Popups sich automatisch nach z.b. 1 Minute wieder schließt? Und , daß es beim "Aufpoppen" einen Sound erzeugt?
LG Susanne

Anzeige
AW: Warnmeldung bei "Summe größer als x"
08.07.2008 09:25:29
Chris
Servus Susanne,
mal ein Beispiel:
Option Explicit
Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
in ein allgemeines Modul

Private Sub Worksheet_Change(ByVal Target As Range)
Dim WshShell
Dim intText As Integer
If Target.Address = "$H$16" Then
If Target = "" Then Exit Sub
If IsNumeric(Target) And Target > 800 Then
Call sndPlaySound32("C:\Alte Daten\Daten\SONSTIGES\Scheißbirschdn.wav", 1)
Set WshShell = CreateObject("WScript.Shell")
intText = WshShell.Popup("Erinnerungstext", 10, "Erinnerung", vbSystemModal)
End If
End If
End Sub


ins Modul des Tabellenblattes.
Wenn du in H16 einen Wert größer 800 eingibst, erklingt ein Sound und es geht ein Popup-Fenster auf, das sich nach 10 Sek. schließt (die 10 in inText).
Die .wav-Datei muss im angegebenen Pfad existieren, dass musst du noch anpassen, sonst gibt's natürlich einen BUG.
Gruß
Chris

Anzeige
AW: Warnmeldung bei "Summe größer als x"
11.07.2008 09:35:26
Susanne99
Danke, Chris.
Hatte mir die Sache so vorgestellt, daß ich (es geht sogar um mehrere Popups) einfach z.b. 10 Tabellen mache, jeweils eine Zelle(verlinkt mit der Datenbank) dort mit Popups belege, die eigentliche Ursprungs-Tabelle aber popupfrei lasse, damit dort alles weiterrechnen kann ohne die Popup-Störung. Müßte doch gehen, oder? Und die Dinger schließen sich dann automatisch.
Noch einen Nachfrage: Das Popup selber: Kann man da anstatt Test auch den Inhalt mehrer Zellen einer Zeile
reinkriegen: Z.b. wenn das Popup an H16 gekoppelt ist, daß der Wert von H16, B16 und F16 aufpoppt?
LG Susanne

Anzeige
AW: ? Bahnhof, ich galube,...
11.07.2008 09:52:00
Chris
... dass es noch zu früh am Morgen ist, als dass ich das verstehen könnte.
Was willst du ?
Erklär mal bitte ganz genau, was du willst (am besten mit Beispielmappe).
1. Wodurch soll das PopUp aufgerufen werden
2. Was soll wo stehen (Werte statt Test ?)
3. von welcher PopUpart reden wir (UF, PopUp (intText), oder doch MsgBox)
Gruß
Chris

Anzeige
AW: ? Bahnhof, ich galube,...
11.07.2008 12:58:41
Susanne99
Keine Angst, liegt nicht am frühen Morgen oder an dir, sondern wohl an meiner Formulierung. MSGBox, UF etc ist leider nicht mein Fachvokabular.
Also ich hätte gerne, wenn z.b. in H16 in deinem Beispiel, die 800 erreicht ist, ein Popup, anstatt mit dem Wort "Erinnerung", sondern z.b. mit dem aktuellen von H16, dem Wert z.b. 802, und gleichzeitig den aktuellen Text bzw. Wert von A16( 13) und C16(Bernd).
Popup sollte dann z.b. anstatt dem Wort -Erinnerung - die Zeile im Popup-Feld "13 Bernd 802"
zeigen .
Ob das geht?
Wegen den Tabellen Hintergrund:
In Tabelle1 laufen permanent Zahlen ein aus Datenbank, die mit Makros verarbeitet werden.
Das Popup hat den Ablauf gestört.
Wollte jetzt z.b. das Ergebnis von Tabelle 1 aus Feld H16 in Tabelle 2 automatisch kopieren, wo es dann bei kleiner 800 das Popup auslöst, ohne die Rechenoperationen in Tabelle1 zu unterbrechen. Ist das richtig gedacht?
LG Susanne

Anzeige
AW: ? Bahnhof, ich galube,...
11.07.2008 14:28:00
Chris
Servus Susanne,
ich bin mir nicht sicher, ob die Rechenoperation in den anderen Tabellen nicht doch unterbrochen wird, wenn die Rechenmakros nicht in der UF stehen.
Evtl. könnte es so gehen, wobei das OnTime-Ereignis schon unterbrochen wird.
Musst du mal ausprobieren.
https://www.herber.de/bbs/user/53757.xls
Gruß
Chris

Anzeige
AW: ? Bahnhof, ich galube,...
11.07.2008 15:17:00
Susanne99
Danke, sieht gut aus.
Wenn ich auch etwas verwirrt bin, daß plötzlich auch die Zahlen in spalte I auftaucen. Aber da stören sie nicht.
Danke nochmal.

AW: ? Bahnhof, ich galube,...
11.07.2008 18:59:00
Susanne99
Danke, sieht gut aus.
Wenn ich auch etwas verwirrt bin, daß plötzlich auch die Zahlen in spalte I auftaucen. Aber da stören sie nicht.
Danke nochmal.

Anzeige
AW: Warnmeldung bei "Summe größer als x"
11.07.2008 11:41:47
Susanne99
Danke, Chris.
Hatte mir die Sache so vorgestellt, daß ich (es geht sogar um mehrere Popups) einfach z.b. 10 Tabellen mache, jeweils eine Zelle(verlinkt mit der Datenbank) dort mit Popups belege, die eigentliche Ursprungs-Tabelle aber popupfrei lasse, damit dort alles weiterrechnen kann ohne die Popup-Störung. Müßte doch gehen, oder? Und die Dinger schließen sich dann automatisch.
Noch einen Nachfrage: Das Popup selber: Kann man da anstatt Test auch den Inhalt mehrer Zellen einer Zeile
reinkriegen: Z.b. wenn das Popup an H16 gekoppelt ist, daß der Wert von H16, B16 und F16 aufpoppt?
LG Susanne
Anzeige
;

Forumthreads zu verwandten Themen

automatisches Email wenn Wert überschritten - neu
Julia

Hi!
ich hatte das Problem schon einmal hier hineingestellt und auch eine super tolle Antwort von Tino erhalten (nochmal Danke dafür!!!), das Makro läuft 1A in den darauf zugeschnittenen Dateien.
Jetzt wollte ich es auf eine etwas andere Anordnung der Excel Tabelle übertragen, aber da is...
04.07.2013 11:58:52
Thread-ID: 1321056
8 Beiträge
Anzeige
Wenn Wert größer als, dann Zellenwert zurückgeben
Alex

Hallo Zusammen,
ich hab ein kleines Problem un steh leider voll auf dem Schlauch.
Ich hab In Spalte E/F/G bestimmte Prozentwerte, in Spalte I bis V Jahre in Zeile 1 und die dazugehörigen Prozentzahlen in Spalte 2.
Nunmehr würde ich gerne erreichen, dass mir in Spalte E/F/G das Jah...
10.04.2017 10:25:06
Thread-ID: 1552036
6 Beiträge
autom. E-Mails senden, wenn Werte überschritten
Sven

Hallo,
wie im Betreff bereits z.T. beschrieben möchte ich gerne via Excel/VBA einen Preisalarm erstellen.
Der Preisalarm soll automatisch eine E-Mail an Kunden versenden, wenn der Preis die Max. Grenze erreicht bzw. überschreitet oder die Min. Grenze erreicht bzw. unterschreitet.
Es...
17.05.2017 16:38:11
Thread-ID: 1558933
6 Beiträge
autom. E-Mails senden, wenn Werte überschritten
Sven

Hallo,
wie im Betreff bereits z.T. beschrieben möchte ich gerne via Excel/VBA einen Preisalarm erstellen.
Der Preisalarm soll automatisch eine E-Mail an Kunden versenden, wenn der Preis die Max. Grenze erreicht bzw. überschreitet oder die Min. Grenze erreicht bzw. unterschreitet.
Es...
17.05.2017 16:41:29
Thread-ID: 1558935
2 Beiträge
Warnmeldung wenn Wert überschritten
Kiba

Hallo zusammen,
ich würde gerne eine Fehlermeldung per VBA aktivieren, das über mehrere Zeilen einen bestimmten Wert überprüft. Es soll dann aufpoppen, wenn mindestens ein Wert innerhalb der vorgegebenen Zeilen überschritten wird. Dafür mein Beispiel:
Zähler Nenner Vergleich
A 1 9...
15.03.2019 18:17:12
Thread-ID: 1681589
3 Beiträge
Warnung, wenn positiver Wert eingegeben wird
Peter

Guten Abend
Ich meinem Excel-Sheet "Parameter" habe ich vier Eingabefelder, bei denen in aller Regel nur negative Werte erfasst werden sollen. Es soll jedoch nicht unmöglich sein, ausnahmsweise einen positiven Wert einzugeben. In diesem Fall möchte ich, dass nach der Eingabe eine msgbox mit...
11.09.2007 21:26:00
Thread-ID: 906138
11 Beiträge
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Fichtenmoped
Hallo zusammen,
komme einfach nicht weiter. Ich möchte aus der Spalte B23:B10000 alle Werte aufaddieren. Die Werte die den Wert aus der Zelle B14 unterschreiten sollen mit dem Wert aus B14 addiert werden.
Vielen Dank vorab
24.04.2024 16:19:42
Thread-ID: 1975205
7 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Warnmeldung bei "Summe größer als x" in Excel

Schritt-für-Schritt-Anleitung

Um eine Warnmeldung zu erstellen, die erscheint, wenn die Summe in einer bestimmten Zelle (z. B. H16) einen festgelegten Wert (z. B. 800) überschreitet, kannst Du folgende Schritte befolgen:

  1. Öffne Excel und gehe zu dem Arbeitsblatt, in dem Du die Warnmeldung einrichten möchtest.
  2. Gib in Zelle G16 den Wert 800 ein.
  3. In einer anderen Zelle (z. B. I16) gib die folgende Formel ein, um die Warnmeldung anzuzeigen: 
    =WENN(H16 > G16; "Warnung: Wert überschritten"; "")
  4. Um die Warnmeldung als Pop-up erscheinen zu lassen, musst Du VBA verwenden. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  5. Füge in das entsprechende Arbeitsblattmodul den folgenden VBA-Code ein: 
    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   If Range("H16") > 800 Then
       MsgBox ("Wert überschritten")
       Exit Sub
   End If
End Sub
  6. Schließe den VBA-Editor und teste die Funktion, indem Du einen Wert größer als 800 in Zelle H16 eingibst.

Häufige Fehler und Lösungen

  • Fehler: Die Warnmeldung erscheint nicht.

    • Lösung: Stelle sicher, dass Du den VBA-Code im richtigen Arbeitsblattmodul eingefügt hast und dass die Ereignisse aktiviert sind.

  • Fehler: Pop-up erscheint nicht, wenn die Formel verwendet wird.

    • Lösung: Verwende den VBA-Code, um eine echte Warnmeldung anzuzeigen, da Formeln keine Pop-ups erzeugen können.

Alternative Methoden

Eine alternative Methode zur Erstellung einer Warnmeldung könnte die Verwendung von Datenüberprüfung sein, die jedoch nur funktioniert, wenn manuell Werte eingegeben werden:

  1. Markiere die Zelle H16.
  2. Gehe zu Daten > Datenüberprüfung.
  3. Wähle Benutzerdefiniert aus und gib die folgende Formel ein: 
    =H16<=800
  4. Setze eine entsprechende Fehlermeldung, die erscheint, wenn der Wert größer als 800 ist.

Praktische Beispiele

  • Beispiel 1: Wenn Du die Zelle H16 mit einer Formel füllst, die Summen aus anderen Zellen berechnet, kannst Du den VBA-Code so anpassen:

    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   If Application.WorksheetFunction.Sum(Range("A1:A10")) > 800 Then
       MsgBox ("Summe überschreitet 800!")
   End If
End Sub

  • Beispiel 2: Wenn Du die Warnung auch mit einem Ton kombinieren möchtest, kannst Du den Code wie folgt erweitern:

    Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   If Range("H16") > 800 Then
       Call sndPlaySound32("C:\Pfad\zu\deinem\Sound.wav", 1)
       MsgBox ("Wert überschritten")
   End If
End Sub

Tipps für Profis

  • Nutze Bedingte Formatierung, um visuelle Hinweise zu geben, wenn der Wert in H16 den Grenzwert überschreitet. Gehe zu Start > Bedingte Formatierung > Neue Regel und wähle „Zellen formatieren, die enthalten“.
  • Verwende den Workbook_Open-Event, um eine Warnmeldung beim Öffnen der Datei anzuzeigen, falls der Wert bereits überschritten wurde.

FAQ: Häufige Fragen

1. Wie kann ich die Warnmeldung anpassen? Du kannst den Text in der MsgBox-Funktion nach Belieben ändern, um einen klareren Hinweis zu geben.

2. Kann ich mehrere Zellen gleichzeitig überwachen? Ja, Du kannst die If-Bedingungen im VBA-Code anpassen, um mehrere Zellen zu überwachen und entsprechende Warnmeldungen auszugeben.

3. Funktioniert das auch in älteren Excel-Versionen? Die meisten dieser Funktionen und VBA-Codes sind in Excel 2007 und höher verfügbar. Prüfe die Kompatibilität in Deiner Version.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige