Ab einem Datum Formeln in Werte umwandeln

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Fritz,
eines der folgenden beiden Makros tuts.
Variante 1:
Kopiert alle Daten und fügt die Werte in die Zellen


Private Sub Workbook_Open()
' wandelt alle Formeln in Werte um wenn Datum in A1 kleiner als Heute ist.
Dim Datum As Range, wks As Worksheet
Set Datum = ThisWorkbook.Sheets("Daten").Range("A1")
If Not IsEmpty(Datum) And Datum.Value < Date Then
For Each wks In ThisWorkbook.Worksheets
With wks
.UsedRange.Copy
.Cells(.UsedRange.Row, .UsedRange.Column).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
.Activate
.Range("A1").Select
End With
Next wks
ThisWorkbook.Sheets("Daten").Activate
End If
End Sub

Variante 2:
sucht alle Zellen, deren Formel-Inhalte mit einem Gleichheitszeichen beginnen.
Kleines Problem: Zellen, deren Inhalt mit Hochkomme und Gleichheitszeichen beginnen ('=). Hier wird der Text-Inhalt in eine Formel verwandelt.


Private Sub Workbook_Open()
' wandelt alle Formeln in Werte um wenn Datum in A1 kleiner als Heute ist.
Dim Datum As Range, wks As Worksheet, Zelle As Range
Set Datum = ThisWorkbook.Sheets("Daten").Range("A1")
If Not IsEmpty(Datum) And Datum.Value < Date Then
For Each wks In ThisWorkbook.Worksheets
For Each Zelle In wks.UsedRange
If Not IsEmpty(Zelle) And Left(Zelle.Formula, 1) = "=" Then
Zelle.Value = Zelle.Value
End If
Next Zelle
Next wks
End If
End Sub

Gruß
Franz

Private Sub Workbook_Open() ' wandelt alle Formeln in Werte um wenn Datum in A1 kleiner als Heute ist. Dim Datum As Range, wks As Worksheet Set Datum = ThisWorkbook.Sheets("Daten").Range("A1") If Not IsEmpty(Datum) And Datum.Value < Date Then For Each wks In ThisWorkbook.Worksheets Select Case wks.Name Case "Auswertung" wks.Unprotect Password:="Test" Case Else wks.Unprotect Password:="Fritz" End Select With wks .UsedRange.Copy .Cells(.UsedRange.Row, .UsedRange.Column).PasteSpecial Paste:=xlValues Application.CutCopyMode = False .Activate .Range("A1").Select End With Select Case wks.Name Case "Auswertung" wks.Protect Password:="Test", DrawingObjects:=True, Contents:=True, Scenarios:=True Case Else wks.Protect Password:="Fritz", DrawingObjects:=True, Contents:=True, Scenarios:=True End Select Next wks ThisWorkbook.Sheets("Daten").Activate End If End Sub

Beliebteste Forumthreads (12 Monate)

Ab einem Datum Formeln in Werte umwandeln

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

346 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ab einem Datum Formeln in Werte umwandeln

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

346 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread