Office: VBA

Hallo zusammen,

Hinsichtlich der Programmierung von MessageBoxen bin ich ein voller Anfänger. Allerdings habe ich mich schon durch viele Tutorials gelesen, finde aber immer noch keine Antwort auf mein Problem.

Und zwar möchte ich eine MsgBox aufrufen lassen, wenn in der Zelle E8 der Text "keine Kosten" steht. Der Text "keine Kosten" wird durch eine Wenn Formel in Excel erstellt, falls die Info für die VBA wichtitg ist.

Das Design der MessageBox habe ich schon: MsgBox "Prüfung kritisches Bauteil", vbExclamation + vbOKCancel, "Achtung"
Allerdings bekomme ich die If-Verknüpfung zu der Zelle und dem Text nicht hin. Könnt ihr mir dabei weiterhelfen?

Im zweiten Schritt würde ich gerne einen Schritt weiter gehen. Und zwar,wenn man in der MsgBox "Ok" anklickt , dass sich ein weiteres Dokument öffnen lässt und bei "Abbrechen" einfach die MsgBox schließen. Gerne reicht mir aber der erste Schritt schon!!!

Danke euch!

:)

 

Hallo,

ja, ist sie.

In das Codemodul der Tabelle, z. B. "Tabelle1"!
Code:

Grüße
EarlFred

 

Vielen Dank. Ich habe einen Teil von dir übernommen und so funktioniert es prima:

Private Sub Worksheet_Calculate()

If ActiveSheet.Range("E8").Value = "Keine Kosten" Then

If MsgBox(prompt:="Prüfung kritisches Bauteil", _
Buttons:=vbExclamation + vbOKCancel, _
Title:="Achtung") = vbOK Then
Workbooks.Open Filename:="file...."
End If


End If


End Sub



DANKE!

 

Hi,

mal eine Frage am Rande: weshalb verwendest du das Calculate-Ereignis? Dann wird die MsgBox doch bei jeder Berechnung im Tabellenblatt aufgerufen - ist das wirklich sinnvoll? Wäre es nicht besser, das Worksheet_Change-Ereignis zu verwenden und die Zellen zu überwachen, die Einfluss auf das Formelergebnis in Zelle E8 haben?

 

Hallo Karin,

wenn man die Zellen kennt und diese in einem überwachbaren Bereich liegen, dann ja.

Vielleicht würde ich es auch ganz anders lösen, z. B. über Daten / Gültigkeit, makrofrei.

Manchmal habe ich aber auch einfach keine Lust, das Denken für andere zu übernehmen und lasse die Dinge einfach mal so stehen, wie sie stehen. Soll die Box doch ruhig 10 mal aufpoppen - irgendwann wird der Anwender sich schon erbarmen und die gewünschten Daten eintragen.

Grüße
EarlFred