Thema Datum  Von Nutzer Rating
Antwort
Rot Datum funktioniert nicht
15.05.2020 10:06:31 Gast1223
NotSolved
15.05.2020 13:31:29 Gast12814
NotSolved

Ansicht des Beitrags:
Von:
Gast1223
Datum:
15.05.2020 10:06:31
Views:
49
Rating: Antwort:
  Ja
Thema:
Datum funktioniert nicht
Guten Tag Ich habe einen Code gefunden und dieser funktioniert fast Fehlerfrei, nur ein Problem habe ich. Das in der Spalte M stehende Datum wird nicht richtig erkannt. Der Code wird nur ausgeführt wenn ich den 12.05.2020 eingebe. Der 13.05.2020 oder 14.05.2020 funktioniert nicht. Kann mir jemand sagen wo der Fehler liegt? Dim lngLetzte As Long Dim lngZeile As Long With Worksheets("Abgelaufen") lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count) + 1 End With With Worksheets("Erfassen") For lngZeile = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count) To 2 Step -1 If .Cells(lngZeile, 13) <= Date Then .Range(.Cells(lngZeile, 1), .Cells(lngZeile, 15)).Cut Worksheets("Abgelaufen").Cells(lngLetzte, 1) lngLetzte = lngLetzte + 1 End If Next lngZeile End With Herzlichen Dank für eure Bemühungen

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Datum funktioniert nicht
15.05.2020 10:06:31 Gast1223
NotSolved
15.05.2020 13:31:29 Gast12814
NotSolved