Zeilen loeschen aus bestimmten zeit interval

[kite4wind]

Guten Tag,

Ich habe eine Datei im anhang wo ich Zeilen aus eine bestimmte Zeit Interval loeschen will.
Es handelt sich 10 minuten Zeitreihen (spalte A).
Ich habe bestimmte alarms die waehrend einen bestilmten zeitinterval dauern (spalte B und C).
Ich moechte den Zeit interval dieser Alarm aus der spalte A loeschen.

Ich habe es mit alle moegliche formeln versucht aber es hat leider nicht geklappt. Ich geh mal davon aus dass eine kurze macro das ganze schnell loesen kann.

Vielen dank fuer eure hilfe!

LG

NJ

[Kuwer]

Hallo,

z.B. so:

Code:

Sub IntervalleAusblenden()
  Dim iZeit As Long, iIntervall As Long
  Dim varInput As Variant, varZeiten As Variant
  varInput = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Value
  varZeiten = Range(Cells(2, 2), Cells(Rows.Count, 3).End(xlUp)).Value
  For iZeit = 1 To UBound(varInput)
    For iIntervall = 1 To UBound(varZeiten)
      If varInput(iZeit, 1) >= varZeiten(iIntervall, 1) And varInput(iZeit, 1) <= varZeiten(iIntervall, 2) Then
        varInput(iZeit, 1) = ""
      End If
    Next iIntervall
  Next iZeit
  Range("E2").Resize(UBound(varInput)).Value = varInput
End Sub

Gruß Uwe

[kite4wind]

Vielen Dank UWE!