Excel Zeilen basierend auf dem Datum löschen
Um das Beste aus Microsoft Excel zu erhalten, müssen Sie lernen, wie mithilfe von Makros und VBA-Programmierung. Wie Sie Tabellen erstellen und füllen Sie sie mit Informationen, kann es vorkommen wenn Ihnen eingegebenen Informationen nicht mehr gültig ist. Dies gilt insbesondere für Zeilen mit Informationen, die von vorherigen Termine sind. Eine schnelle und einfache Möglichkeit zum Löschen von Zeilen von Daten basierend auf vergangenen Termine ist ein Makro in Excel einrichten.
Anweisungen
1 Öffnen Sie die Arbeitsmappe in Excel. Wenn Sie Excel 2007 verwenden, müssen Sie die Registerkarte "Entwicklertools" angezeigt, wenn es nicht bereits angezeigt wird. Klicken Sie hierzu auf die Schaltfläche "Office" und dann "Excel-Optionen." Klicken Sie auf "Show Developer Tab" und klicken Sie auf "OK".
2 Erstellen Sie ein neues Makro. Klicken Sie in Excel 2007 auf die Registerkarte "Entwicklertools" und dann "Makro." Klicken Sie in früheren Versionen auf "Extras" in der Symbolleiste und dann auf "Makro." Benennen Sie das Makro "DeleteRowbyDate" und klicken Sie auf "Erstellen". Der Visual Basic-Editor wird angezeigt.
3 Kopieren Sie und fügen Sie den folgenden Code in der Visual Basic-Editor zwischen den Zeilen, DeleteRowbyDate() Sub und End Sub:
Dim X As LongFür X = 1 bis Cells.SpecialCells(xlCellTypeLastCell). Zeile
Debug.Print Cells(x, "B").Value If CDate(Cells(x, "B")) < CDate("12/29/2010") Then Cells(i, "B").EntireRow.delete End If Next i
Auf der Strecke, wo es heißt, "Wenn CDate (Cells (X,"B")) < CDate("12/29/2010") dann", ändern Sie das Datum ein, was auch immer, die bis heute ist ein Tag höher als das Datum, das Sie löschen möchten. Beispielsweise möchten Sie alle Zeilen löschen, die älter als 1. Januar 2009 sind, ändern dann die Linie Sie:
Wenn CDate (Cells (X, "B")) < CDate("01/01/09") dann
4 Schließen Sie den Visual Basic-Editor. Es speichert automatisch an das Makro. Wenn Sie das Makro ausführen und die Zeilen löschen möchten, gehen Sie zurück zu "Makros", wählen Sie das Makro "DeleteRowsbyDate" und klicken Sie auf "Ausführen".