Zeilen aus- und wieder einblenden
15.11.2018 09:37:24
Elmar
ich habe eine Excel Datei mit zahlreichen Tabellenblättern auf welcher mittels Makro auf allen Tabellenblättern bestimmte Zeilen ausgeblendet werden. Dies funktioniert soweit.
Mit dem 2. Makro sollen auf allen Tabellenblättern alle vorher ausgeblendeten Zeilen wieder eingeblendet werden. Dies funktioniert jedoch nur auf dem jeweils aktuellen Tabellenblatt. Wie muss das Makro künftig aussehen?
Vielen Dank
Elmar
Option Explicit
Public Sub ehemalige_ausblenden()
' ehemalige_ausblenden Makro
' ehemalige Bewohner ausblenden
' Tastenkombination: Strg+a
Dim raZelle As Range, raGesamt As Range, loLetzte As Long
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
loLetzte = .Cells(.Rows.Count, 11).End(xlUp).Row
For Each raZelle In .Range(.Cells(2, 11), .Cells(loLetzte, 11))
If .Cells(raZelle.Row, 11) = "x" Then
If raGesamt Is Nothing Then
Set raGesamt = raZelle
Else
Set raGesamt = Union(raGesamt, raZelle)
End If
End If
Next raZelle
End With
If Not raGesamt Is Nothing Then raGesamt.EntireRow.Hidden = True
Set raGesamt = Nothing
Next ws
Set raGesamt = Nothing
End Sub
Sub ehemalige_einblenden()
'
' ehemalige_einblenden Makro
' ehemalige Bewohner einblenden
'
' Tastenkombination: Strg+e
'
Cells.Rows.Hidden = False
End Sub
Anzeige