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

Forumthread: Msgbox bei Wert>0 in "Q7"

Msgbox bei Wert>0 in "Q7"
Wolfgang
Hallo, an alle,
muss mich nochmal mit einem kleinen Problem an Euch wenden.
Wenn in "Q7" ein größerer Wert als 0 steht, soll eine Msgbox mit
folgender Nachricht eingeblendet werden:
"Achtung Fehler !
Bitte den letzten Daten-Eintrag korregieren."
Danke für die Hilfe
Mit Gruß
Wolfgang
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Msgbox bei Wert>0 in "Q7"
29.06.2011 20:53:53
Hajo_Zi
Hallo Wolfgang,
Option Explicit
Private Sub Worksheet_Calculate()
If Range("Q7") > 0 Then MsgBox "Falsch"
End Sub

AW: Msgbox bei Wert>0 in "Q7"
29.06.2011 20:58:02
Gerold
Hallo

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$Q$7" And Target.Value > 0 Then
MsgBox "Bitte den letzten Daten-Eintrag korregieren.", vbOKOnly, "Achtung Fehler !"
End If
End Sub
Mfg Gerold
Rückmeldung wäre nett.
Anzeige
AW: Hajo+Gerold, herzlichen Dank
29.06.2011 21:13:15
Wolfgang
Man, ihr seid ja schneller als der Blitz.
Beides funktioniert.
Nochmals danke.
Mit Gruß
Wolfgang
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige