VBA Zeilen ein/ausblenden wenn Wert in Feld AC17 ist 1/0

Question

Hallo Leute!

Mich beschäftigt (mittlerweile zermürbt) folgende kleine Aufgabenstellung:

-Tabellenblatt "Kalkulation"
-Im Feld AC17 wird eine 1 oder eine 0 per Formel (Wenn/Dann) generiert.
-Bei einer 0 sollen die Zeilen 30-52 ausgeblendet werden.
-Bei einer 1 sollen die Zeilen 30-52 eingeblendet werden.
-Bei jeder automatischen Berechnung des Wertes in Feld AC17 soll das Ausblenden stattfinden.

Ich hab div. Ansätze versucht. Leider bisher ohne Ergebnis.

Wäre super wenn jemand einen Vorschlag hätte...
thx + lg
stefan

Answer 1

Hi All,

Wenn ihr die Bedingungen, die zum Ergebnis der Formel führen, bis zum Ursprung zurückverfolgt (z.b. Detektiv - Vorgängerzellen), könnt ihr auch das Change-Ereignis verwenden. Schließlich, wird ja eine Formel nur berechnet, sobald sich irgendwo was ändert.

z.B. unter der Annahme dass in D45 die Formel =D10 steht.

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("D10") = Sheets("Vorteilsk.kalk").Range("I9") Then
Rows("30:52").Hidden = True
Else
Rows("30:52").Hidden = False
End If

End Sub

Um einen genaueren Code zu generieren, fehlen jedoch die tatsächlichen Formeln für D45 und die möglichen eingaben in D10 und I9 des anderen Tabellenblatts.

Mr. K.

Answer 2

danke Leute,
mit euren Anweisungen bin ich schon ein ganzes Stück weiter, ich muss das jetzt mal austesten...