Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Zeilen loeschen aus bestimmten zeit interval
#1
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


Angehängte Dateien
.xlsx   TEST ALARM.xlsx (Größe: 13,41 KB / Downloads: 8)
Antworten Top
#2
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
Antworten Top
#3
Vielen Dank UWE!
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste