1 Frage zu Wertueberpruefung

Um in Excel per VBA eine Messagebox erscheinen zu lassen, wenn eine Zelle einen bestimmten Wert unterschreitet, kannst du das Worksheet-Change-Ereignis verwenden. Hier ein Beispiel, wie du das umsetzen kannst: Angenommen, du möchtest überwachen, ob der Wert in Zelle A1 kleiner als 10 ist: 1. Öffne den VBA-Editor mit **ALT + F11**. 2. Doppelklicke im Projekt-Explorer auf das entsprechende Arbeitsblatt (z. B. „Tabelle1“). 3. Füge folgenden Code ein: ```vba Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then If IsNumeric(Target.Value) Then If Target.Value < 10 Then MsgBox "Der Wert in A1 ist kleiner als 10!", vbExclamation End If End If End If End Sub ``` **Erläuterung:** - Das Makro prüft, ob die geänderte Zelle A1 ist. - Es wird geprüft, ob der Wert numerisch ist. - Ist der Wert kleiner als 10, erscheint eine Messagebox. Du kannst den Zellbereich und den Schwellwert nach Bedarf anpassen.