Fehler in Code
07.07.2019 10:31:21
Peter
im Archiv habe ich einen Code gefunden und etwas abgeändert.
<pre>Sub Prüfung_Datumswert3()
Dim lZeile As Long
Dim SuchDatumA As String, SuchDatumE As String
With Worksheets("Tabelle4")
lZeile = .Cells(.Rows.Count, 13).End(xlUp).Row 'Spalte F
SuchDatumA = Worksheets("Tabelle4").Cells(3, 16)
SuchDatumE = Worksheets("Tabelle4").Cells(3, 17)
For Each ze In Range("M2:M" & lZeile)
If ze < SuchDatumA Then
Cells(ze.Row, 15) = "gefunden"
Else
Cells(ze.Row, 15) = "nicht gefunden"
End If
Next
End With
End Sub</pre>
Inhaber_Name Inhaber_Datum Inhaber_Datum Ergebnis
Test1 01.01.2014 20.03.2016 gefunden Anfangdatum Enddatum
Test2 01.01.2016 19.05.2019 gefunden 01.01.2017 31.12.2017
Test3 20.05.2019 nicht gefunden
Wenn unter Inhaber_Datum 01. für Tag steht ist das Ergebnis wie oben angezeigt.
Wenn jedoch das Inhaber_Datum auf 21.03.2016 geändert wird ist das Ergebnis nicht gefunden.
Was muss an dem Code verändert werden, damit Ergebnis gefunden gilt. Das Datum 21.03.2016 ist ja kleiner als 01.01.2017.
Mein eigentliches Ziel ist es, abhängig vom Anfang und Enddatum das nächst kleinere Datum zu finden.
Besten Dank für eure Hilfe.
Gruss
Peter