Hallo,
ich hoffe, es kann mir jemand weiter helfen. Ich bin absoluter Anfänger was VBA angeht. Ich habe einen CommandButton angelegt, der Einträge löschen soll. Nun möchte ich gerne die Bedingung hinzufügen, dass die Einträge, die älter als 24 Stunden sind, nicht mehr gelöscht werden können und eine Fehlermeldung erscheint. Leider funktioniert dieses so nicht. Kann mir jemand sagen, wo mein Fehler liegt? Ich wäre sehr dankbar über jegliche Hilfe.
Liebe Grüße.
Private Sub CommandButton2_Click()
Dim lZeile As Long
If ListBox1.ListIndex = -1 Then Exit Sub
lZeile = 2
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then
Tabelle1.Rows(CStr(lZeile & ":" & lZeile)).Delete
If Trim(CStr(TextBox6.Text)) <> Date Then
MsgBox "Löschen nicht mehr möglich - Eintrag älter als 24 Stunden!", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
Exit Do
End If
lZeile = lZeile + 1
Loop
End Sub |