Makro Zeilen ein- u. ausblenden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jessi,
Gefühlt ist das ungefähr dein 7ter Post zu diesem Thema ;-)
Vielleicht wäre es einfacher deinen Wunsch mal zu überdenken und umzuformulieren:
Beschreibung:
Ich mache in dem Bereich (ZelleVon, ZelleBis) manuelle Eingaben.
Dadurch verändern Sich im Bereich (ZelleVon, ZelleBis oder Spalte[n]) Werte die durch Formel ermittelt werden. Manche dieser Werte können den Fehlerwerte (z.B. #NV) auftreten.
Wunschvorstellung:
Wenn sich im Bereich (ZelleVon, ZelleBis oder Spalte[n]) die Resultatwerte von gültigem Wert auf Fehlerwert z.B. #NV verändert soll die ganze Zeile ausgeblendet werden. Ändert der Resultatwert von Fehlerwert z.B. #NV auf gültiger Wert soll die ganze Zeile eingeblendet werden.
Randbedingungen: Das Verhalten soll auf allen Tabellenblättern (mit Ausnahme des Tabellenblatts "Beschreibung") automatisch ausgeführt werden, wenn manuelle Änderungen im beschriebenen Bereich gemacht werden. Die Tabellenblätter sind mit einem Passwort "Passwort" geschützt.
Wenn das deiner Problem/Lösungsbeschreibung entspricht, teile uns nur die Bereich, wie oben beschrieben mit. Wenn nicht, ergänze entsprechend deinen Gegebenheiten und Vorstellungen den Text!
Gruess Hansueli

Hallo Jessi,
Versuchs mal mit diesem Code in DieseArbeitsmappe!
Dann einmal Excel schliessen/sichern und neu öffnen. Dann ausprobieren.

Option Explicit
Const sArrWS As String = "Kontennachweis zur Bilanz;Kontennachweis zur GuV;Vorgehensweise; _
Grundeinstellungen;fehlende Konten;doppelte Konten"
Const sInputRng As String = "A:E"
Const sFormulaRng As String = "E:K"
Const sPW = "Passwort"
Dim arrInpWS
Dim arrNoHideWS
Private Sub Workbook_Open()
Dim tmp
arrNoHideWS = Split(sArrWS, ";")
arrInpWS = Array(arrNoHideWS(0), arrNoHideWS(1))
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ws As Worksheet, rngSC As Range, rRow As Range
Dim bDoit As Boolean
Dim ix As Integer
If Not (Sh.Name = arrInpWS(0) Or Sh.Name = arrInpWS(1)) Then Exit Sub
If Intersect(Target, Sh.Range(sInputRng)) Is Nothing Then Exit Sub
For Each ws In ThisWorkbook.Worksheets
bDoit = True
For ix = 0 To UBound(arrNoHideWS)
If ws.Name = arrNoHideWS(ix) Then
bDoit = False
Exit For
End If
Next ix
If bDoit Then
ws.Unprotect sPW
ws.UsedRange.EntireRow.Hidden = False
On Error Resume Next
Set rngSC = ws.Range("E:K").SpecialCells(xlCellTypeFormulas, 16)
On Error GoTo 0
If Not rngSC Is Nothing Then rngSC.EntireRow.Hidden = True
Set rngSC = Nothing
ws.Protect sPW
End If
Next ws
End Sub

Anpassungen musst du ev. nur die CONST Werte am Anfang des Codes
Gruess Hansueli

Sub ZeilenAUSundEIN() Dim ws As Worksheet, rngERROR As Range Application.ScreenUpdating = False For Each ws In ActiveWorkbook.Worksheets ws.Unprotect "Passwort" On Error Resume Next Set rngERROR = ws.Columns(6).SpecialCells(xlCellTypeFormulas, 16) On Error GoTo 0 If rngERROR Is Nothing Then ws.Rows.Hidden = False 'keine Fehler Else rngERROR.EntireRow.Hidden = Not rngERROR.EntireRow.Hidden End If Set rngERROR = Nothing ws.Protect "Passwort" Next End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro Zeilen ein- u. ausblenden

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread