Klickbutton und Zeit ändern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Torge
Ganz einfach würde ich es so probieren:


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ThisWorkbook.Sheets(1).Range("A1").Value = Date + 2
End Sub

Mit diesem Code wird bei JEDER Änderung - egal in welchem Blatt, egal in welcher Zelle - in meinem Bsp das Datum in Zelle A1 auf das aktuelle Datum + 2 Tage gesetzt.
Eine Zelle, in der das Prüfdatum steht, ist erforderlich - und du kannst die Zelle ja anpassen - und natürlich auch ausblenden usw.
Damit dieser Vorgang nur 1x passiert (reicht ja), kannst du mit einer globalen Variabel arbeiten.


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If varEinmal = False Then
ThisWorkbook.Sheets(1).Range("A1").Value = Date + 2
varEinmal = True
End If
End Sub

Diese Variabel - hier varEinmal - muss im allgemeinen Modul mit Public deklariert werden.
Wenn diese Datumsrücksetzung nur bei Änderung in bestimmten Blättern geschehen soll, dann so:


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If varEinmal = False Then
If ActiveSheet.Name = "der blattname, in dem Datum zurückgesetzt werden soll" Then
ThisWorkbook.Sheets(1).Range("A1").Value = Date + 2
varEinmal = True
End If
End If
End Sub

Konnte ich helfen?
Ciao
Thorsten

Hallo Thorsten,
vielen Dank an der Stelle. Werde mich nachher ransetzen und ausprobieren. Sieht erstmal gut aus.
Ich verwende folgendnen Code bis jetzt:
Ablaufdatum = "15.09.2007"
Hier frage ich zunächst einen Zellwert ab, wenn nicht geändert wird, dann Datei löschen
If Sheets("Eingabe Finanzierungsplan").Range("J82") = 0 And DateDiff("d", Date, Ablaufdatum) < 0 Then
Meldung das gelöscht wird
MsgBox "Die Nutzungsdauer ist endgültig überschritten" _
& vbCr & "die Datei wird gelöscht."
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End If
Meldung, das Programm abläuft
If Sheets("Eingabe Finanzierungsplan").Range("J82") = 0 And DateDiff("d", Date, Ablaufdatum) < 30 Then
Dim Antwort
Antwort = MsgBox("Diese Programmversion kann nur noch kurze Zeit genutzt werden.", _
vbOKOnly + vbInformation, "Systeminformation", "", 0)
End If
End Sub
Hoffe ich kann das irgendwie verknüpfen.
Ich habe den Button in einem Tabellenblatt und der soll dann bei Klick diese Ablaufzeit ändern, wenn Wert in die Tabelle eingegeben wurden. Ich versuchs mal mit Deinem Vorschlag zu verknüpfen.
Also vielen Danke an der Stelle.
Wenn es nicht funktioniert, hoffe ich kann mich noch einmal bei Dir melden.
Gr. T

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread