Popup Nachricht die nicht immer erscheinen soll

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael!
Arbeitest Du hier absichtlich mit einem Shell.Popup? Dafür tut's doch eine einfache Msg-Box auch, und damit würde ich dann so vorgehen: Erfasse das Klicken auf "OK" nach der Meldung in irgendeiner freien Zelle, auf einem beliebigen Blatt, sowie das Datum des "OK"-Klicks. Am Anfang des Codes wird dann geprüft, ob dieser Kontroll-Wert schon vorhanden ist. Am Anfang eines Monats werden einfach etwaige Kontrollwerte zurückgesetzt.
Du brauchst drei globale Konstanten:

Public Const OkBest As String = "A1" 'anpassen
Public Const OkDat As String = "A2" 'anpassen
Public Const OkBlatt As String = "Tabelle1" 'anpassen

In Deinem Schaltflächen-Code folgende Ergänzung:

Sub CommandButton54_Click()
Dim Warnung
If Tabelle1.Range(OkBest)  1 Then
Warnung = MsgBox("Monatliche Sicherung durchgeführt?", vbOKCancel, _
"Erinnerung")
If Warnung = vbOK Then
With Worksheets(OkBlatt)
.Range(OkBest).Value = 1
.Range(OkDat).Value = Date
End With
End If
End If
'Restlicher Code...
End Sub

Und beim Öffnen der Mappe setzt Du am Anfang eines neuen Monats einfach die Kontrollzellen zurück (im Klassenmodul der Mappe):

Private Sub Workbook_Open()
If Month(Date) > Month(Worksheets(OkBlatt).Range(OkDat)) Then
With Worksheets(OkBlatt)
.Range(OkBest).Clear
.Range(OkDat).Clear
End With
End If
End Sub

LG
Michael

Servus Michael!
Ich sehe, dass ich noch sehr viel lernen muss
Dazu lernen kann man immer; das ist doch was Positives. Ich lern ständig Neues in Excel/VBA - nur nicht glauben, dass man schon alles kennt, das macht blind ;-).
Ich gelobe Besserung.
Du stehst hier nicht vor dem Pranger, jeder macht seine Fehler. Ich habe Dir das nicht geschrieben um Dich anzuklagen, sondern als "Stubser" in die richtige Richtung. Das was mir persönlich bisher am meisten in VBA (aber Excel generell) gebracht hat, war übersichtlich zu arbeiten. D.h. immer Option Explicit setzen, alle Deklarationen an den Anfang des Moduls, Einrückungen verwenden (damit man sieht wo beginnt zB eine Schleife, wo endet sie und was passiert dazwischen)...
Tip, wie ich das von Grund auf richtig erlernen kann (z.B. Buchempfehlung).
Da wird Dir vermutlich jeder was anderes raten, da jeder für sich selbst anders lernt. Wenn Du bisher mit Programmierung/Skripten wenig bis nichts am Hut hattest, dann empfehle ich schon mal einen kleinen Kurs zu belegen (schau Dich mal in der Nähe bei Dir um - der Erwachsenenbildungsmarkt sollte da schon was hergeben). Da reichen Dir ja ein paar Tage, damit Du mal was von Variablen, Konstanten und Programmstrukturen in VBA hörst/lernst - und auf dieser Basis setzt Du dann mit Übung auf. Wenn die Grundlagen da sind tust Du Dir auch leichter bei der Recherche hier im Forum (sehr gut um sich weiterzuentwickeln, zum Lernen vermutlich etwas heftig) oder in den Weiten des Internet. Sehr gute Lehrmaterialien gibt es auch hier bei Herber, als Einstieg zB https://www.herber.de/wiki.html. Und natürlich nicht die integrierte Hilfe bei Excel bzw. in VBA vergessen - oft stehen da wichtige Hinweise, die Dich im Programmieren weiterbringen.
Viel Erfolg noch!
Michael

Beliebteste Forumthreads (12 Monate)

Popup Nachricht die nicht immer erscheinen soll

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Popup Nachricht die nicht immer erscheinen soll

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread