Spalten löschen

Hallo Forum!
In einer Userform soll ein Datum eingegeben werden.
Nach Betätigen eines Buttons sollen alle Spalten gelöscht werden die kleiner dem Datum sind. Das funktioniert auch ganz gut. Allerdings muss ich den Button immer wieder betätigen, bis alles gelöscht wird. Wie soll der Code aussehen damit nur durch einmaligem Betätigen des Buttons alle Datensätze gelöscht werden?
Hier der Code:

Private Sub cmdDelete_Click()
Dim i As Integer, j As Integer
Dim wks As Worksheet
Dim DatWert As Date
Set wks = Worksheets("04_Monitoring_Neuteil")
i = 5 'Zeile 5
j = 8 'Spalte H
If Not IsDate(txtDat) Then
MsgBox "Kein gültiges Datum!", vbCritical, "Falsches Datum"
Exit Sub
End If
txtDat = Format(txtDat, "DD.MM.YYYY")
DatWert = txtDat.Value
With wks
Do While .Cells(i, 8)  ""
If .Cells(i, 8)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
du zählst zu Zeile immer 1 dazu. Wenn du nun Zeile 5 löschst, dann rutschen die Zeilen nach oben. Aus der ehemaligen Zeile 6 wird die neue Zeile 5 du machst aber in deinem Makro mit Zeile 6 also der ehemaligen Zeile 7 weiter.
Versuch es mal so:

Private Sub cmdDelete_Click()
    Dim i As Integer, j As Integer
    Dim wks As Worksheet
    Dim DatWert As Date

    Set wks = Worksheets("04_Monitoring_Neuteil")
    i = 5 'Zeile 5
    j = 8 'Spalte H

    If Not IsDate(txtDat) Then
        MsgBox "Kein gültiges Datum!", vbCritical, "Falsches Datum"
        Exit Sub
    End If
    txtDat = Format(txtDat, "DD.MM.YYYY")

    DatWert = txtDat.Value

    With wks
        Do While .Cells(i, 8) <> ""
            If .Cells(i, 8) < DatWert Then
                Range(.Cells(i, 1), .Cells(i, 10)).Delete shift:=xlUp
            Else
                i = i + 1
            End If
        Loop
    End With

End Sub

Gruß
Nepumuk

Private Sub cmdDelete_Click() Dim i As Long Dim loLetzte AS Long Dim wks As Worksheet Dim DatWert As Date Set wks = Worksheets("04_Monitoring_Neuteil") If Not IsDate(txtDat) Then MsgBox "Kein gültiges Datum!", vbCritical, "Falsches Datum" Exit Sub End If txtDat = Format(txtDat, "DD.MM.YYYY") DatWert = txtDat.Value loLetzte = wks.cells(Rows.Count, 8).End(xlUp).Row With wks For i = loLetzte To 5 Step -1 If .Cells(i, 8)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten löschen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread