Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1656to1660
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

Dauerhafte Markierung von Zeilen

Dauerhafte Markierung von Zeilen
14.11.2018 16:08:56
Zeilen
Liebe Profis,
ich habe folgende Herausforderung.
Ich habe eine Liste von Wertpapieren (Spalten: Wertpapierkennummer, unterer Grenzwert,Überschreitung, Preis).
Die Preise werden durch einen automatischen Data-Feed ständig aktualisiert.
Ich möchte wenn ein Grenzwert erreicht bzw. unterschritten wird ein eMail (VBA) versenden. Dazu habe ich die Spalte Uberschreitung die den Fehlerwert 1 hat eingefügt.
Das funktioniert schon ganz gut.
Mein Problem: wenn der Preis am Grenzwert liegt und mal drunter und mal drüber liegt wird jedesmal ein Mail versandt (weilin Überschreitung 1,0,1,0,1,0,... steht). Diese Grenzüberschreitung sollte nur einmal (also bei der ersten Überschreitung des Tages) mittels Mail angezeigt werden.
Meine Idee ist daß in einer weiteren Spalte bei der ersten 1 in Überschreitung ein Wert dauerhaft geschrieben wird.
Wie kann ich das in VBA oder Formel darstellen?
Danke für eure Hilfe und beste Grüße
Stefan

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

Betreff
Datum
Anwender
Anzeige
AW: Dauerhafte Markierung von Zeilen
14.11.2018 17:35:12
Zeilen
Neue Spalte "EMail versandt" hinzufügen und im Makro, das die Mail verschickt, vor Mailversand prüfen lassen, ob diese Spalte (z.B. True) gesetzt ist (und nach dem Versand setzen lassen).
Oder ohne neue Spalte einfach durch das Makro nach dem Versand die Zell- oder Schriftfarbe ändern lassen
und vor dem Versand diese Farbe überprüfen lassen.
AW: Dauerhafte Markierung von Zeilen
20.11.2018 08:10:21
Zeilen
Hallo,
das übersteigt meine VBA Kenntnisse leider.
hättest du da einen code der das abbildet?
Danke & LG Stefan
benutze eine Boolsche Variable
20.11.2018 08:27:15
Matthias
Hallo
Zu Beginn hast die Variable den Wert False
Nach dem Senden setzt Du sie auf True.

Option Explicit
Public MyBool As Boolean
Sub sendeMail()
If Not MyBool Then
MsgBox "hier Mail senden"
MyBool = True
End If
End Sub
Gruß Matthias
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige