Herbers Excel-Forum - das Archiv
Suchen eines Datumswertes Code funktioniert nicht
- Suchen eines Datumswertes Code funktioniert nicht von Markus vom 18.11.2003 09:47:16
- AW: Wert zu einem Datum raussuchen - von Galenzo am 18.11.2003 10:37:26
- AW: Wert zu einem Datum raussuchen - von Galenzo am 18.11.2003 10:37:26
 |
Betrifft: Suchen eines Datumswertes Code funktioniert nicht
von: Markus
Geschrieben am: 18.11.2003 09:47:16
Hallo Leute,
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
 |
Betrifft: AW: Wert zu einem Datum raussuchen
von: Galenzo
Geschrieben am: 18.11.2003 10:37:26
Hallo,
schau dir mal dieses Beispiel an:
- in Spalte A stehen untereinander Datum
- in Spalte B daneben jeweils ein Wert (z.B. ein Gewicht)
- Suchdatum in "J2" bzw. "K2"
Private Sub CommandButton1_Click()
Dim Erstes_Gewicht1, Letztes_Gewicht1 As Date
Dim rng As Range
Erstes_Gewicht1 = Range("J2").Value
Letztes_Gewicht1 = Range("K2").Value
Set rng = Range("A1:A100").Find(Erstes_Gewicht1)
If Not rng Is Nothing Then
MsgBox rng.Offset(0, 1).Value
Else
MsgBox ("Nicht gefunden!")
End If
Set rng = Range("A1:A100").Find(Letzes_Gewicht1)
If Not rng Is Nothing Then
MsgBox rng.Offset(0, 1).Value
Else
MsgBox ("Nicht gefunden!")
End If
End Sub
Viel Erfolg beim Nachbasteln!
| |