Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Pop-up Fenster bei einem bestimmten Wert in Excel


Schritt-für-Schritt-Anleitung

Um ein Excel Pop-up Fenster zu erzeugen, wenn ein bestimmter Wert überschritten wird, kannst du die folgende VBA-Programmierung verwenden. Dies funktioniert in Excel 2010 und höheren Versionen.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Wähle das Arbeitsblatt aus, auf dem du das Pop-up Fenster erstellen möchtest.

  3. Füge den folgenden Code in das Codefenster ein:

    Private Sub Worksheet_Calculate()
       Dim lngCalc As Long
       With Application
           lngCalc = .Calculation
           .Calculation = xlCalculationManual
           .EnableEvents = False
           If .Max(Range("C8:N8")) > 10000 Then MsgBox "Das Spiel ist beendet!", vbInformation, "Hinweis für " & Application.UserName
           .EnableEvents = True
           .Calculation = lngCalc
       End With
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu deinem Arbeitsblatt.

  5. Teste die Funktion, indem du die Werte in den Zellen C8:N8 änderst.


Häufige Fehler und Lösungen

  • Fehler: Das Pop-up Fenster öffnet sich nicht.

    • Lösung: Stelle sicher, dass du die Berechnung in Excel aktiviert hast. Gehe zu Formeln > Berechnungsoptionen und wähle Automatisch.
  • Fehler: Das Pop-up Fenster erscheint nicht bei der Änderung der Zellen.

    • Lösung: Beachte, dass die Worksheet_Calculate-Methode nur bei Änderungen in Formeln funktioniert. Wenn du direkt in eine Zelle schreibst, solltest du die Worksheet_Change-Methode verwenden.

Alternative Methoden

Wenn du ein Excel Pop-up Fenster bei einem Klick auf eine Zelle erzeugen möchtest, kannst du die Worksheet_SelectionChange-Methode verwenden:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C8:N8")) Is Nothing Then
        If Application.WorksheetFunction.Max(Range("C8:N8")) > 10000 Then
            MsgBox "Achtung: Wert überschritten!", vbExclamation, "Warnung"
        End If
    End If
End Sub

Praktische Beispiele

Angenommen, du hast eine Umsatzübersicht in den Zellen C8:N8. Wenn der Umsatz einen Wert von 10.000 Euro überschreitet, wird ein Pop-up Fenster angezeigt, das dich warnt. Du kannst die Schwelle anpassen, indem du den Wert in der Bedingung änderst.


Tipps für Profis

  • Nutze die vbCritical-Option im MsgBox-Befehl, um eine kritische Warnung anzuzeigen.
  • Stelle sicher, dass die Benutzer über Makros informiert sind, da diese aktiviert sein müssen, damit das Pop-up Fenster funktioniert.
  • Überlege, Objekte wie UserForms zu verwenden, um ansprechendere Pop-up Fenster zu gestalten.

FAQ: Häufige Fragen

1. Wie aktiviere ich Makros in Excel?
Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen und aktiviere die Auswahl für Makros.

2. Kann ich das Pop-up Fenster anpassen?
Ja, du kannst den Text und das Symbol des MsgBox-Befehls anpassen, um das Pop-up Fenster an deine Bedürfnisse anzupassen.

3. Funktioniert dies auch in Excel Online?
Leider unterstützen Excel Online und die mobile Version keine VBA-Makros. Du kannst diese Funktionen nur in der Desktop-Version nutzen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige