14 Tage einer Tabelle zeigen

18/04/2008 - 19:47 von Jens Wennemede | Report spam
Hallo NG

ich habe eine Tabelle in der Tagesdaten erfasst werden. Mit folgendem VBA
lasse ich mir Bsp. lasse ich mir z.B. die letzten 25 Eintràge anzeigen, die
anderen werden ausgebendet. Der Schreibschutz ist vorhanden weil einige
Zellen vom Benutzer nicht geàndert werden sollen.

In der Tabelle wird in Spalte A das aktuelle Datum eingetragen. Nun möchte
ich das dieser oder ein àhnlicher Code nicht die Anzahl der Eintràge filtert
sonder es sollen z.B. die Eintràge der letzten 14 Tage angezeigt werden und
alle andern sollen ausgeblendet werden.

Hier der Code, den ich dank Eurer Hilfe bekommen habe:

Sub Anzeigen25()

Dim Lz As Long
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Cells.Select
Selection.EntireRow.Hidden = False
With ActiveSheet
Lz = .Cells(Rows.Count, "D").End(xlUp).Row - 25
If Lz > 25 Then
.Rows("6:" & Lz).Hidden = True
End If
End With
ActiveSheet.Protect
Application.ScreenUpdating = True

End Sub

Ich danke Euch schon mal ..

Gruß Jens


Windows Vista & Office 2007
 

Lesen sie die antworten

#1 Claus Busch
18/04/2008 - 20:06 | Warnen spam
Hallo Jens,

Am Fri, 18 Apr 2008 19:47:05 +0200 schrieb Jens Wennemede:

Hallo NG

ich habe eine Tabelle in der Tagesdaten erfasst werden. Mit folgendem VBA
lasse ich mir Bsp. lasse ich mir z.B. die letzten 25 Eintràge anzeigen, die
anderen werden ausgebendet. Der Schreibschutz ist vorhanden weil einige
Zellen vom Benutzer nicht geàndert werden sollen.

In der Tabelle wird in Spalte A das aktuelle Datum eingetragen. Nun möchte
ich das dieser oder ein àhnlicher Code nicht die Anzahl der Eintràge filtert
sonder es sollen z.B. die Eintràge der letzten 14 Tage angezeigt werden und
alle andern sollen ausgeblendet werden.



probiere es mal so:

Sub Anzeige()

Dim LRow As Long
Dim rngZelle As Range

Application.ScreenUpdating = False

With ActiveSheet
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
.Unprotect
For Each rngZelle In Range("A2:A" & LRow)
If rngZelle.Value < Date - 14 Then
rngZelle.EntireRow.Hidden = True
End If
Next
.Protect
End With

Application.ScreenUpdating = True

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen