|
Hey, ich sitze jetzt schon einige Zeit an folgendem Problem.
Ich habe in meiner Tabelle einige aufeinanderfolgende Parameter im Format hh:mm:ss (Uhrzeiten):
11:43:53
12:43:03
13:43:03
14:43:03
15:43:03
16:43:03
17:43:03
18:43:03
18:52:09
Hierbei soll nun mittels VBA vergleichen werden, ob die untereinander aufgelisteten Zeiten >= eine Stunde (oder mehr) auseinander liegen. Lediglich Differenzen kleiner als eine Stunde dürfen die Bedingung nicht erfüllen. So müsste dann die erste und letzte Zeile vernachlässigt werden, da diese die Bedingung nicht erfüllen.
Hier mein Ansatz:
Dim a As Date
Dim b As Date
x = 2
y = 1
s = 1
a = "01:00:00"
while s < 10
b = Cells(x, 32) - Cells(y, 32) 'hier die Zeile/Spalte in der die obrigen Daten in meiner Tabelle stehen
If b >= a Then
MsgBox "Bedingung erfüllt"
x = x + 1
y = y + 1
Else
MsgBox "Bedingung nicht erfüllt"
x = x + 1
y = y + 1
End If
s=s+1
Wend
Vom Prinzip her denke ich, dass das Programm funktioniert. Allerdings denke ich, dass es Probleme mit der Formatierung gibt.
Als Nebeninfo: In Excel selbst, wurden die Zeilen bereits formatiert. Das ursprüngliche Format ist: "05.02.2015 11:43"
Vielleicht kann mir ja jemand helfen! Für eure Hilfe bin ich sehr dankbar.
Viele Grüße
|