Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1112to1116
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
Inhaltsverzeichnis

Automatische Nachricht

Automatische Nachricht
Tom
Hallo zusammen,
ich habe eine tabelle mit verschiedenen bedingungen. wenn nun in zelle c5 bis c50 "wahr" steht (kann auch in eine 1 oder sonst etwas geändert werden) würde ich gerne eine meldung erhalten "Termin erreicht".
Nun möchte ich jedoch nicht immer die Exceldatei öffnen um eine eventuelle Meldung zu erhalten.
Ist so etwas möglich?
Gruß Tom

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
ohne öffnen wird es nicht gehen oT.
25.10.2009 15:40:36
Tino
Möglichkeit gefunden
25.10.2009 16:08:20
Tino
Hallo,
eine Möglichkeit habe ich doch gefunden, funktioniert aber nur wenn Scripte nicht geblockt werden.
Also eine Textdatei im Odner der Datei erstellen und diesen Code einfügen
Dim sFormel, Wert
Dim oApp, SkriptPfad
SkriptPfad = WScript.ScriptFullName
SkriptPfad = Left(SkriptPfad, Len(SkriptPfad) - Len(WScript.ScriptName))
Set oApp = CreateObject("Excel.Application")
sFormel = "SUM('" & SkriptPfad & "[TestEx.xls]Tabelle1'!R5C3:R50C3)"
Wert = oApp.ExecuteExcel4Macro(sFormel)
oApp.Quit
Set oApp = Nothing
If Wert = 46 Then
MsgBox "Termin erreicht"
End If
Tabellennamen und Dateinamen noch anpassen.
Speichern und Textdatei schließen.
Danach diese auf die Endung .vbs umbenennen.
Diese kannst Du dann über Taskplaner von Windows beim Start aufrufen oder auch von Hand.
Der Wert 1 ist natürlich besser geignet als Wahr oder Falsch.
Gruß Tino
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige