AW: Zeile in allen Tabellenblättern ausblenden
20.12.2018 14:23:00
Nepumuk
Hallo Thomas,
kein Problem.
Einen Rechtsklick auf den Tabellenreiter der Tabelle "Teilnehmer" - Code anzeigen. In das sich öffnende Codefenster den folgenden Code kopieren:
Option Explicit
Private Sub Worksheet_Calculate()
Dim ablnRowHidden(7 To 22) As Boolean
Dim lngRowHidden As Long
Dim vntWorksheetname As Variant
For lngRowHidden = 7 To 22
ablnRowHidden(lngRowHidden) = Cells(lngRowHidden, 11).Value = 0
Next
For Each vntWorksheetname In Array("Abrechnung", "Geld ausgelegt", "Essen", _
"Übernachtungen", "Getränke", "Rücknahme", "Info")
With ThisWorkbook.Worksheets(vntWorksheetname)
For lngRowHidden = 7 To 22
.Rows(lngRowHidden).Hidden = ablnRowHidden(lngRowHidden)
Next
End With
Next
End Sub
Das Makro reagiert auf die Neuberechnung einer Formel in der Tabelle. Dazu einfach einen Wert in den Zellen B7 bis I22 anklicken, mit F2 in den Editiermodus gehen und Enter drücken.
Ich frage mich nur, wie willst du die Werte in den ausgeblendeten Zeilen ändern damit sie wieder eingeblendet werden? Oder sind das auch Formeln?
Gruß
Nepumuk