hallo zusammen,
ich habe mir eine kleine Tabelle gebastelt wo ich alleine nicht so recht weiter komme.
Ich würde gerne folgendes mit einem Makro erreichen:
Wenn ich das Makro starte,
soll es in in der Spalte A [A2:A100] nach dem heutigen Datum suchen und in gleicher Zeile Spalte C den Wert um 1 erhöhen.
Wird das Datum nicht gefunden, passiert nichts.
Wäre nett, wenn mir da jemand auf die Sprünge helfen könne.
Danke schon mal
Holger
soll es in in der Spalte A [A2:A100] nach dem heutigen Datum
suchen und in gleicher Zeile Spalte C den Wert um 1 erhöhen.
Wird das Datum nicht gefunden, passiert nichts.
Hallo Holger,
wenn das heutige Datum in A mehrmals auftauchen kann muß man den Code erweitern.
Sub tt()
Dim Such As Range
Set Such = Range(„A2:A100“).Find(Date)
If Not Such Is Nothing Then Such.Offset(0, 2) = Such.Offset(0, 2) + 1
End Sub
Gruß
Reinhard
Eingebaut und funktioniert,
DANKE und LG
Holger