Office: Pop Up Benachrichtigung beim Start wenn wert unter 30

Hallo zusammen,

Ich möchte das eine Pop Up Benachrichtigung kommt wenn ich die Excel Datei öffne und der wert in eine Tabelle unter 30 liegt, habt ihr dafür eine Lösung ich finde nix im Internet was mir zusagt.

Oder nach besser wäre wenn eine E-Mail versendet wird auch wenn die Datei nicht geöffnet wird aber ich glaube das funktioniert nicht oder ?

 

Hallo,

unpräziser geht es wohl kaum noch !!

In der beiliegenden Excel-Datei habe ich dir ein VBA-Makro in das Codemodul der Arbeitsmappe eingefügt. Dieses wird automatisch gestartet, wenn die Arbeitsmappe geladen/geöffnet wird. Es erscheint eine Messagebox, falls im Arbeitsblatt "Tabelle1" in der Zelle A1 eine Zahl kleiner 30 enthalten ist.

Das überlasse ich dir, dies zu programmieren.

 

Sorry war im stress :D

Hätte da noch eine frage warum kommt

Code:

Wrt = Range("Kalibrierung!E2:E15").Value

hier Typ unverträglich.

 

Wrt nicht als Array definiert
Dim Wrt()
Den Restr des Codes passt Du an, das war ja Deine Idde das es ein Array sein soll.

 

Wenn ich

Code:

Dim Wrt()

setze kommt Typ unverträglich von

Code:

Private Sub Workbook_Open()

ich bin nen kompletter Anfänger was Programmieren angeht...

Der komplette Code nochmal:

Code:

Option Explicit

Private Sub Workbook_Open()
  Dim Wrt()
  Dim Wrt2()
  Wrt = Range("Kalibrierung!E2:E15").Value
  Wrt2 = Range("Kalibrierung!B2:B15").Value
  If Wrt < 30 Then
     MsgBox Prompt:="Der Testo aus Box " & Wrt2 & " muss bald zur Prüfung, es sind nurnoch " & Wrt & " Tage!", _
            Title:="Testo Kalibrieren!"
  End If
End Sub

 

Du schreibst wrt < 30, das ist falsch. Du musst schon schreiben welchen Wert im Array Du prüfen willst.
z.b. Wrt(3)

Gruß Hajo

 

und wie würde so eine abfrage dann aussehen, ich kann mir darunter leider nix vorstellen

 

if Wrt(3)<30 then

ich kann zu Deinem Programm nichts schreiben, es war Deine Idee einn Array zu benutzen aus welchem Grunde auch immer.
Den Grund kennst nur, Du also musst Du das Programm auch erstellen.
Viel Erfolg noch.
Ich bin dann raus.

Gruß Hajo