Office: (Office 2013) Automatisches / bedingtes aus- einblenden von Zeilen

Hallo zusammen,

ich bin neu hier und beim Thema VBA auf fremde Hilfe angewiesen.

Um mein Problem knapp zu umreißen:

Ich möchte in einem Arbeitsblatt einen immer gleichen Bereich ausblenden wenn eine Bedingung erfüllt ist bzw. diesen Bereich einblenden wenn die Bedingung nicht erfüllt ist.

Aktueller Stand:

Wenn in einem anderen Arbeitsblatt eine gewisse Anzahl von Werten erreicht ist, schreibt es mir in die Zelle "A1" in meinem betreffenden Arbeitsblatt eine 1. Das Ergebnis dieser Zelle lasse ich mittels VBA in Zelle "B1" schreiben (um nur eine Zahl in einer Zelle zu haben ohne Formel dahinter).
Nun sollte Excel Zeile 10 bis 20 ausblenden wenn das "Ergebnis" in B1=1 ist und nichts ausblenden wenn nicht gleich 1.

Excel tut dies auch, allerdings nur bei manueller Eingabe der 1 in B1. Wenn sich das Ergebnis in B1 errechnet bzw. ermittelt, wird die Aktion zum Ausblenden der Zeilen nicht ausgelöst.

So sieht es aktuell aus:

Private Sub Worksheet_Calculate()

Application.EnableEvents = False
Range("B1").Value = Range("A1").Value
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
If Target.Value = "1" Then
Rows("10:20").Hidden = True
Else
Rows("10:20").Hidden = False
End If
End If
End Sub

Ich hoffe ich habe mein Problem halbwegs verständlich erklären können und bin für jeden Hinweis dankbar, sollte es denn umsetzbar sein.
Danke schon mal.

 

Hallo Eric,

versuche es einmal so:
If Target.Value = 1 Then

statt so:
If Target.Value = "1" Then

 

Hallo Karl,
danke erst mal für deine Antwort. Das habe ich gemacht, ändert leider nichts an meinem Problem.
Das Ausblenden der Zeilen funktioniert weiterhin nur bei manueller Eingabe und nicht bei Änderung durch Formel bzw. VBA.

 

Hallo Eric,

du könntest dein Sub Worksheet_Change
in ein einfaches Makro, z.B. Sub ZeilenAusEinblenden ändern
und in deinem Makro nach schreiben des Wertes in B1 aufrufen, z.B. mit dem Tabellennamen und Makronamen
Sheets("Tabelle1").ZeilenAusEinblenden
dann werden die Zeilen in jedem Fall Ein- oder Ausgeblendet.

Es ist nicht einfach zu entscheiden, welcher Weg der Richtige ist,
wenn man nicht die Datei incl. Code vor sich hat.

Gruß Karl

 

Hallo Karl,

danke, ich werde das jetzt mal versuchen. Sollte ich nicht weiter kommen, melde ich mich nochmal und lade die Datei mal hoch.
Bis hierhin vielen Dank erst mal.

Grüße Eric.