---

Hallo,
wie kann ich eine Gruppierung automatisch öffnen, bzw. schließen, wenn in einer Zelle ein bestimmter Wert ist.
Der mein Ansatz ist folgender:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("C131") = 1 Or Range("C131") = -1 Then
    Call Hofposition1
End If
End Sub

Sub Hofposition1()
If Range("C131") = 1 Then
      Rows(196).ShowDetail = True
  Else
      Rows(196).ShowDetail = False
  End If
End Sub

Jedoch sollte er auch prüfen, ob die Gruppierung schon geöffnet oder geschlossen ist.
Auf jeden Fall funktioniert mein Code so nicht.
Kann mir jemand behilflich sein?

------------------
Gruß Pille

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

und was funktioniert nicht?

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Karin,
wenn z.B. die Gruppierung schon offen ist, dann bleibt er hängen, weil er sie nicht nochmals öffnen kann

------------------
Gruß Pille

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

kann ich leider nicht nachvollziehen. In meinem nachgebauten Beispiel kommt keine Fehlermeldung und der Code läuft problemlos durch - gleichgültig ob die Gruppierung geschlossen oder offen ist.

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Probiere ich nochmals aus. Melde mich wieder

------------------
Gruß Pille

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bild.jpg

Hallo Karin,
das Problem ist folgendes: in einem DropDown-Menü kann ich folgendes auswählen: 0, rund, oblong und oval.
Bei 0 soll die Gruppierung geschlossen sein und bei den anderen Drei geöffnet. So lang ich immer zwischen 0 und den anderen Dreien wechsel, ist alles OK. Wechsel ich aber unter den Dreien, bleibt er hängen.

------------------
Gruß Pille

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Na, die Antwort hast Du Dir doch fast schon selbst gegeben  : Wenn Zellwert <> 0 dann...

Evtl. kannst Du ja den Aufruf der Funktion Hofposition1() von eben dieser Bedingung abhängig machen?

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Paulchen,

ich hab nun den Umweg über 1 und -1 gelöscht und bin direkt auf das PullDown-Menü gegangen. Aber wie gesagt, wenn ich z.B. von rund auf oval wechsel, dann ist die Gruppierung bereits offen. Da er dann nochmals versucht sie zu öffnen, bringt er mir die Fehlermeldung.

------------------
Gruß Pille

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hm... lässt sich der Zustand denn nicht abfragen? À la

Code:

---

Sub Hofposition1()
If Range("C131") = 1 Then
      'Rows(196).ShowDetail = True
      If Rows(196).ShowDetail = False Then Rows(196).ShowDetail = True
  Else
      Rows(196).ShowDetail = False
  End If
End Sub

---

Ungetestet. Evtl. kannst Du den Zustand auch "toggeln", z. B. Rows(196).ShowDetail = Not Rows(196).ShowDetail. Klappt das?

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Paulchen:
Hm... lässt sich der Zustand denn nicht abfragen? À la[code]Sub Hofposition1()
[/B]

---

Doch, genau so passt es.
Super, danke Paulchen

------------------
Gruß Pille

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP