Daten mit Zeitstempel verbinden

Hallo liebe Excel-Anwender,
ich habe aktuell eine Aufgabe zu bewältigen für die mir bisher keine brauchbare Lösung eingefallen ist.
Ich habe zwei Tabellen deren Daten jeweils mit Zeitstempel versehen sind. Tabelle 1 beinhaltet Eingangsdaten und Tabelle 2 Ausgangsdaten.
Ziel ist es den Eingangsdaten eine Nummer aus den Ausgangsdaten zuzuordnen.
Aufbau Tabelle 1: Eingangsdaten
lfd. Nr | Startzeit | Endzeit | Nr.-Ausgangsdaten
123 | 25.01.2019 10:25:10 | 25.01.2019 10:37:10 | ?
124 | 25.01.2019 10:30:34 | 25.01.2019 10:42:34 | ?
125 | 25.01.2019 11:01:56 | 25.01.2019 11:13:56 | ?
Aufbau Tabelle 2: Ausgangsdaten
Zeitstempel | Nr.
25.01.2019 10:36:28 | 4711
25.01.2019 10:41:01 | 4712
25.01.2019 11:07:33 | 4713
Ziel:
lfd. Nr | Startzeit | Endzeit | Nr.-Ausgangsdaten
123 | 25.01.2019 10:25:10 | 25.01.2019 10:37:10 | 4711
124 | 25.01.2019 10:30:34 | 25.01.2019 10:42:34 | 4711, 4712
125 | 25.01.2019 11:01:56 | 25.01.2019 11:13:56 | 4713
Versucht habe ich mich schon mit diversen Verbindungen aus: SVERWEIS, VERWEIS, WAHL, INDEX, VERGLEICH...
Bisher war nichts Zielführend.
Kann mir jemand weiterhelfen?
LG und Danke
Katja

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Servus Katja,
teste mal...


Sub test()
Dim i As Integer        ' Laufvariable äußere Schleife
Dim y As Integer        ' Laufvariable innere Schleife
Dim intLZein As Integer ' Letzte Zeile Eingangsdaten
Dim intLZaus As Integer ' Letzte Zeile Ausgangsdaten
Dim wsein As Worksheet  ' Worksheet Eingangsdaten
Dim wsaus As Worksheet  ' Worksheet Ausgangsdaten
Dim einanfang As Date   ' Zeit Start Eingang
Dim einende As Date     ' Zeit Ende Eingang
Dim ausZeit As Date     ' Zeit Ausgang
Dim Treffer As String   ' Übereinstimmung Kriterien
Application.ScreenUpdating = False  'Bildschirmupdate ausschalten
Application.DisplayAlerts = False   'Fehlermeldungen ausschalten
Set wsein = ThisWorkbook.Sheets("Tabelle1") ' anpassen
Set wsaus = ThisWorkbook.Sheets("Tabelle2") ' anpassen
intLZein = wsein.Cells(Rows.Count, 1).End(xlUp).Row
intLZaus = wsaus.Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
For i = 2 To intLZein
einanfang = wsein.Cells(i, 2).Value
einende = wsein.Cells(i, 3).Value
For y = 2 To intLZaus
ausZeit = wsaus.Cells(y, 1).Value
If ausZeit > einanfang And ausZeit

Grüße, Bernd

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread