Datum in Spalte finden + folgende Zeilen löschen
03.05.2017 10:53:49
Uwe
ich habe eine Tabelle, bei der in Spalte A ein Datum steht. Eine eingefügte Userform soll nach Eingabe in das dort enthaltene Textfeld ein Datum in Spalte A suchen und bei erfolgreicher Suche die Zeile mit dem Datum UND die darauffolgenden 3 Zeilen komplett löschen (https://www.herber.de/bbs/user/113273.xlsm) . Mit folgenden Makro bekomme ich es bereits hin, dass die Zeile mit dem Datum gelöscht wird:
Private Sub CommandButton1_Click()
Dim zelles As Range
Dim bereichs As Range
Dim datum As Date
datum = TextBox1.Text
Set bereichs = ActiveSheet.Columns(1)
Set zelles = bereichs.Find(what:=datum, lookat:=xlWhole, LookIn:=xlValues)
If zelles Is Nothing Then
MsgBox "Datum nicht gefunden"
Else
zelles.EntireRow.Delete
End If
End Sub
Leider sind meine VBA-Kenntnisse nicht ausreichend, um auch die darauffolgenden 3 Zeilen zu löschen. Ich bin sicher, dass es nicht wirklich schiwerig ist, brauche aber mangels Kenntnis mal wieder Eure Unterstützung.
Vielen Dank vorab und beste Grüße
Uwe