Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Messagebox zu Uhrzeit wenn Bedingung

Forumthread: Messagebox zu Uhrzeit wenn Bedingung

Messagebox zu Uhrzeit wenn Bedingung
05.01.2006 08:49:06
Daniel
Hallo!
Ich möchte gerne in einer Datei eine Warnmeldung einbauen.
Und zwar möchte ich um 08:45 Uhr eine Messagebox haben, wenn
im Blatt "Aúswertung" in der letzten gefüllten Zelle der Spalte A, nicht das heutige Datum steht.
Wie macht man so etwas?
Grüße,
Daniel
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Messagebox zu Uhrzeit wenn Bedingung
05.01.2006 09:19:22
Peter
Hallo Daniel,
das beigefügte Makro könnte das erledigen, es muss nur ständig aufgerufen werden:


\plain\f2\fs20Sub\plain\f2\fs20  DatumsPruefung()
\plain\f2\fs20Dim\plain\f2\fs20  lLetzte  \plain\f2\fs20As\plain\f2\fs20  \plain\f2\fs20Long\plain\f2\fs20
\plain\f2\fs20Dim\plain\f2\fs20  VglZeit  \plain\f2\fs20As\plain\f2\fs20  Date: VglZeit = "09:15"
   \plain\f2\fs20'Worksheets("Auswertung").Activate
\plain\f2\fs20
   \plain\f2\fs20With\plain\f2\fs20  Worksheets("Auswertung")
      \plain\f2\fs20If\plain\f2\fs20  Now > VglZeit \plain\f2\fs20Then\plain\f2\fs20
         lLetzte = IIf([A65536] > "", 65536,[A65536].End(xlUp).Row)
         \plain\f2\fs20If\plain\f2\fs20  Range("A" & lLetzte).Value <> Date \plain\f2\fs20Then\plain\f2\fs20
            MsgBox "Das heutige Datum wurde noch nicht eingegeben!", _
               16, "    Hinweis für " & Application.UserName
         \plain\f2\fs20End\plain\f2\fs20  \plain\f2\fs20If\plain\f2\fs20
      \plain\f2\fs20End\plain\f2\fs20  \plain\f2\fs20If\plain\f2\fs20
   \plain\f2\fs20End\plain\f2\fs20  \plain\f2\fs20With\plain\f2\fs20
\plain\f2\fs20End\plain\f2\fs20  \plain\f2\fs20Sub\plain\f2\fs20 \


Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Messagebox zu Uhrzeit wenn Bedingung
05.01.2006 09:20:46
MichaV
Hallo Peter,
ohne Dein Makro ins VBA übersetzt zu haben ;o)
...lass es ihn doch mit Application.OnTime aufrufen.
Gruß- Micha
AW: Messagebox zu Uhrzeit wenn Bedingung
05.01.2006 09:24:30
Peter
Hallo Daniel,
hier das 'richtige' Makro:

Sub DatumsPruefung()
Dim lLetzte  As Long
Dim VglZeit  As Date: VglZeit = "09:15"
'Worksheets("Auswertung").Activate
With Worksheets("Auswertung")
If Now > VglZeit Then
lLetzte = IIf([A65536] > "", 65536, [A65536].End(xlUp).Row)
If Range("A" & lLetzte).Value <> Date Then
MsgBox "Das heutige Datum wurde noch nicht eingegeben!", _
16, "    Hinweis für " & Application.UserName
End If
End If
End With
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Messagebox zu Uhrzeit wenn Bedingung
05.01.2006 09:32:10
Daniel
Hallo Peter,
also ich habe ins Makro 09:32 eingegeben und um 09:30 ausgeführt.
Dann kam sofort der Warnhinweis. Der soll aber erst kommen wenn es 09:30 ist.
Und dann auch nur 1 Mal.
Und wie kann ich das Makro beim start der Datei aufrufen?
Grüße,
Daniel
AW: Messagebox zu Uhrzeit wenn Bedingung
05.01.2006 09:59:43
MichaV
Hallo,
dieses Makro in den Codebereich "Diese Arbeitsmappe"

Private Sub Workbook_Open()
Application.OnTime TimeValue("9:32:00"), "DatumsPruefung"
End Sub

Peters Code (bei mir ungetestet) muss in ein allgemeines Modul.
Guckst Du: Wie und wo fügt man ein Makro bzw. Code ein
Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Messagebox zu Uhrzeit wenn Bedingung
05.01.2006 10:17:26
Daniel
Ok, wenn ich aber mehrere Dateien geöffnet habe, dann bringt er einen Fehler, wenn ich in einer anderen Datei "unterwegs" bin und nicht das Sheet in der Datei geöffnet habe.
Kann man das umgehen?
Also die Messagebox sollte kommen, egal in welcher Datei und welches Programm im Vordergrund offen ist.
Danke,
Daniel
Anzeige
;

Forumthreads zu verwandten Themen

VBA-Werte aus Spalte in ComboBox
andreas

Hallo zusammen,
habe ein Formular da möchte ich die Daten nach den Werten in Spalte D Filtern. Dazu sollen die Daten ab Zeile 11 alphabetisch geordnet und jeder Eintrag nur einmal angezeigt in die Combobox eingelesen werden. Der ausgesuchte Wert wird dann als Criterium für die Filterfunktio...
25.09.2008 08:47:11
Thread-ID: 1012218
7 Beiträge
Checkbox in Zelle per VBA
UweD

Hallo Leute
ich brauche mal Hilfe vom VBA-Profi
Per VBA möchte ich
1) eine Checkbox (aus Formularsteuerungsliste) in einer bestimmten Spalte in Zeile 1 einfügen checkbox.add(....)
2) Dann Bezug auch auf diese Zelle setzen.
3) Namen ändern...
2) und 3) krieg ich sicherl...
17.10.2008 13:57:00
Thread-ID: 1017152
3 Beiträge
VBA Infobox
Baywatch

Hi,
ich habe folgenden Code ür eine Infobox wennd as Programm gestartet wird, leider weiß ich nicht warum die letze Zeile nicht mehr mit Angzeigt wird. Ich denke, dass es mit der Leerzeile zusammenhängt danke für Eure Hilfe.
Private Sub Workbook_Open() Dim loI Dim WsShell Set WsShell...
11.11.2008 16:48:00
Thread-ID: 1023612
8 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Steuerelement Listbox1 in tabelle wird in VBA n
Mike

Hallo
Ich habe in einer Tabelle aus der Symbolleiste Steuerelemente ein Listenfeld in eine Tabelle eingefügt. Der Objektname lautet "Listbox1".
Über ein Makro will ich nun diese Listbox füllen.
Listbox1.additem "Text"
wenn ich das Makro ausführen wird die Listbox1 jedoc nicht ge...
28.11.2008 11:59:00
Thread-ID: 1028645
3 Beiträge
Wenn dann mit VBA und Makro starten
Thomas

Hallo guten Morgen liebe Helfer,
ich komme mit einer Wenn Dann Formel im VBA nicht klar. Wer kann mir bitte helfen.
WENN Zelle C1 = OK DANN starte Makro1 sonst MsgBox "Eingabe leider falsch"
Ich schaffe es einfach nicht das ich innerhalb der Abfrage ein Makro starten lasse möchte we...
31.01.2009 09:18:37
Thread-ID: 1045583
4 Beiträge
Anzeige
Listbox mit verschiedenen Einträgen mit VBA ausles
Erik

Hallöle.
Folgende Situation:
Auf einem Excel-Sheet liegt eine Listbox. Hier sind unterschiedliche Werte eingetragen die auch einzeln markiert werden können.
Wie lese ich die Listbox mit einem Macro aus und wie vergebe ich ggf. dem Formular-Element einen Namen? Ich möchte dahin komm...
02.02.2009 14:46:09
Thread-ID: 1046261
5 Beiträge
per VBA eine ListBox füllen
Peter

Guten Morgen!
Dank der freundlichen Unterstützung von Tino konnte ich meine Datei bis hierher erstellen.
Ich habe folgendes Problem:
Wenn über die Userform Daten eingegeben werden, werden diese einmal in die Seite Gesamt geschrieben und dann noch in die Seite des ausgewählten Verein...
10.03.2009 08:50:59
Thread-ID: 1058467
13 Beiträge
Messagebox verschwindet nicht automatisch
Thomas

Hallo liebe EXCEL-Gemeinde,
ich möchte das eine Messagebox automatisch nach x Sek. verschwindet.
Die beiden Standardlösungen hab ich auch gefunden.
Leider funktioniert das mit dem verschwinden nicht.
Public Sub test() Dim objShell As Object Set objShell = CreateObject("WScript...
11.03.2009 11:31:19
Thread-ID: 1059042
8 Beiträge
VBA InputBox
Einzel

Hallo,
habe folgenden CODE
Sub Bemerkung() Dim Eingabe As String Dim erg% Text = InputBox("Bitte geben Sie einen Wert für ein:", "Dateneingabe:") Range("B6").Value = Text End Sub
Nun möchte ich aber, das wenn in z.B. B6 schon was steht er den Inhalt in z.B. B7 einträgt. usw.
...
18.06.2009 14:21:23
Thread-ID: 1082593
3 Beiträge
TextBox mit Index füllen via VBA
chrissey

Hallo Leut, guten Morgen,
habe folgendes Problem:
habe in einer UserForm eine TextBox (TextBox1 ) und möchte diese jetz über
einen Index Verweis kombiniert mit einer Vergleichen Funktion in einem Sub
(ComboBox1_initialize) füllen. Die Formel sieht folgendermaßen aus:
INDEX(...
03.11.2009 09:57:58
Thread-ID: 1114009
5 Beiträge
VBA Inputbox Type Parameter Problem
Bernhard

Liebes Forum,
bislang (Excel 2003) war es möglich eine Variable aus einer Inputbox auszulesen und mit Type:=0 konnte man außerhalb der Inputbox auf eine Zelle klicken - die Zelladresse wurde dann in die Inputbox übernommen und konnte ausgewertet werden.
Beispiel:
str_cell_input =...
20.01.2010 15:00:09
Thread-ID: 1131397
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige