Countdown nach Vorbild Sparkasse

[schauan]

Hallöchen,

schaue mal da rein

[Klaus]

Oooohhaaa.... Vielen Dank. Den Teil mit "interval" beim stoppen des Timers hinzuzunehmen, darauf bin ich nun nicht gekommen...

Wenn die Datei jetzt über den abgelaufenen Timer geschlossen wird, dann funktioniert das ja perfekt.

Wenn man die Datei aber per rotes X schließt, dann fragt Excel nach ob gespeichert werden soll, schließt dann die Datei, löscht aber nicht.
Was müsste man denn ändern damit auch das korrekt klappt?

[schauan]

Hi Klaus,

dann eventuell so

[Klaus]

Hahaaa... wunderbar. Das funktioniert ja hervorragend. Genauso sollte es sein. Perfekt.
Ich könnt mir ein Loch in den Bauch freuen :D

Vielen, vielen Dank. 

Liebe Grüße
Klaus

[snb]

Alternative (und schau https://www.snb-vba.eu/VBA_Application.OnTime_en.html)

[Klaus]

Hallo snb :)

ist das nun ein Vorteil das direkt in die Tabelle zu schreiben? Oder eine Variante?

Normalerweise werde ich aus deinen codes ja nie schlau. Die sind immer fantastisch kurz, aber nachvollziehen kann ich das nie... umso mehr freut mich der Link zu der Webseite. Das ist genial beschrieben.
Genauso ist es perfekt. Herzlichen Dank hierfür.

Liebe Grüße
Klaus

[Klaus]

Huhu schauan,

würdest du mir nochmal helfen bitte, bitte?

Wie ich feststelle, ist mir was entgangen. :20: 

Mir fehlen doch noch zwei Fälle.

1. Wenn in A2 "Originaldatei" steht, muss ich die Datei über X schließen können, ohne das sie gelöscht wird.
   
2. Wenn in A2 "Originaldatei" steht, muss die Datei per Timer geschlossen werden, ohne das sie gelöscht wird.
   

Viele Grüße
Klaus

[schauan]

Hallöchen,

dann führen wir das Kill nur aus, wenn das nicht drin steht, im Modul Countdown, Sub stopp_myTimer ... :

If Range("A2").Value <> "Originaldatei" Then Kill .FullName

Eventuell wäre von Vorteil, noch konkret das Blatt in der Datei anzusprechen, falls Du mal eine andere Datei offen hast?

If ThisWorkbook.Sheets("Tabelle1").Range("A2").Value <> "Originaldatei" Then Kill .FullName

[Klaus]

Jahaaaa.... Hallo schauan, super. Mensch diese Variante hätte mir ja auch einfallen können. Menno... und ich versuche die ganze Zeit ein Konstrukt irgendwie um den Killcode drumrum zu stricken  :16:
 
Es klappt einwandfrei. Ich hab die zweite Variante genommen. Du hast natürlich Recht. Es sind später im Ablauf noch weitere Dateien offen.

Aber warum kann man denn bei dieser Schreibweise auf Goto, End if verzichten?

Liebe Grüße
Klaus

[schauan]

Hallöchen,

du hast zumindest Then in der Zeile Wenn nicht viel zu tun ist und alles in eine Zeile passt braucht man kein End If. Klappt sogar mit Else in einer Zeile ohne End If