Office: (Office 365) Zeilen ausblenden bei bestimmten Wert

Hallo,
über VBA lasse ich Zeilen ausblenden, wenn in einer Zelle ein bestimmter Wert steht. In meinem Fall Ausblenden bei <60000. Prinzipiell funktioniert der verwendete Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("$C$25") < 60000 Then
Rows("26:31").EntireRow.Hidden = True
Else
Rows("26:31").EntireRow.Hidden = False
End If
End Sub

Der Code funktioniert aber nur bei manueller Eingabe in C25. Wenn ich jetzt die Eingabe auf einem zweiten Tabellenblatt vornehmen möchte und C25 ändere zu ='Tabelle1'!C5 , dann funktioniert es genau einmal, aber bei neuer Eingabe auf dem zweiten Tabellenblatt ändert sich nichts mehr. Es geht dann nur wieder über die manuelle Eingabe im Feld C25 auf dem ersten Tabellenblatt. Ich habe auch verschiedene andere Codes ausprobiert, die bei manueller Eingabe alle funktionieren, aber sobald ich im Feld die Formel hinterlege und die Eingabe auf einem anderen Tabellenblatt mache geht es nicht mehr. Über Ideen wäre ich sehr dankbar.

vg,benny

 

Hi Benny,

du musst den Code ins 2. Tabellenblatt schreiben und die dortigen Eingabezellen überwachen, ob dort eine Eingabe erfolgte. Wenn ja, dann prüfen ob Tabelle1!C25 < 60000.

---

 

Hallo Benny,

laut Microsoft-Hilfe:
Worksheet.Change-Ereignis (Excel)
Tritt auf, wenn Zellen im Arbeitsblatt durch den Benutzer oder durch einen externen Link geändert werden.
Dieses Ereignis tritt nicht auf, wenn Zellen während einer Neuberechnung geändert werden. Verwenden Sie das Calculate -Ereignis, um eine Blatt-Neuberechnung aufzufangen.

Worksheet. Calculate-Ereignis (Excel)
Tritt ein, nachdem das Arbeitsblatt für das Worksheet -Objekt neu berechnet wurde.


Somit tritt das Change-Ereignis nur ein, wenn man zB. eine Tastatureingabe macht oder in einem DropDown einen Wert ändert u.dgl. Es tritt nicht ein, wenn sich eine Zelle des Arbeitsblattes aufgrund eines Formelergebnisses ändert (zB. ='Tabelle1'!C5)

Aber da du eh den Parameter "Target" im Prozeduraufruf zum Change-Ereignis nicht verwendest, kannst du ja genauso die Callback-Sub für das Calculate-Ereignis verwenden, indem du einfach den Prozedurkopf ersetzt wie folgt:

Private Sub Worksheet_Calculate()
If Range("$C$25") < 60000 Then
Rows("26:31").EntireRow.Hidden = True
Else
Rows("26:31").EntireRow.Hidden = False
End If
End Sub

Aber natürlich musst du die SUB ins richtige Codemodul schreiben.

 

Hi Benny,

das Calculate-Ereignis wird bei jeder Berechnung ausgeführt (falls du noch weitere Formeln im Tabellenblatt hast), was unnötig ist.
Schau dir das angehängte Beispiel an, wie man es mit dem Change-Ereignis lösen kann. Der Code befindet sich im Codemodul der Tabelle2, wird ausgeführt wenn dort in E5 etwas eingetragen wird und in Tabelle1!C25 (berechnet aus der Formel =Tabelle2!E5 - so habe ich dich verstanden) der Wert < 60000 ist.

---

 

Super, vielen Dank. Hat geklappt!

 

Hey, ich habe da noch einmal eine Frage. Bei einzelnen Werten hat das mit der Zellüberwachung geklappt, aber jetzt würde ich gerne zwei Zellen überwachen, welche zusammen addiert werden. D.h. die oben genannte Zelle (C25) aus Tabellenblatt 1 = die Summe zweier Zellen (C15, C16) aus Tabellenblatt 2 und wenn die Summe < 60000 sollen die Zeilen ausgeblendet werden. Meine Versuche sind bisher fehlgeschlagen. Auch der Versuch, ein extra Feld mit der Summe der beiden Zellen zu nehmen, welche dann mit dem gleichen Code überwacht wird wie oben vorgeschlangen, hat nicht funktioniert. Gibt es hierfür auch eine Lösung?

Vielen Dank im Voraus.

PS: Bin noch ein Laie mit VBA.

 

Hi Benny,

im Codemodul der Tabelle2:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target.Cells(1), Range("C15:C16")) Is Nothing Then
        Worksheets("Tabelle1").Rows("26:31").EntireRow.Hidden = Worksheets("Tabelle1").Range("C25") < 60000
    End If
End Sub

---

 

Ein Traum! Vielen Dank!

 

Hallo Beverly,
leider ist deine Beispieldatei hier nicht mehr auffindbar. Ich sitze nämlich vor einem ähnlichen Problem. Vielleicht kannst du nochmals ein Beispiel erstellen und mir zukommen lassen. Das wäre super.
Im Anhang ist meine, noch im Aufbau befindliche Datei. Habe alle meine Versuche zum erstellen der VBA-Makrofunktion wieder rausgeschmissen. Es soll folgendes möglich sein. In der "Funk-Auswahl" wird in Zelle "H2" eine "0" bzw. "1" gebildet. Abhängig von der Auswahl in "E2-E5". Wenn diese Auswahl nicht vorgenommen wurde (dann "H2" = "0"), soll eine weitere Bearbeitung nicht mehr möglich sein. Es sollen dann die Zeilen 7-32 ausgeblendet werden. Wurde die Auswahl durchgeführt (H2" = "1") sollen die Zeilen 7-32 wieder eingeblendet werden. (die Zelle "H2" will ich in der Endversion später ausblenden bzw. unsichtbar machen)
Meine Kenntnisse zur VBA sind auf unterster Ebene. Bei mir läuft alles auf "Learning by doing"

Vielen Dank im Voraus,
Gruß, Michael

 

Hi Michael,

das geht vom Prinzip her mit demselben Code wie in Beitrag #7, nur müssen die überwachten Zellen, die aus-/einzublendenden Zeilen und die Bedingung für das Aus-/Einblenden entsprechend angepasst werden. Außerdem sollen die Zeilen im selben Tabellenblatt wie der Code aus-/eingeblendet werden und nicht in einem anderen Tabellenblatt.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target.Cells(1), Range("E2:E5")) Is Nothing Then
        Rows("7:23").EntireRow.Hidden = Range("H2") = 0
    End If
End Sub

---

 

Super, danke.
Ich hatte viel zu kompliziert gedacht.

Gruß, Michael

 

Jetzt hab ich doch noch ne Kleinigkeit.
Grundsätzlich möchte ich die Tabelle "Funk-Auswahl" sperren. D.h., der Bediener kann nur die Pulldowns und die veränderbaren Zellen bedienen. Wenn ich den Blattschutz dann aktiviere stürzt die Sache, bei der Bedienung der Vorauswahl, ab. Vermutlich liegt das daran, dass ich zum einen die Zeilen 7-32 schützen (also sperren) will, zum andern aber gerade diese Zeilen ein.- und ausblenden möchte
Gibt´s da eine Möglichkeit dies zu umgehen?

Gruß, Michael

 

Hi Michael,

dann muss im Code der Blattschutz zu Beginn aufgehoben und am Ende wieder gesetzt werden:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target.Cells(1), Range("E2:E5")) Is Nothing Then
        ActiveSheet.Unprotect
        Rows("7:23").EntireRow.Hidden = Range("H2") = 0
        ActiveSheet.Protect
    End If
End Sub

---

 

Klasse.
Vielen Dank.
Glaube ich muss mich der VBA-Programmierung näher beschäftigen. Da steckt viel drin. Klar, die nötige Erfahrung benötigt man dann letztendlich.
Gruß, Michael

 

Mir ist nun doch noch etwas aufgefallen.
Wenn die Tabelle "Funk-Auswahl" gesperrt ist, werde ich bei einer Veränderung einer der Zellen E2:E5 nach Blattschutz aufheben gefragt. Wenn ich kein Kennwort eingebe oder auf Abrechen gehe, kommt Laufzeitfehler '1004'. Gebe ich das Passwort ein, funktioniert alles so wie es sein sollte. Bei weiteren Änderungen an E2:E5 erscheint keine Abfrage mehr. Alle geschützten Felder bleiben auch dementsprechend geschützt. Allerdings kann man jetzt den Blattschutz aufheben ohne ein Passwort einzugeben.
Wo liegt hier das Problem?
Gruß, Michael