Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
636to640
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MSG Box nur einmal erscheinen wenn...

MSG Box nur einmal erscheinen wenn...
15.07.2005 11:40:51
Andre
Hallo alle zusammen,
ich habe folgenden Code, der die Zellen A1 mit B1 vergleicht, und eine Meldung gibt, wenn der Wert größer ist als in Zelle B1. Mein Problem ist, das die Meldung nur einmal erscheinen soll quasi als Erinnerung, ob der Zellwert richtig eingegeben wurde. Beim nächsten Zellsprung, kommt wieder diese Meldung,weil der Wert ja immer noch größer ist. Kann mir jemand den Code umschreiben,so das die Meldung nur einmal erscheint.

Private Sub Worksheet_Change(ByVal Target As Range)
OldValue = ActiveSheet.Range("B1").Value
NewValue = ActiveSheet.Range("A1").Value
If OldValue < NewValue Then
MsgBox "Ist der Wert richtig!"
End If
End Sub

Danke im voraus!

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

Betreff
Datum
Anwender
Anzeige
AW: MSG Box nur einmal erscheinen wenn...
15.07.2005 11:44:57
Hajo_Zi
Hallo Andre,
Option Explicit
Dim BoZustand As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B1") < Range("A1") And BoZustand = False Then
MsgBox "Ist der Wert richtig!"
BoZustand = True
End If
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


Vielen Dank, funktioniert!!!
15.07.2005 12:02:18
Andre
Hanjo, Problem noch nicht gelöst!
15.07.2005 12:30:36
Andre
Hallo Hanjo,
Bei dem Zellvergleich in meinen Bsp. sind Formelergebnisse enthalten, die überprüft werden sollen ob der Wert größer ist, dafür benötige ich dieses Makro.
Kannst du mir bitte nochmals helfen.
Danke!
Anzeige
AW: Hanjo, Problem noch nicht gelöst!
15.07.2005 12:44:06
Hajo_Zi
Hallo Andre
Option Explicit
Dim BoZustand As Boolean

Private Sub Worksheet_Calculate()
If Range("B1") < Range("A1") And BoZustand = False Then
MsgBox "Ist der Wert richtig!"
BoZustand = True
End If
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
AW: Hanjo, Problem noch nicht gelöst!
15.07.2005 13:13:11
Andre
Hallo Hanjo,
dieses Makro zeigt wirklich nur einmal an, das der Formelwert größer ist, aber die MSG Box soll auch bei einer nächsten Formelwertveränderung, falls der Formelwert größer ist angezeigt werden aber nur für die Zellen A1 und B1
Ich hoffe du kannst mir auch diesmal helfen!
Anzeige
AW: Problem noch nicht gelöst!
15.07.2005 13:45:28
Hajo_Zi
Hallo Andre,
ich habe nicht dagegen, wenn Du mich mit Hajo ansprichts.
Option Explicit
Dim StwertA As String
Dim StwertB As String

Private Sub Worksheet_Calculate()
If StwertA = "" And StwertB = "" Then
StwertA = Range("A1")
StwertB = Range("B1")
End If
If Range("B1") < Range("A1") And (StwertA <> Range("A1") Or _
StwertB <> Range("B1")) Then
MsgBox "Ist der Wert richtig!"
StwertA = Range("A1")
StwertB = Range("B1")
End If
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Anzeige
Danke, genau das RICHTIGE!
15.07.2005 14:11:41
Andre

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige