Übersicht aus zwei Datenblättern erstellen

[Fennek]

Hallo,

teste mit folgendem Code:

Code:

Sub Test()
Dim WS As Worksheet

Set WS = Worksheets("am Tag")
WS.Range("A4:E100").Clear
'Ankunft & Abflug
s = 1
For Each A In Array("Ankunft", "Abflug")
r = 4

z = Application.Match(WS.Cells(1, 2), Sheets(A).Range("B21:B200"), 0) + 20

For i = 5 To 65
   If Sheets(A).Cells(z, i) <> "" Then
       WS.Cells(r, s) = Sheets(A).Cells(5, i)
       WS.Cells(r, s + 1) = Sheets(A).Cells(z, i)
       WS.Cells(r, s + 1).NumberFormat = "hh:mm"
       r = r + 1
   End If
Next i
s = 4
Next A
End Sub

mfg

[Gast 123]

Hallo,

ich sehe gerade das bereits eine Lösung von Fennek vorliegt, ıch habe die Aufgabe allerdings anders verstanden. 
Dann gibt es jetzt zwei verschiedene Lösungen zur Auswahl, auch schön.  Freut mich ...

mfg  Gast 123

[tmessers]

Fennek hat genau ins Schwarze getroffen.
Die Lösung von Gast 123 ist auch sehr gut.

Vielen Dank für Eure Hilfe.

Wie kann ich die Liste jetzt noch zeitlich aufsteigend sortieren?

Gruß

Thomas