Hi Dennis,
folgendes zum Probieren:
Sub ersetze()
Dim i As Integer
Dim LastLine As Integer 'findet die letzte Zeile in der Spalte i
Dim LastColumn As Integer 'findet die letzte befüllte Spalte in Zeile 1
LastColumn = Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column
For i = 6 To LastColumn Step 1
LastLine = Sheets(1).Cells(Rows.Count, i).End(xlUp).Row
If Cells(1, i).Value < Cells(1, 1).Value Then
Range(Cells(2, i), Cells(LastLine, i)) = Range(Cells(2, i), Cells(LastLine, i)).Value
End If
Next i
End Sub
Prämissen:
- In Jeder Spalte in Zeile 1 steht irgendein Wert, auch vor Spalte F(!)
- In Zelle A1 steht das heutige Datum(!)
Probier es mal, sollte funktionieren
Grüße, Heiko
|