VBA - Automatisches aus- und einblenden von Zeilen

Hallo liebe User
Ich bin neu hier und habe folgendes Problem (Excel 2016 (Office 365)):
- Ich möchte gerne auf Tabelle2 sämtliche Zeilen vollautomatisch ausblenden lassen, sobald in den Zellen der Spalte D die Zahl 0 resp. nichts erscheint. Die Zellen haben entsprechende Formeln drin (bezugnehmend auf Tabelle1, wenn; dann; sonst), daher können diverse Werte erscheinen und diese können stets variieren.
- Sobald diese eben variieren und nicht mehr 0 resp. " ", sondern einen Wert ausgeben, sollen diese Zeilen eben wieder vollautomatisch eingeblendet werden.
Ich bin nunmehr seit 3 Tagen damit beschäftigt, irgendetwas darüber im www zu finden. Ich habe zwar etwas ähnliches gefunden, jedoch nicht mit Bezügen auf mein Problem. Da ich ein absoluter VBA-Neuling bin, hoffe ich nun auf Euch!
Vielen lieben Dank vorab für die Hilfe!!
Gruss Portner
https://www.herber.de/bbs/user/106171.xls
= mein File
https://www.herber.de/bbs/user/106172.xlsm
= der zwar funktionierende, aber nicht auf mein Problem angepasste Code

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Const bereich = "F16:F21,F23:F25,F27:F28,F30:F35,F37:F38,F40:F54,F56:F59" Private Sub Worksheet_Calculate() Dim rC As Range For Each rC In Intersect(Range(bereich), UsedRange) rC.EntireRow.Hidden = rC = 0 Next rC End Sub Sub einblenden() Dim rC As Range For Each rC In Intersect(Range(bereich), UsedRange) If rC.EntireRow.Hidden Then rC.EntireRow.Hidden = False Next rC End Sub

Hi zusammen,
es scheint, als ob das _Calculate nicht ohne weiteres beherrschbar ist: ich hatte auch Fehler wie stack-overflow, böses Stehenbleiben von Excel u.ä.
Ich habe dann u.a. versucht, die Events abzuschalten, aber das war alles nicht befriedigend.
Von der Logik her ist es doch so: wenn Du "normal" arbeitest, d.h. immer nur EIN Tabellenblatt anzeigst, sieht der Anwender ja nicht, was in der Zusammenfassung passiert.
Insofern reicht es eigentlich, ein Makro aufzurufen, sobald die "Zusammenfassung" aktiviert wird:

Private Sub Worksheet_Activate()
Dim rC As Range
If Not Intersect(Range(bereich), UsedRange) Is Nothing Then
'Msgbox dann rauswerfen
MsgBox Intersect(Range(bereich), UsedRange).Address
For Each rC In Intersect(Range(bereich), UsedRange)
rC.EntireRow.Hidden = rC = 0
Next rC
End If
End Sub

Das funktioniert bei mir klaglos.
Übrigens habe ich Deine Bereiche etwas geändert: die leere Zeile vor dem nächsten grünen Balken würde sonst IMMER ausgeblendet werden, weil sie ja keinen Wert enthält.
Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

VBA - Automatisches aus- und einblenden von Zeilen

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Automatisches aus- und einblenden von Zeilen

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread