Hi Dennis,
ich hoffe ich hab das richtig verstanden...
Wenn F1 < Heute, dann ersetze alle befüllten Zellen in Spalte F durch Werte (woher kommen die?)
In etwa so (als Denkanstoß) :)
Sub ersetze()
If Cells(1, 6).Value < Cells(1, 1).Value Then
Range(Cells(2, 1), Cells(7, 1)).Copy
Range(Cells(2, 6), Cells(7, 6)).PasteSpecial
End If
End Sub
Das ganze kannst du dann ggfs. in eine Schleife packen...
Grüße, Heiko
|