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

Forumthread: Wenn Bedingung dann PopUp Fenster

Wenn Bedingung dann PopUp Fenster
01.09.2017 08:47:50
Kai
Hallo zusammen,
ich bin gerade dabei einen Konfigurator für Produkte in Excel zu erstellen.
Ich suche nun nach der Möglichkeit, dass wenn in dem Zellenbereich C42 bis C54 der Werlt in Summe größer als Null ist, ein PopUp Fenster erscheint. Lässt sich dies über VBA irgendwie lösen?
Vielen Dank im Voraus.
Viele Grüße
Kai
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Bedingung dann PopUp Fenster
01.09.2017 08:53:10
Kai
Nachtrag
Ich habe es mit folgendem Code versucht
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C42:C54") 

Erhalte aber ständig die Fehlermeldung "Typen unverträglich"
AW: Wenn Bedingung dann PopUp Fenster
01.09.2017 08:53:25
Michael
Hallo!
Ja, das geht. Führe einen ReKlick auf dem Tabellenblatt-Reiter des betroffenen Blattes aus, Klicke auf Code anzeigen. Kopiere folgenden Code in die sich öffnende VBA-Umgebung (im rechten Fenster):
Private Sub Worksheet_Change(ByVal Target As Range)
If WorksheetFunction.Sum(Range("C42:C54")) > 0 Then
MsgBox "Pop pop pop!", vbInformation, "Pop-Up Fenster"
End If
End Sub
Meldung und Titel-Text der MsgBox kannst Du nach Wunsch anpassen. Das Makro wird angestoßen, wenn sich irgendwo im Blatt ein Zell-Wert verändert (durch Eingabe, nicht bei Formeln!).
Lg
Michael
Anzeige
AW: Wenn Bedingung dann PopUp Fenster
01.09.2017 10:09:05
Kai
Hallo Michael,
vielen Dank. Funktioniert prima :)
Jetzt noch eine zweite Frage:
Wie mache ich es, wenn ich zwei Fenster für unterschiedliche Bereiche möchte? Geht das auch?
Beispiel
Wenn im Bereich 1 von C15 bis C30 und C34 bis C62 der Wert größer als Null ist, dann Fenster 1
Wenn im Bereich 2 von C66 bis C71 und C75 bis C80 der Wert größer als Null ist, dann Fenster 2
Viele Grüße
Kai
Anzeige
Ich will mal nicht so sein...
01.09.2017 10:20:27
Michael
Kai,
...auch wenn Du offenbar munter crosspostest; solltest Du nicht ohne entsprechende Hinweise in den Foren machen (siehe Forums-Regeln).
Private Sub Worksheet_Change(ByVal Target As Range)
If WorksheetFunction.Sum(Range("C15:C30"), Range("C34:C62")) > 0 Then
MsgBox "Pop 1!", vbInformation, "Pop-Up Eins"
End If
If WorksheetFunction.Sum(Range("C66:C71"), Range("C75:C80")) > 0 Then
MsgBox "Pop 2!", vbInformation, "Pop-Up Zwei"
End If
End Sub
Aber darauf hättest Du vermutlich selbst kommen können, oder?
LG
Michael
Anzeige
Der Klassiker! Ist ja auch "dringend" ;-), owT
01.09.2017 10:09:11
Michael
Uuuuund gebusted :D owT
01.09.2017 10:31:46
JoNNy
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Pop-Up Fenster in Excel: So erstellst du ein effektives Warnsystem


Schritt-für-Schritt-Anleitung

Um ein Excel Pop-Up Fenster zu erstellen, das erscheint, wenn bestimmte Zellenwerte überschritten werden, kannst du folgende Schritte befolgen:

  1. VBA-Editor öffnen:

    • Klicke mit der rechten Maustaste auf das Tabellenblatt, in dem du das Pop-Up erstellen möchtest.
    • Wähle „Code anzeigen“ aus dem Kontextmenü.
  2. Code einfügen:

    • Kopiere den folgenden VBA-Code in das sich öffnende Fenster:
    Private Sub Worksheet_Change(ByVal Target As Range)
       If WorksheetFunction.Sum(Range("C42:C54")) > 0 Then
           MsgBox "Pop pop pop!", vbInformation, "Pop-Up Fenster"
       End If
    End Sub
  3. Anpassungen:

    • Du kannst die Meldung und den Titel des Pop-Ups nach deinen Wünschen anpassen.
  4. Überprüfen:

    • Teste die Funktion, indem du Werte in den Zellen C42 bis C54 änderst.

Häufige Fehler und Lösungen

  • Fehlermeldung "Typen unverträglich":

    • Stelle sicher, dass du keinen falschen Zellbereich oder falsche Bedingungen verwendest. Prüfe den Code auf Syntaxfehler.
  • Pop-Up erscheint nicht:

    • Vergewissere dich, dass das Makro aktiviert ist und dass sich die Werte tatsächlich in dem angegebenen Bereich ändern.

Alternative Methoden

Wenn du ein Excel Popup ohne VBA erstellen möchtest, kannst du die bedingte Formatierung und Datenüberprüfung nutzen:

  1. Bedingte Formatierung:

    • Wähle die Zelle aus, die du überwachen möchtest.
    • Gehe zu „Bedingte Formatierung“ und erstelle eine Regel, die eine bestimmte Farbe anzeigt, wenn der Wert über einem bestimmten Schwellenwert liegt.
  2. Datenüberprüfung:

    • Gehe zu „Daten“ > „Datenüberprüfung“ und stelle Bedingungen auf, die eine Warnmeldung anzeigen, wenn die Werte zu niedrig sind.

Praktische Beispiele

  • Beispiel für mehrere Pop-Ups:
Private Sub Worksheet_Change(ByVal Target As Range)
    If WorksheetFunction.Sum(Range("C15:C30"), Range("C34:C62")) > 0 Then
        MsgBox "Pop 1!", vbInformation, "Pop-Up Eins"
    End If
    If WorksheetFunction.Sum(Range("C66:C71"), Range("C75:C80")) > 0 Then
        MsgBox "Pop 2!", vbInformation, "Pop-Up Zwei"
    End If
End Sub

Mit diesem Code kannst du zwei unterschiedliche Pop-Up Fenster für verschiedene Zellbereiche erstellen.


Tipps für Profis

  • Nutze Excel-VBA zur Automatisierung komplexerer Aufgaben.
  • Teste deine Makros in einer Kopie deiner Datei, um Datenverluste zu vermeiden.
  • Dokumentiere deinen Code, damit du und andere später verstehen, was jeder Teil des Codes bewirken soll.

FAQ: Häufige Fragen

1. Wie kann ich ein Excel Popup Fenster erstellen, das beim Öffnen der Datei erscheint?
Du kannst den folgenden Code im „ThisWorkbook“-Modul verwenden:

Private Sub Workbook_Open()
    MsgBox "Willkommen zu deinem Excel Konfigurator!"
End Sub

2. Ist es möglich, ein Excel Popup Fenster mit Eingabefeldern zu erstellen?
Ja, du kannst ein UserForm in VBA erstellen, um Eingabefelder zu integrieren, was dir ermöglicht, Daten direkt vom Benutzer abzufragen.

3. Kann ich ein Pop-Up Fenster in Excel verwenden, ohne VBA zu nutzen?
Ja, du kannst die Datenüberprüfung und bedingte Formatierung verwenden, um visuelle Hinweise zu geben, jedoch sind die Möglichkeiten begrenzt im Vergleich zu VBA.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige