Office: MessageBox erstellen

Hallo ihr,

ich hätte nochmals eine Frage:
Ich würde gerne eine MessageBox erscheinen lassen, sobald ein Wert >13,6 in der entsprechenden Zeile eingegeben wird.
Gebe ich diese Formel ein passiert jedoch nichts.


Sub Warnung()
If (F13 > 13.6) Then MsgBox ("Berechnung der Lademeter>13.6 nicht möglich")
End Sub


Kann mir hierzu jemand helfen.

Vielen Dank schonaml

:)

 

Hallo,

mit einer normalen Prozedur geht das auch nicht, da benötigst Du eine Ereignisprozedur:

Gruß, Muller2

 

vielen Dank für deine Antwort, wenn ich diese formel mit copy und paste bei mir einfüge funktioniert sie nicht....
könntest du mir mal erklären wie eine Option explizit formel aufgebaut ist?

 

Hallo,

ok da müssen wir wohl ganz vorne anfangen...*cool.gif*

Das ist VBA-Code, keine Formel, zum Einfügen in den VBA-Editior gehst Du auf Deinen Tabellen-Reiter >>> rechter Mausklick >>> Code anzeigen
und fügst ihn in das Modul ein.

Da dies eine Ereignisprozedur ist, wird der Code automatisch ausgeführt...

Hope that helps,
Gruß, Muller2

 

meinst du mit "meinem Tabellen reiter" die entsprechende Zelle, auf die sich die message box beziehen soll?

 

Hallo,

NEIN!

Ein Bild sagt mehr als tausend Worte, das ist ein Tabellenreiter:





Gruß, Muller2

 

Moin,

F13 wäre eine Variable - um solche Fehler zu vermeiden, sollte jedes Modul mit Code:

beginnen.

Wenn das Feld F13 angesprochen werden soll, dann mit
Code:

Was schwerer wiegt: Wer ruft die Sub denn auf?

 

Hallo,

ähem, die Event-Prozedur weiter oben hast Du aber schon gesehen...drambeldier...??*rolleyes.gif*

Gruß, Muller2

 

Hallo Ralf,

da nehme ich lieber Cells(13, "F"), sonst kommte ich ab Spalte 11 ducheinander beim Finger abzählen!

Gruß von Luschi
aus klein-Paris

 

Ich wollte nicht wissen, was Du tätest, sondern was der TE tut.

 

Hallo0 Ralf,

dem TE ist das sowieso ein bischen zu hoch, um was wir hier scharmützeln.

Gruß von Luschi
aus klein-Paris

PS: und der Vorschlag von Muller2 ist sowieso mein Faforit.

 

Hi Luschi,

die vorige Antwort war nicht für Dich, sondern für Muller2.

Ansonsten hast Du wohl recht, deswegen versuche ich rauszukriegen, was der TE treibt bzw. ob er überhaupt Ereignisse kennt.

 

ok, irgendwie bekomme ich es echt nicht hin.

Könnte mir jemand einfach nochmal den Code schicken den ich in das VBA eingeben muss?

Löse ich das makro manuell aus, so funktioniert es.

Sub Datenüberprüfung()
If Range("H13") > 13.6 Then MsgBox ("Größtmögliche Lademetereingabe ist 13,6")
End Sub

Jetzt sollte die MessageBox ausgelöst werden, sobald ein Wert > 13.6 in Zelle H13 eingegeben wird


Ich würde mich echt freuen, wenn mir jemand helfen kann

 

Hi,

frag Tante Gurgl nach "VBA Ereignis", dann verstehst Du, was Muller 2 geschrieben hat: