Automatischer Hinweis, wenn bestimmte Bedingung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 7.0
nach unten

Betrifft: Automatischer Hinweis, wenn bestimmte Bedingung
von: Diana Nitzsche
Geschrieben am: 29.04.2002 - 16:35:06

Hallo,
ich habe ein Datumsfeld in meiner Datei und möchte, dass wenn dieses Feld das aktuelle Datum überschreitet, ein Hinweis beim Öffnen der Datei erscheint.

Ich danke für jede Hilfe

Grüße
Diana


nach oben   nach unten

Re: Automatischer Hinweis, wenn bestimmte Bedingung
von: Matthias
Geschrieben am: 29.04.2002 - 16:58:09

Hi Diana, die Funktion HEUTE() liefert dir das aktuelle Datum. Jetzt mußt du dein Feld mit dem Datum drin mit dem Heute-Feld vergleichen.Dafü reicht eine WENN-Prüfung. Den Wert aus der WENN-Prüfung liest du in eine Variable ein. Je nachdem was für ein Wert eingelesen ist gibst du eine andere MSG-Box aus.Das ganze muß in die auto_open Funktion in VB. Alles klar? MFG matze

nach oben   nach unten

Re: Automatischer Hinweis, wenn bestimmte Bedingung
von: Christian
Geschrieben am: 29.04.2002 - 17:03:10

Hallo Diana, mit dem nachfolgendem Code kann der User entscheiden ob das Datum aktualisiert werden soll oder eben nicht. Private Sub Workbook_Open() Dim Meld, Stil, Titel, Antwort, Text1 Meld = "Möchten Sie fortfahren ?" Stil = vbYesNo + vbCritical + vbDefaultButton2 Titel = "Datum aktualisieren" Antwort = MsgBox(Meld, Stil, Titel) If Antwort = vbYes Then Sheets(1).Range("A1") = Date Else End If End Sub Gruß aus dem Hessenland Christian

nach oben   nach unten

Re: Automatischer Hinweis, wenn bestimmte Bedingung
von: Diana
Geschrieben am: 29.04.2002 - 17:03:27

Hallo Matze, danke für Deine Hilfe. Aber was ist die auto-open Funktion in VB? GRuß Diana

nach oben   nach unten

Re: Automatischer Hinweis, wenn bestimmte Bedingung
von: Matthias
Geschrieben am: 29.04.2002 - 17:25:11

Hi Diana, die auto_open() Funktion wird bei jedem Aufruf der Arbeitsmappe ausgeführt.Du öffnest deine Mappe und der Code wird ausgeführt. Sub auto_open() ...... End Sub MFG matze

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Automatischer Hinweis, wenn bestimmte Bedingung"