Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeilen abhängig von Zellwert ein-/ausblenden

Zeilen abhängig von Zellwert ein-/ausblenden
30.09.2024 12:38:42
Chris1968
Liebe Excel-Gemeinde,

ich stehe vor der "Herausforderung" (welche offenbar nur für mich eine solche ist), in einem Arbeitsblatt die Zeilen 61-118 abhängig vom Inhalt der Zelle GL6 dynamisch ein- bzw. auszublenden:

GL66 ... Zeilen 61-118 ausgeblendet
GL6>=6 ... Zeilen 61-118 eingeblendet

Mein bisheriger Code dazu sieht folgendermaßen aus:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("GL6") 6 Then
Rows("61:118").EntireRow.Hidden = True
Else
Rows("61:118").EntireRow.Hidden = False
End If
End Sub

Bei manueller Eingabe in die Zelle GL6 funktioniert das auch bestens - allerdings wird der Wert in GL6 mittels Formel generiert und scheint von VBA daher ignoriert zu werden :-(

Gibt es eine Möglichkeit, dies zu beheben?

Vielen Dank vorab und liebe Grüße,
Chris
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen abhängig von Zellwert ein-/ausblenden
30.09.2024 13:11:25
Raimund
Hi Chris

Private Sub Worksheet_Calculate()
If Range("GL6").Value 6 Then
Rows("61:118").EntireRow.Hidden = True
Else
Rows("61:118").EntireRow.Hidden = False
End If
End Sub

Mit diesem Code werden die Zeilen 61 bis 118 jetzt automatisch ein- oder ausgeblendet,
wenn die Werte in GL6 von der Formel aktualisiert werden.


Gruss
Anzeige
AW: Zeilen abhängig von Zellwert ein-/ausblenden
03.10.2024 10:19:36
GerdL
Moin,
dem Vorschlag von Yal folgend ohne Calculate-Prozedur.
'Ins Modul von Blatt Aviso

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) = "DF82" Then 'Name des Blattes Tabelle2 anpassen.
Worksheets("Tabelle2").Rows("61:118").EntireRow.Hidden = (Worksheets("Tabelle2").Range("GL6") 6)
End If

End Sub

Gruß Gerd
Anzeige
AW: Zeilen abhängig von Zellwert ein-/ausblenden
03.10.2024 12:39:56
Chris1968
Hallo Gerd,

Danke für Deinen Vorschlag- ich habe den Code soeben entsprechend angepasst und ausprobiert, doch leider bleiben alle Zeilen unabhängig von den Zellen DF82 im Aviso bzw. GL6 im aktuellen Arbeitsblatt dauerhaft eingeblendet ...

Übersehe ich vielleicht etwas Wesentliches?

Liebe Grüße,
Chris
Anzeige
AW: Zeilen abhängig von Zellwert ein-/ausblenden
30.09.2024 16:15:53
Yal
Hallo zusammen,

ja, die Methode über das Ereignis Calculate funktioniert, jedoch wäre es sinnvoller, die Quelle(n) der Wert in GL6 ausfindig zu machen und die Reaktion auf diese zu richten.

Übrigens: der Prüfung der IF-Bedingung ist an sich True oder False. Man kann daher diese Antwort direkt wiederverwenden.

Hier ein Beispiel, wo GM6 und GN6 die Wert in GL6 beeinflüssen würden:
Private Sub Worksheet_Change(ByVal Target As Range)


Select Case Target.Address(0, 0)
Case "GM6", "GN6"
Rows("61:118").EntireRow.Hidden = (Range("GL6") 6)
Case "A1"
MsgBox "Zelle A1 wurde geändert!"
Case Else
'in dem Fall nichts zutun
End Select
End Sub


VG
Yal

Anzeige
AW: Zeilen abhängig von Zellwert ein-/ausblenden
01.10.2024 06:32:45
Chris1968
Hallo Yal,

die Formel, welche den Wert für die Zelle GL6 liefert, befindet sich auf einem anderen Arbeitsblatt namens "Aviso" in der Zelle DF82.

Ich würde Deinen Code also gerne mal ausprobieren, bräuchte dazu aber bitte die entsprechende Anpassung ...

Nochmals vielen Dank vorab und liebe Grüße,
Chris
Anzeige
AW: Zeilen abhängig von Zellwert ein-/ausblenden
01.10.2024 06:24:44
Chris1968
Hallo Raimund,

sorry für die verspätete Meldung - bin leider erst jetzt dazugekommen ...

Du hast natürlich recht, in diesem Fall ist "Calculate" nötig.

Mit dem neuen Code wird während der Berechnung das File zwar für einige Sekunden außer Gefecht gesetzt, aber das liegt möglicherweise am enthaltenen Formelwerk (die Datei ist knappe 3MB groß) ... auf jeden Fall aber funktioniert Deine Routine und tut genau das, was sie soll :-)

Danke für Deine Unterstützung und liebe Grüße,
Chris
Anzeige
AW: Zeilen abhängig von Zellwert ein-/ausblenden
03.10.2024 08:25:23
Chris1968
Hallo nochmal,

seit dem Speichern, Schließen und erneuten Öffnen meiner Datei bekomme ich bei jeder Änderung der Zelle GL6 (obwohl ich die Datei wie bisher als *xltm abgespeichert und ansonsten nichts daran verändert habe) folgende Fehlermeldung:

Die Methode "Hidden" für das objekt "Range" ist fehlgeschlagen.

Die betreffenden Zeilen sind anschließend zwar ausgeblendet, aber das File reagiert nicht mehr adäquat und jeder weitere Mausklick führt unweigerlich zum Excel-Absturz ... ich kann die Anwendung nur noch per Taskmanager beenden und erneut starten, was dauerhaft leider keine Verbesserung bringt :-(

Gibt es daher irgendwelche Lösungsvorschläge Eurerseits?

Vielen Dank nochmals vorab und liebe Grüße,
Chris
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige