nach Uhrzeit suchen...
24.01.2016 19:40:52
Björn
ich habe eine Exceltabelle mit 4 gefüllten Spalten. Spalte A beinhaltet die Benennung einer bestimmten Einheit. In Spalte B sind Vorgänge der jeweiligen Einheit aufgelistet. In Spalte C und Spalte D sind die Start- bzw. Endzeiten der Vorgänge zu finden. Das Format dd.mm.yyy hh:mm:ss .
Ich möchte gerne den frühsten und spätesten Termin aus den Vorgängen einer bestimmten Einheit ermitteln. Die Ausgabe soll in einer msgbox erfolgen.
Tabellenlayout:
Einheit_1_____VRG_1______02.01.2016____11:00:23
Einheit_1_____VRG_2______02.01.2016____10:45:56
Einheit_1_____VRG_3______03.01.2016____08:12:00
Einheit_2_____VRG_1______...
...
...
Ausgabe über msgbox:
Startzeit: dd.mm.yyyy hh:mm:ss
Endzeit: dd.mm.yyyy hh:mm:ss
Die Bezeichnung der Einheit muss in einer msgbox eingegeben werden. Die Ausgabe der gesuchten Daten erfolgt in einer separaten msgbox.
Mein Makro schreibt leider nur die Anfangszeit des ersten VRG´s und die Endzeit des letzten VRG´s einer von mit definierten Einheit. Das Makro sucht nicht nach dem frühesten und spätesten Termin.
Mein Ziel war, die Start-/Endzeiten einer Einheit in einem Array zu sammeln und über den Befehl array.small herauszufiltern. Leider bekomme ich diese Variante nicht umgesetzt...
Kann mir jemand einen Tipp geben? Das würde mit sehr weiterhelfen.
Viele Grüße.
Sub Laufzeiten()
Dim es As Date
Dim ll As Date
Dim Einheit%
Dim dat As Date
' Tabellenlänge ermitteln
Z = 2
Do While Cells(Z, 1) ""
Z = Z + 1
Loop
fz = InputBox(prompt:="Bitte die Einheit eingeben ", Title:="Einheit ")
' Startzeit in Tabelle suchen
For r = 2 To Z
If Cells(r, 1) = Einheit Then
es = Cells(r, 3)
Exit For
End If
Next r
' Endzeit in Tabelle suchen
For s = 2 To Z
If Cells(s, 1) = Einheit Then
ll = Cells(s, 4)
End If
Next s
' Start-/Endzeit susgeben
MsgBox prompt:=" Startzeit " & es & Chr(10) & Chr(10) & " Endzeit: " & ll, Buttons:= _
vbInformation + vbSystemModal, Title:="Start-/Endzeiten. " & Einheit
End Sub