Archivieren

Forumthread: Archivieren
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Archivieren

Archivieren

09.07.2020 17:54:32

Dennis

Hallöchen,
ich arbeite an einer Excel Tabelle. Ich möchte einen Button "Archivieren" erstellen. Wenn der gedrückt wird, sollen alle Personen, deren Praktikum bis vor 24h zurückliegend geendet hat in die 4. Tabelle archiviert werden und aus der aktuellen Tabelle gestrichen werden.
Der Zeitraum bis ist in der Spalte H bei mir. Dort soll eben geprüft werden ob das Datum abgelaufen ist.
Wäre über eine Hilfe sehr dankbar.
Beste Grüße!

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Archivieren

09.07.2020 18:18:13

onur
AW: Archivieren

09.07.2020 18:36:24

Nepumuk

AW: Archivieren

09.07.2020 18:18:13

onur

Und jetzt?
Sollen wir raten, wie deine Datei aussieht?

AW: Archivieren

09.07.2020 18:36:24

Nepumuk

Hallo Dennis,
teste mal:

Option Explicit

Public Sub Archivieren()
    Dim lngRow As Long
    For lngRow = Cells(Rows.Count, 8).End(xlUp).Row To 2 Step -1
        If IsDate(Cells(lngRow, 8).Value) Then
            If Cells(lngRow, 8).Value < Date Then
                With Worksheets(4)
                    Call Rows(lngRow).Cut(.Cells(.Cells(.Rows.Count, 8).End(xlUp).Offset(1, 0).Row, 1))
                End With
            End If
        End If
    Next
End Sub

Gruß
Nepumuk

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!