ich bastle schon eine gute Weile an einem Vergleich von Uhrzeit, eigentlich ganz einfach:
Wenn die Uhrzeit zwischen Zeit1 und Zeit2 übereinstimmt, dann soll die Zahl neben
Zeit2 an die richtige Stelle neben Zeit2 übertragen werden. Mit diesem einfachen, kleinen
Skript:
Sub test() For z1 = 2 To 30 Zeit1 = Cells(z1, 1) - Int(Cells(z1, 1)) 'die Sekunden werden zu den Minuten gezählt und die Minuten gerundet Zeit1 = Round(Minute(Zeit1) + Second(Zeit1) / 60, 0) / 60 / 24 For z2 = 2 To 50 Zeit2 = Cells(z2, 6) If Zeit1 = Zeit2 Then 'schreibe einfach die Zahl neben Zeit1 neben Zeit2 Cells(z2, 7) = Cells(z1, 2) Exit For End If Next z2 Next z1 End Sub
Wie man im Bild sieht funktioniert es aber nicht bei allen Zahlen/Zeiten. Und ich verstehe
einfach nicht warum. Kann mir bitte jemand einen Tipp geben?
Hier die Mappe
https://www.herber.de/bbs/user/61608.xls
Danke,
Born