AW: Text im Textfeld mit bestimmten Datum löschen
14.02.2019 16:39:02
Peter
Wow, richtig großes Kino! Es funktioniert und ich begreife sogar wie, wäre aber nie darauf gekommen. In meiner Tabelle war in der ersten Zeile eine Leerzeile, dadurch hat er bei einem zweiten Durchgang einen Fehler generiert. Ich habe nun die Leerzeile gelöscht und lasse die For-Schleife statt von 2, von 1 loslaufen. So geht's!
Private Sub CommandButton1_Click()
Dim txt, arr, i, zeit, termin, zt
txt = Cells(6, 34)
Cells(6, 34) = ""
arr = Split(txt, Chr(10))
For i = 1 To UBound(arr) - 1 Step 3
zt = arr(i)
zt = Replace(zt, " von ", "*")
zt = Replace(zt, " bis ", "*")
zeit = Split(zt, "*")
termin = CDate(zeit(0) + " " + zeit(2))
If Now > termin Then
arr(i) = "": arr(i + 1) = "": arr(i - 1) = ""
End If
Next i
For i = 1 To UBound(arr)
Cells(6, 34) = Cells(6, 34) + arr(i)
If arr(i) "" Then Cells(6, 34) = Cells(6, 34) + Chr(10)
Next i
End Sub
Vielen Dank noch für Deine Mühe, ich habe einiges gelernt!
LG Peter