TIS:Suche nach zusammenhängenden bzw. benachbarten Einträgen in EXCEL

Aus XIMES

Doppelte Einträge, die völlig ident sind, sind meist leicht zufinden. Schwieriger sind zusammenhängede Ereignisse, bei denen das Ende des einen "sehr nahe" dem Beginn des nächsten ist:

• Vorbereitung: DATEN richtig sorttieren (zB Name, Datum, Uhrzeit)
• Dann kann mit einfacher Funktion nach gesucht werden oder zB so ein Makro verwendet werden

    Salte 1 und 2 müssen ident sein, Spalte 3 und 4 nahe genug beeinander liegen (zB 1/24/2 = 0,5h)
    Option Explicit
    
    Sub clean()
    Dim ra As Range
    Dim ro As Long
    Dim i As Lon
    Set ra = Range("Data")
    ro = ra.Rows.Count
    For i = ro To 3 Step -1
        If (ra(i, 1) = ra(i - 1, 1) And ra(i, 2) = ra(i - 1, 2) And Abs(ra(i, 3) - ra(i - 1, 4)) < 1 / 24 / 2) Then
            ra(i - 1, 10) = ra(i, 10)
            ra(i - 1, 11) = ra(i, 11)
            ra.Rows(i).Delete
        End If
    Next
    End Sub