ein-/ausblenden
Karsten
ich möchte folgende Ein / Ausblendfunktionen in einen Makro einbetten. Wenn ausgeblendet, dann Einblenden - wenn eingeblendet, dann Ausblenden. Allerdings fehlen mir dazu die Kenntnisse. Kann mir jemand helfen?
Danke.
Gruß
Karsten
Sub Einblenden()
ActiveWindow.DisplayVerticalScrollBar = True
Dim lstrAcCell As String
lstrAcCell = ActiveCell.Address
On Error Resume Next
Rows.Hidden = FalseEnd
Range(lstrAcCell).Select
End Sub
Sub Ausblenden()
ActiveWindow.DisplayVerticalScrollBar = False
Dim lstrAcCell As String
lstrAcCell = ActiveCell.Address
Dim varResult As Variant
varResult = Application.Match(CDbl(Date), Range("A5:A65536"), 0)
If IsNumeric(varResult) Then Application.Goto Cells(varResult + 4, ActiveCell.Column), True
Dim Bereich As Range
If ActiveCell.Row > 1 Then
Set Bereich = Range(Cells(1, ActiveCell.Column), ActiveCell.Offset(-1, 0))
On Error Resume Next
Bereich.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
On Error GoTo 0
End If
Range(lstrAcCell).Select
End Sub