erste und letzte Zeit ermitteln

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 2000
  

erste Start - letzte Landung (Array)

von: WF
Geschrieben am: 14.04.2002 - 12:37:57


Hi Uwe,

Datum in Spalte A; Flugzeugbezeichnung in B; Startzeiten in C; Landezeiten in D.
zu untersuchendes Datum in F1; Bezeichnung in F2

der früheste Start mit folgender Array-Formel:
{=MIN(WENN((A1:A100=F1)*(B1:B100=F2);C1:C100))}

späteste Landung:
{=MAX(WENN((A1:A100=F1)*(B1:B100=F2);D1:D100))}

ARRAY-Formel {=geschweifte Klammern} nicht eingeben;
Abschluß der Formel mit gleichzeitig Strg / Shift / Enter; - das erzeugt sie.

trapp, trapp, trapp, trapp, trapp, brrrrr
WF


http://www.excelformeln.de/
die ultimative Formelseite

  

Re: erste und letzte Zeit ermitteln

von: Klaus-Dieter
Geschrieben am: 14.04.2002 - 13:34:28


Hallo Uwe,

hier ein Makro für Deine Anforderung:

Sub flugzeiten()
' List aus einer Tabelle Zeiten für ersetn Start und Letzte Landung
' eines betimmten Flugzeuges an einem bestimmten Tag aus.
' Daten werden über InputBox aufgenommen und über MsgBox ausgegeben.
' Klaus-Dieter Oppermann
Dim es As Date
Dim ll As Date
Dim fz%
Dim dat As Date
' Tabellenlänge ermitteln
z = 2
Do While Cells(z, 1) <> ""
z = z + 1
Loop
' Flugtag eingeben
dat = InputBox(prompt:="Bitte den Flugtag eingeben ", Title:="Datum ")
' Datum formatieren
dat = Format(dat, "dd/mm/yy")
' Flugzeug eingeben
fz = InputBox(prompt:="Bitte die Flugzeugnummer eingeben ", Title:="Flugzeugnummer ")
' Startzeit in Tabelle suchen
For r = 2 To z
    If Cells(r, 2) = fz And Cells(r, 1) = dat Then
        es = Cells(r, 3)
    Exit For
    End If
Next r
' Landungszeit in Tabelle suchen
For s = 2 To z
    If Cells(s, 2) = fz And Cells(s, 1) = dat Then ll = Cells(s, 4)
Next s
' Flugzeiten Ausgeben
MsgBox prompt:="   Erster Start " & es & Chr(10) & Chr(10) & "   Letzte Landung " _
& ll, Buttons:=vbInformation + vbSystemModal, Title:="Flugzeiten Flugzeug Nr. " & fz
End Sub

Gruß Klaus-Díeter
http://www.klaus-dieter-2000.de
(Excel und VBA speziell für Einsteiger)

nach unten

Betrifft: erste und letzte Zeit ermitteln
von: Uwe
Geschrieben am: 14.04.2002 - 11:54:37

hallo Profis,
wie kann ich in einer Flugplantabelle den ersten Start und die letzte Landung eines bestimmten Flugzeuges an einem Tag ermitteln, wenn die Tabelle so aussieht:
Datum Flugzeug Start Landung
.
.
.
Danke im voraus für Eure Hilfe
Uwe
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "erste und letzte Zeit ermitteln"