Ich suche für einen Wartungsplan einen Pop up das mich an Termine erinnert. Jede Maschine hat ein Blatt in einer Arbeitsmappe. Das Datum der Wartung steht immer in der selben Zelle. Wer kann mir helfen???
Danke
Grüße
Christian
Private Sub Workbook_Open()
If Date >= Sheets("tabelle1").[a1] Then
MsgBox "wartung fällig"
End If
End Sub
Sub test()
Dim blatt As Worksheet
Dim Meldung As String '
Dim Vorab As Integer 'wieviele tage vorher
Dim n As Integer
Meldung = ""
Vorab = 0 '0=heute
For Each blatt In Worksheets
For n = 3 To 7
If Date >= blatt.Cells(n, 4).Value + Vorab Then
Meldung = Meldung & blatt.Cells(n, 4).Value & blatt.Name _
& blatt.Cells(n, 2) & Chr(13)
End If
Next n
Next blatt
If Meldung <> "" Then
MsgBox "Folgende Wartungen sind durchzuführen: " & Chr(13) & Meldung
Else
MsgBox "Es stehen keine Wartungen an"
End If
End Sub
Sub test()
Dim blatt As Worksheet
Dim Meldung As String '
Dim Vorab As Integer 'wieviele tage vorher
Dim n As Integer
Meldung = ""
Vorab = '0=heute
For Each blatt In Worksheets
For n = 3 To 7
If Date >= blatt.Cells(n, 4).Value - Vorab Then
Meldung = Meldung & blatt.Cells(n, 4).Value & blatt.Name _
& blatt.Cells(n, 2) & Chr(13)
End If
Next n
Next blatt
If Meldung <> "" Then
MsgBox "Folgende Wartungen sind durchzuführen: " & Chr(13) & Meldung
Else
MsgBox "Es stehen keine Wartungen an"
End If
Meldung = ""
Vorab = 'in 2 tagen
For Each blatt In Worksheets
For n = 3 To 7
If Date >= blatt.Cells(n, 4).Value - Vorab Then
Meldung = Meldung & blatt.Cells(n, 4).Value & blatt.Name _
& blatt.Cells(n, 2) & Chr(13)
End If
Next n
Next blatt
If Meldung <> "" Then
MsgBox "Folgende Wartungen sind binnen " & vorab & Tagen "durchzuführen: " & Chr(13) & Meldung
Else
MsgBox "Es stehen in " & Vorab & "keine Wartungen an"
End If
End Sub
ALT + F11
, um den Visual Basic for Applications (VBA) Editor zu öffnen.Kopiere und füge den folgenden Code in das Editorfenster ein:
Private Sub Workbook_Open()
Dim blatt As Worksheet
Dim Meldung As String
Dim n As Integer
Dim Vorab As Integer ' Anzahl der Tage für Vorwarnung
Meldung = ""
Vorab = 0 ' 0 = heute
For Each blatt In Worksheets
For n = 5 To 10 ' Ändere dies je nach deinen Zellen
If Date >= blatt.Cells(n, 17).Value - Vorab Then ' Q5:Q10
Meldung = Meldung & blatt.Cells(n, 17).Value & " - " & blatt.Name & ": " & blatt.Cells(n + 20, 4) & Chr(13) ' D25:D30
End If
Next n
Next blatt
If Meldung <> "" Then
MsgBox "Folgende Wartungen sind durchzuführen: " & Chr(13) & Meldung
Else
MsgBox "Es stehen keine Wartungen an."
End If
End Sub
Fehler: „Kein Pop-up erscheint“
Lösung: Stelle sicher, dass Du die Arbeitsmappe als Makro-aktivierte Datei (.xlsm) gespeichert hast. Prüfe außerdem, ob Makros in den Excel-Optionen aktiviert sind.
Fehler: Falsche Zellen werden angezeigt
Lösung: Überprüfe die Zellreferenzen im Code und passe sie entsprechend der Struktur Deiner Excel-Tabelle an.
Wenn Du keine VBA-Makros verwenden möchtest, kannst Du auch die Bedingte Formatierung in Excel nutzen, um Zellen hervorzuheben, die Wartungsdaten enthalten. Diese Methode bietet jedoch keine Pop-up-Benachrichtigung.
Hier ist ein Beispiel, wie die Daten in Deiner Excel-Tabelle organisiert sein könnten:
Maschinenname | Wartungsdatum (Q-Spalte) | Wartungstätigkeit (D-Spalte) |
---|---|---|
Maschine 1 | 2023-10-15 | Ölen |
Maschine 2 | 2023-10-20 | Putzen |
Maschine 3 | 2023-10-25 | Überprüfen |
Mit dem oben beschriebenen VBA-Code erhältst Du beim Öffnen der Mappe eine Übersicht aller Wartungen, die an diesem Tag fällig sind.
Erweiterte Benachrichtigungen: Du kannst den Code so erweitern, dass er auch Erinnerungen für mehrere Tage im Voraus sendet, indem Du die Vorab
-Variable anpasst.
Erinnerung in Outlook: Du kannst die Erinnerung aus Excel in Outlook
nutzen, indem Du eine zusätzliche VBA-Funktion integrierst, die eine neue Outlook-Aufgabe erstellt.
Benutzerdefinierte Pop-up-Fenster: Du kannst das Aussehen des Pop-ups anpassen, indem Du Benutzerformulare in VBA erstellst.
1. Wie kann ich die Pop-up-Erinnerung anpassen?
Du kannst die Zellreferenzen und die Anzahl der Tage für die Erinnerung im VBA-Code ändern, um Deine spezifischen Anforderungen zu erfüllen.
2. Funktioniert dies in jeder Excel-Version?
Ja, die beschriebenen Funktionen sollten in Excel 2007 und neueren Versionen funktionieren, solange VBA unterstützt wird.
3. Kann ich das Pop-up auch für andere Zwecke nutzen?
Ja, Du kannst die gleiche Technik verwenden, um Benachrichtigungen oder Erinnerungen für andere Daten in Deiner Excel-Tabelle zu erstellen, indem Du die Zellreferenzen anpasst.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen