Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
764to768
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige