AW: suchen und ausblenden
06.09.2004 15:41:10
Björn
Hallo Andy,
wie wär's hiermit:
Sub ausblenden()
Dim gesuchtes_Jahr As Integer, zaehler As Integer
Dim letzter_Eintrag As Long
gesuchtes_Jahr = 2004 'hier dein Jahr eintragen
If IsEmpty(ActiveSheet.Cells(65536, 8)) Then
letzter_Eintrag = ActiveSheet.Cells(65536, 8).End(xlUp).Row
Else
letzter_Eintrag = 65536
End If
For zaehler = 1 To letzter_Eintrag
If IsDate(ActiveSheet.Cells(zaehler, 8)) = True Then
If Year(ActiveSheet.Cells(zaehler, 8)) = gesuchtes_Jahr Then
ActiveSheet.Rows(zaehler).Hidden = True
End If
End If
Next zaehler
End Sub
Sub einblenden()
Dim gesuchtes_Jahr As Integer, zaehler As Integer
Dim letzter_Eintrag As Long
gesuchtes_Jahr = 2004 'hier dein Jahr eintragen
If IsEmpty(ActiveSheet.Cells(65536, 8)) Then
letzter_Eintrag = ActiveSheet.Cells(65536, 8).End(xlUp).Row
Else
letzter_Eintrag = 65536
End If
For zaehler = 1 To letzter_Eintrag
If IsDate(ActiveSheet.Cells(zaehler, 8)) = True Then
If Year(ActiveSheet.Cells(zaehler, 8)) = gesuchtes_Jahr Then
ActiveSheet.Rows(zaehler).Hidden = False
End If
End If
Next zaehler
End Sub
Gruß
Björn