Datum suche
11.06.2021 11:37:19
Peter
ich benötige eure Hilfe. Meine Suche war leider ergebnislos.
Ich habe eine Tabelle mit Datum Werte in Spalte B. Innerhalb dieser Spalte sind die Datum Werte nicht sortiert.
Ich möchte aber wenn ich als Anfangsdatum z.B. 01.01.2021 eingebe und als Enddatum z.B. 31.01.2021, dass die erste Zeile mit dem ersten Datum von Jahr aus Anfangsdatum ausgelesen wird und das letzte Datum mit dem Jahr aus Enddatum.
Ist das bitte möglich? Ich habe da einen Lösungsansatz gefunden, der funktioniert aber nicht, wenn nach dem letzten Datum (z2) noch ein jüngeres Datum folgt.
Dim d1 As Date, d2 As Date
Dim i&, z0&, z1&, z2&, maxz&
d1 = "01.01.2021" '"Range("K1").Value ' habe in K1: 01.09.2017
d2 = "31.12.2021" 'Range("K2").Value ' habe in K2: 31.12.2017
maxz = Range("B" & Rows.Count).End(xlUp).Row
For i = 11 To maxz
If IsDate(Range("B" & i)) Then
If z1 = 0 Then
If d1