Hallo zusammen,
ich durfte schon gute Erfahrungen mit dem Forum hier sammeln.
Folgendes einfach Visual Basic Problem. (ich habe leider 0 Ahnung von Visual Basic Programmierung)
Ich habe eine Spalte (Fehlerprozess) unter dieser gibt es die Einträge "Fehlerprozess abgeschlossen" und "Termin überschritten".
Nun möchte ich eine MSG Box angezeigt bekommen, sobald es eine Zelle in dieser Spalte mit dem Inhalt"Termin überschritten" kommt. In der MSG Box soll stehen "Achtung! Termin eines Fehlerprozesses überschritten".
Diese MSG Box sollte auch nach Öffnen des Excel Dokuments erscheinen (also quasi dieses Programmierung kurz durchführen bei öffnen der Datei).
Ich hoffe ein ausgefuchster Visual Basic Programmierer kann mir hierbei vielleicht ein kurzes Programm eintippen.
Ich freue mich über Antworten.
Update: Habe jetzt versucht ein Programm zu schreiben. Allerdings führt es nicht das aus, was ich oben beschrieben habe. Hat einer eine Idee, worans liegen könnte?
Private Sub Worksheet_Calculate()
If Cells(1, 100) = "Termin überschritten" Then
MsgBox = "Termin überschritten."
End If
End Sub
ich durfte schon gute Erfahrungen mit dem Forum hier sammeln.
Folgendes einfach Visual Basic Problem. (ich habe leider 0 Ahnung von Visual Basic Programmierung)
Ich habe eine Spalte (Fehlerprozess) unter dieser gibt es die Einträge "Fehlerprozess abgeschlossen" und "Termin überschritten".
Nun möchte ich eine MSG Box angezeigt bekommen, sobald es eine Zelle in dieser Spalte mit dem Inhalt"Termin überschritten" kommt. In der MSG Box soll stehen "Achtung! Termin eines Fehlerprozesses überschritten".
Diese MSG Box sollte auch nach Öffnen des Excel Dokuments erscheinen (also quasi dieses Programmierung kurz durchführen bei öffnen der Datei).
Ich hoffe ein ausgefuchster Visual Basic Programmierer kann mir hierbei vielleicht ein kurzes Programm eintippen.
Ich freue mich über Antworten.
Update: Habe jetzt versucht ein Programm zu schreiben. Allerdings führt es nicht das aus, was ich oben beschrieben habe. Hat einer eine Idee, worans liegen könnte?
Private Sub Worksheet_Calculate()
If Cells(1, 100) = "Termin überschritten" Then
MsgBox = "Termin überschritten."
End If
End Sub