Datum mit letztem Eintrag vergleichen

'Datum überprüfen (nicht gleich oder niedriger als letzter Eintrag) With Sheets("Tabelle1") LetzteVal = CDate(.Range("A99999").End(xlUp).Value) Set z = .Columns(1).Find(What:=TextBox1.Value, LookAt:=xlWhole, LookIn:=xlValues) If DateDiff("d", LetzteVal, CDate(TextBox1))

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Frank,
ich kann mich nicht vorstellen, dass Excel eine Meldung ausgibt: "ich crashe jetzt bei einer seltener Kombination". Die Helfer sprechen nicht nur "excelisch", aber wenn Du uns mitteilen möchtest, was Excel Dir mitgeteilt hat, muss es schon unübersetzt rüberkommen.
Ralf, Udo und Pavel haben Hinweise gegeben. Alles zusammen:
irgendjemand hat Dir den Code
LetzteVal = CDate(.Range("A99999").End(xlUp).Value)
in die Hande gegeben (kommt mir verdächtig bekannt vor).
Dieses Code funktioniert nur bei Tabellen ab Excel 2007. Davor endet ein Blatt bei Zeile 65536. Du könntest in
LetzteVal = CDate(.Range("A65000").End(xlUp).Value)
oder
LetzteVal = CDate(.Cells(.Rows.Count, 1).End(xlUp).Value)
ändern. Ist sicherer, wird aber in dem Fall nur bedingt helfen.
Sheet ist nicht Worksheet. Worksheet ist ein Tabellenblatt. Ein Diagramblatt ist auch ein "Sheet". Wenn darin ein Range("A1") gesucht wird, geht es schief.
Ausserdem ist Worksheet oder Sheet immer relativ. Daher davor "ThisWorkbook" oder Workbooks("xy") anstellen. Wenn es zufälligerweise heute keine andere Blatt mit demselben Namen gibt, andert es nichts daran, dass es morgen der Fall sein kann (Murphy sagt sogar: wird).
Ein Code zum Spielen:


Sub SheetType_auflisten()
Dim W, S
For Each W In Workbooks
Debug.Print W.Name
For Each S In W.Sheets
Debug.Print vbTab & S.Name & ": " & SheetType(S.Type)
Next
Next
End Sub
Private Function SheetType(Wert As Long) As String
Select Case Wert
Case xlChart: SheetType = "xlChart"
Case xlDialogSheet: SheetType = "xlDialogSheet"
Case xlExcel4IntlMacroSheet: SheetType = "xlExcel4IntlMacroSheet"
Case xlExcel4MacroSheet: SheetType = "xlExcel4MacroSheet"
Case xlWorksheet: SheetType = "xlWorksheet"
End Select
End Function

damit gehst alle geöffnete Workbook durch und davon alle "Sheets" und prüft, welche Sheet-Typ sie haben.
Ausgabe ist im VB-Direktfenster (Ansicht, Direktfenster)
VG
Yal

Dim zeile zeile = StromEGaendern1.ListBox1.ListIndex + 2 With Sheets("Tabelle1") If DateDiff("d", zeile - 1, CDate(TextBox1)) = 0 Then TextBox1.ForeColor = vbRed Else TextBox1.ForeColor = vbBlack End If

Hallo Frank,
sind die zu vergleichenden Werte auch in der Listbox oder muß man auf die Tabelle gehen?
Der Vergleich funktioniert nicht weil du zwei total verschiedene Werte vergleichen willst.
Dir fehlt die Zuordnung der Zeilennummer zum Zellbereich Range oder Cells


DateDiff("d", Range("A"&zeile - 1), CDate(TextBox1))

evtl muß der Wert aus der Range noch in cdate gewandelt werden.
Da Datumswerte aber im Grunde Zahlen sind würde eine Umwandlung in Double und dann ein größer/kleiner Vergleich reichen.
24.12.2021 44554
25.12.2021 44555
26.12.2021 44556
Es wäre dann nur noch zu prüfen ob deine Zeilenwerte sich noch in der Tabelle befinden und das Range auch ein Datum enthält, um Fehler zu vermeiden.

Beliebteste Forumthreads (12 Monate)

Datum mit letztem Eintrag vergleichen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datum mit letztem Eintrag vergleichen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread