Suchen eines Datumswertes Code funktioniert nicht
18.11.2003 09:47:16
Markus
folgender Code
Dim Erstes_Gewicht1, Letztes_Gewicht1 As Date
Erstes_Gewicht1 = Range("J2")
Letztes_Gewicht1 = Range("K2")
'
Dim h, hlast As Long
Dim h1, h2 As Long
Dim found11, found22 As Boolean
Dim Meldung2 As String
Tabelle3.Activate
found11 = False
found22 = False
hlast = Range("J:J").SpecialCells(xlCellTypeLastCell).Row
For h = 2 To hlast
If Cells(h, 10).Value >= (Letztes_Gewicht1) Then
found11 = True
h1 = h
MsgBox (h1)
Exit For
End If
Next h
If found11 = False Then h1 = 1
For h = h1 To hlast
If Cells(h, 10).Value <= (Erstes_Gewicht1) Then
found22 = True
h2 = h
MsgBox (h2)
Exit For
End If
Next h
'
If found22 = False Then Meldung2 = "Erstes Gewicht Waage2 nicht gefunden!" + Chr(10)
If found11 = False Then Meldung2 = "Letztes Gewicht Waage2 nicht gefunden!" + Chr(10)
If found11 And found22 Then
'
Range(Cells(h1, 9), Cells(h2, 12)).Select
Selection.Copy
Mein Datumsformat 24.10.2003 14:30:20
Ich suche damit nach zwei Datumswerten Erstes_Gewicht und Letztes_Gewicht, wenn der Datumswert gleich dem gesuchten ist findet Excel den richtigen Wert, sollte aber der geuchte Wert nicht vorhande sein makiert und kopiert mir der Code mehr Werte als die gesuchten (ich habe ja kleiner und größer = angegeben) aber es funktioniert nicht. In meiner Tabelle kommt das aktuellste Datum zu erst und wird dann älter. Habt Ihr eine Idee was mein Problem ist, wie gesagt wenn das Datum genau gleich ist funktioniert es klasse, aber meistens stimmen die Minuten oder Sekunden nicht überein. Es ist nicht schlimm wenn ich ein paar Werte mehr kopiere aber momentan sind es richtig viele.
Danke Gruß Markus