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

Wenn A1>B1 bei Eingabe eine Messagebox

Forumthread: Wenn A1>B1 bei Eingabe eine Messagebox

Wenn A1>B1 bei Eingabe eine Messagebox
21.05.2006 14:19:51
Matthias
Hallo Leute !!
Ich möchte wenn bei der Eingabe von Werten in Zelle A1 kleiner ist wie B1 eine Messagebox erscheint.Aber nur wenn in B1 ein Wert eingegeben wird.
Wenn andere Zellen angesteuert werden soll keine Messagebox erscheinen.
Danke im vorraus
MfG Matthias
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn A1>B1 bei Eingabe eine Messagebox
21.05.2006 14:35:50
Beate
Hallo Matthias,
das Makro gehöhrt ins Codefenster der Tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And Target.Value < Range("A1").Value Then
    MsgBox "B1 ist kleiner als A1!"
End If
End Sub
Gruß,
Beate
Anzeige
AW: Wenn A1>B1 bei Eingabe eine Messagebox
21.05.2006 15:33:55
Matze
Danke für den Tipp
AW: Wenn A1>B1 bei Eingabe eine Messagebox
21.05.2006 14:39:30
Peter
Hallo Matthias,
Rechtsklick auf den Tabellenblattreiter des fraglichen Tabellenblattes und unter Code anzeigen
folgendes einfügen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
If Target.Value > Range("A1").Value Then
MsgBox "Ihre Eingabe in der Zelle B1 sollte kleiner sein" & Chr(10) & _
"als der Inhalt in Zelle A1. Bitte korrigieren", _
48, "    Hinweis"
End If
End If
End Sub

Dann mit Schließen-Kreuz verlassen und ausprobieren.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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