per Makro Uhrzeit vergleichen

Hi,
ich versuche folgendes zu realisieren. Ich hab einen Export aus einem Programm in der in einer Spalte fortlaufend in jeder Zelle die Uhrzeit von 00:00:00 bis 23:45:00 eingetragen ist. Die Sprünge in der Urhzeit sind jeweils 15 Minuten. Teilweise sind diese Sprünge aber unterbrochen, so das z.B. statt
00:30:00
00:45:00
01:00:00
einfach
00:30:00
01:00:00
in den Zellen steht. Ich versuche nun wenn in einer Zelle nicht die erwartete Zeit enthalten ist, eine Zeile einzufügen und die neue Zelle mit der fehlende Zeit zu füllen. Dies klappt auch wunderbar, solange ich unter 01:00:00 bleibe. Prüft er in der Zelle z.B. ob dort 01:15:00 drinsteht und es steht drin, ignoriert er dies und fügt eine neue Zeile mit dem Inhalt 01:15:00 ein.
Jemand ne Idee was an dem Makro diesen Fehler hervorruft?


Sub Uhrzeit()
Dim i As Integer
Dim Zeilenanzahl As Integer
Dim Startzeit As Date
Startzeit = "00:00:00"
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
For i = 8 To 13
If Cells(i, 3).Value = Startzeit Then
Else
Rows("" & i & ":" & i & "").Select
Selection.Insert Shift:=xlDown
Cells(i, 3).Value = Startzeit
End If
Startzeit = Startzeit + "00:15:00"
Next i
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich merke gerade das ich den Endparamter der Schleife zu Testzwecken fix gesetzt habe :) Normal läuft die so:
For i = 8 To Zeilenanzahl
Aber ads kann nicht das Problem auslösen was ich habe. Das würde ja nur dafür sorgen das die Schleife evtl zu früh beendet wird und nicht jede Zeile berücksichtigt. Aber das war ja nicht das Fehlerbild was ich habe. Die Prüfung "liest" Zellwerte falsch aus, das ist das Problem. Er prüft eine Zelle auf die Uhrzeit, z.b 01:15:00 und sagt das der Wert dort nicht drinsteht. Dies ist aber nicht richtig, es steht 01:15:00 in der Zelle. Wenn ich mir beide Werte in einer MsgBox anzeigen lasse, dann sieht man es deutlich
MsgBox ("Ist: " & Cells(i, 3).Value & " Soll: " & Startzeit)
Die Box zeigt dann an Ist: 01:15:00 Soll: 01:15:00
Aber er fügt trotzdem eine Zeile ein. Das macht das Makro aber nur, solange die Zeit unter 01:00:00 ist ...
Da ist das Problem was ich habe.

Sub Uhrzeit() Dim i As Integer, Zeilenanzahl As Integer, _ Startzeit As Date Startzeit = "00:00": i = 8 Zeilenanzahl = ActiveSheet.UsedRange.Rows.Count While i Startzeit Then Rows(i).Insert Shift:=xlDown Cells(i, 3).Value = Startzeit Zeilenanzahl = Zeilenanzahl + 1 End If Startzeit = Startzeit + Round(15 / (24 * 60), 6) i = i + 1 Wend End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread