Schleifendurchlauf abh. von Zellwert
07.09.2022 07:48:49
Zellwert
Ausgangspunkt ist, dass ein Excelblatt nach mehreren Bedingungen gefiltert wird. Dann wird R1 markiert und die Schleife abgerufen. (In jeder sichtbaren gefilterten Zelle soll das heutige Datum eingetragen werden)
In der Regel genügt es die Schleife 100 mal durchlaufen zu lassen, langfristig könnte es sein, dass ich mehr als 100 Läufe benötige.
In Zelle AL1 habe ich eine Formel hinterlegt, die täglich ermittelt, wie oft die Schleife tatsächlich laufen müsste.
Kann man die Schleife so schreiben, dass sie den Zellinhalt von AL1 prüft und so häufig die Schleife laufen lassen?
Sub Makro2()
Dim x As Long
For x = 1 To 100
ActiveCell.Offset(1, 0).Resize(1000).SpecialCells(xlCellTypeVisible).Cells(1, 1).Activate
ActiveCell.FormulaR1C1 = "=TODAY()"
Next
End Sub