Datumsbereich finden über VBA
11.02.2019 14:08:25
Georg
in einer Datei befinden sich Blätter, die einen Monat darstellen.
In Zeile C stehen der Wochentag (über Format DDD), in Zeile D das Datum
Wie kann ich den rngDatum dynamisch in Abhängigkeit der Anzahl Tage Monate bestimmen und weiterverwenden (hier ersetzen durch)?
Mein bisherige Lösung, die nich funktioniert: Objekt oder With Variable nicht festgelegt.
Vielen Dank Gruß G
Sub Datum()
dim i as Long
dim rngDatum as Range
For i = 4 To 15
With ThisWorkbook.Worksheets(i)
Set rngDatum = .Range("C2:AG3").Find(What:=Date, LookIn:=xlValues)
rngDatum.replace What:="2025", Replacement:="2019", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
Next i
End Sub
Anzeige