Zeilen in excel automatisch ausblenden wenn Datum älter als 4 Wochen.?

... komplette Frage anzeigen

2 Antworten

Nur mit VBA. Dann würde ich die Zeilen aber auch konsequent löschen nach dem Kopieren.

Sub umkopieren()
For i = 1 To Worksheets("Tabelle1").UsedRange.Rows.Count
If Worksheets("Tabelle1").Cells(i, 4).Value < Date - 28 Then
j = Worksheets("Tabelle2").UsedRange.Rows.Count
Worksheets("Tabelle1").Rows(i).Copy Destination:=Worksheets("Tabelle2").Rows(j + 1)
Worksheets("Tabelle1").Rows(i).Delete
End If
Next

For i = 1 To Worksheets("Tabelle2").UsedRange.Rows.Count
If Worksheets("Tabelle2").Cells(i, 4).Value > Date - 28 Then
j = Worksheets("Tabelle1").UsedRange.Rows.Count
Worksheets("Tabelle2").Rows(i).Copy Destination:=Worksheets("Tabelle1").Rows(j + 1)
Worksheets("Tabelle2").Rows(i).Delete
End If
Next
End Sub

Du kannst das natürlich auch in zwei getrennte Funktionen aufteilen. Im Grund passiert fast das gleiche: Zeilenweise durchschauen, ob das Datum in D kleiner heute - 28 Tage ist, wenn ja an die letzte Stelle der anderen Tabelle kopieren und die Zeile löschen.
Der Weg zurück ist im Grund einfach nur die Datumsprüfung in die andere Richtung und die Quell- und Zieltabellen vertauscht.

Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von dennis1809bs
18.11.2015, 08:45

Hallo Danke für die rasche Antwort. Leider klappt die Funktion nur in eine Richtung und auch NUR mit Zellen in denen ein Datum steht. Beim zurück kopieren mit jüngeren Datum verschwindet das Datum aus Tabelle 2 taucht aber nicht in Tabelle 1 auf.

0

Ich würde das Problem auf Datenbankbasis zum Beispiel MS-ACCESS eleganter lösen.

Dazu schreibst Du alle Daten in eine Tabelle, egal welche Zeiteinheiten dahiner stehen.

Dann legst Du über die Tabelle die unterschiedlichen Abfragen, in denen Du die gewünschten Kriterien mathematisch formulierst.

Fällt jemand aus der <4-Wochen-Abfrage raus, ist er immer noch in der Stammtabelle oder der alternativen Abfrage > 4 Wochen.

In der alternativen Abfrage / Stammtabelle kannst Du dann bei Wiederanmeldung des MA das Anmeldedatum neu setzen und schwupps ist der MA wieder in der Abfrage < 4 Wochen.

Günter

Antwort bewerten Vielen Dank für Deine Bewertung

Was möchtest Du wissen?