Formel gegen Werte austauschen bei bestimmten Datu
01.04.2015 12:05:38
Toumas
leider habe ich mal wieder ein kleines Problem und hoffe ihr könnt mir ein Tipp geben.
Ich habe eine Liste in der von Zeile 1-12 (z.b. O1-O12) (Geht von O-LH)jeweils Formeln stehen. In Zeile 14 steht jeweils ein Datum.
Jetzt soll mir ein Makro am gestrigen Tag, in der entsprechenden Spalte (z.B. O1-O12)die Formeln durch die Werte ersetzen, so dass diese sich für die Zukunft nicht mehr ändern können.
Beispiel (da ich von hier keine Datei hochladen kann :
In Zelle O14 steht das Datum 31.03.2015, heute ist der 01.04.2015. Das Makro sucht nun in der Reihe 14 (O-LH) das Datum vom Vortag (also 31.03.2015) und ersetzt nun die Formeln die in O1-O12 stehen durch die entsprechenden Werte.
Das Makro zum finden des Tages habe ich schon :
Sub Datum_vom_Vortag_finden()
'Findet die Zelle mit dem heutigen Datum ()
Sheets("TEST").Select
Dim rg As Range
Set rg = ActiveSheet.Columns("o:LH").Find(Date - 1, , xlFormulas)
If Not rg Is Nothing Then
rg.Activate
Else
MsgBox "Datum " & Date & " leider nicht gefunden"
End If
Set rg = Nothing
End Sub
Aber irgendwie schaffe ich es nicht dort ein Makro einzubauen, dass mir die Formeln in der entsprechenden Spalte und nur der Spalte gegen die Werte austauscht.
(Makros zum Austauschen der Formel gegen den Wert finde ich hier ja, aber die Kombination macht es aus ;-) )
Für Hilfe wäre ich sehr dankbar.
Viele Grüße
Toumas