Abhängig vom Datum, Formeln durch Werte ersetzen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Acaz,
...zB so:

Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet, c As Range
For Each Ws In Wb.Worksheets
If CDate(Ws.Range("A1")) > Date + 45 Then
For Each c In Ws.UsedRange.SpecialCells(xlCellTypeFormulas)
c.Value = c.Value
Next c
End If
Next Ws
Set Wb = Nothing: Set Ws = Nothing: Set c = Nothing
End Sub

...wenn (!) Du auf den jeweiligen Blättern in einer Zelle das jeweilige Kriteriums-Datum einträgst; denn bezogen auf Deine Bsp-Datei ist aus den Blättern selbst nicht ersichtlich, ob es sich um ein Blatt "01.05.18" oder "01.06.18" handelt. In meinem Code-Bsp gehe ich davon aus, dass in Zelle A1 jedes Blattes das Ausgangsdatum steht (also etwa "01.05.18"); das Makro geht alle Blätter durch und vergleicht dann diesen Zellwert mit dem heutigen Datum (also Datum des Makro-Durchlaufs) + 45 Tage und ersetzt ggf. die Formeln mit Werten.
LG
Michael

Hallo Michael,
vielen Dank für den Schubser :-)
Klappt wunderbar, nur leider ist das aufgrund meines Aufbaus etwas problematisch auf eine Zelle zu verweisen.
Ich versuche nochmals präziser zu formulieren, auch weil du es angemerkt hast, dass es aus meiner Bsp-Datei nicht hervorging, wie die Zuordnung erfolgen soll.
Ich möchte in VBA festlegen, dass Tabelle1 (unabhängig vom Namen) = Datum X ist (z.B. 01.05.2018)
Für jedes weitere Tabellenblatt in der Arbeitsmappe soll sich dann der Monatswert erhöhen.
D.h. Tabelle2 (unabhängig von der Benennung) soll dann der Datumswert 01.06.2018 zugewiesen werden usw.
Der Rest klappt ja mit deinem Code bereits perfekt!
Würde mir echt sehr weiterhelfen, wenn du dafür ggf. noch einen Vorschlag hast.
MfG,
Acaz

Sub a() 'Start-Datum für 1. Blatt, zB 01.05.2018 Const STARTD& = 1 Const STARTM& = 5 Const STARTY& = 2018 Dim Wb As Workbook: Set Wb = ThisWorkbook Dim i&, c As Range For i = 1 To Wb.Worksheets.Count If DateSerial(STARTY, STARTM + i - 1, STARTD) > Date + 45 Then With Wb.Worksheets(i) For Each c In .UsedRange.SpecialCells(xlCellTypeFormulas) c.Value = c.Value Next c End With End If Next i Set Wb = Nothing: Set c = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Abhängig vom Datum, Formeln durch Werte ersetzen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Abhängig vom Datum, Formeln durch Werte ersetzen

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

316 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread