Office: Makro oder einfacher für einen Projektplan

Hallo Miteinander,

ich hab da mal ne Anfänger Frage,

für meinen Projektplan möchte ich, beim anklicken von Zelle A1 das sich die Zelle Z1 (oder weiter hinten) aufgeht bzw. erscheint und im gleichen Schritt sollen die Zellen Z2 Z3 Z4 (wurde in Gruppe zusammengefasst) sich öffnen.

Geht das mit einem Makro? Oder wenn es einfacher geht auch gerne anders.


Freue mich über Hilfe

Gruß Alex

 

Damit wäre VBA, also ein Makro, angesagt...

Was meinst Du mit "erscheinen", "aufgehen" bzw. "öffnen"? Soll der Cursor auf die Zelle(n) platziert werden?

Also Maus über A1, Klick, whooosh... Cursor steht auf Z1?

Das geht nicht ganz so, aber in der Art... Es gibt kein Ereignis, das auf einen einfachen Klick reagiert, aber Doppelklick oder Rechtsklick würde gehen.

Aber was meinst du damit, daß im selben Schritt auch Z2:Z4 angezeigt werden sollen?

Gruß, Michael

 

Hallo miriki,

danke für die Hilfe. So wie Du den ersten Part beschrieben hast war es auch gedacht, Doppelklick auf A1 und wusch der Cursor springt auf Z1.
Aber genau dann kommt es. Die Zellen Z2 : Z4 sind gruppiert und geschlossen und sollen im Anschluss an den Doppelklick auf A1 wusch Cursor auf Z1 sich dann öffnen.

Gruß Alex

 

Das gruppiert krieg ich ja noch gebacken, aber ich versteh immer noch nicht, was Du mit "geschlossen" meinst. Und auch in Deinem angehängten Beispiel sehe ich weder das eine (Gruppierung) noch das andere (geschlossen).

Oder anders gefragt Wie hast Du Z2:24 "geschlossen"?

Meinst du "gesperrt" (Format - Zellen - Schutz - [X] gesperrt) oder "ausgeblendet"? Ausblenden kann man nur eine ganze Zeile oder Spalte. Ist also Spalte Z ausgeblendet? Oder die Zeilen 2:4?

Gruß, Michael

 

Hallo Miriki,

ich denke ich hab´s ja auch doof beschrieben. Zelle A1 drücken Cursor wechselt auf Z1. Die Zellen Z2 : Z9 sind gruppiert (linker Tabellenrand das + Zeichen) Diese sollen sich im Anschluss automatisch öffnen (also ohne das ich auf das + Drücke) wenn das überhaupt geht. Das ganze deswegen da meine Projektpläne sehr viele Punkte und Unterpunkte haben.
Aber vielleicht ist das Wort "Ebene" besser als gruppiert???

Der Befehl zum gruppieren den ich meinte ist unter Daten / Gruppieren

Gruß Alex

 

Hallo Alex76,

sehe ich es richtig das Du nicht "Zellen öffnen", sondern ausgeblendete Zeilen "wieder einblenden" willst?

Dann könnte man Deinen Code so ergänzen:

Code:

Range("Z1").Select
Rows("2:8").EntireRow.Hidden = False

Ich hoffe ich habe Dich richtig verstanden und konnte zur Lösung beitragen.

 

Hi Achim,

ja super des funktioniert. jetzt kann ich auf A1 klicken und der Cursor springt auf Z1 und im Anschluss gehen die Zellen Z2:Z8 auf.

Darf ich noch fragen ob es einen Befehl gibt (ein Button mit Makro Zelle A2 der die Zellen Z2:Z8 wieder schließt. Muss net sein kann ich ja auch über das - Zeichen der Gruppierung machen.

Gruß Alex

 

Naja, das wäre dann ja im Prinzip das gleiche. Ich hab im angehängten Beispiel den VBA mal etwas "aufgeräumt":

Gruß, Michael

 

Hallo Alex76,

von Michael hast Du ja schon eine Lösung die funktioniert wie Du erbeten hattest.

Allerdings würde mich persönlich der zweite Button stören.
(Es gibt halt, wie meistens, mehrere Wege...)

Es geht auch mit dem bereits vorhandenen:

Code:

Sub Makro1()
    
    If Rows("2:8").EntireRow.Hidden = True Then
        Range("Z1").Select
        Rows("2:8").EntireRow.Hidden = False
    Else
        Range("A1").Select
        Rows("2:8").EntireRow.Hidden = True
    End If
    
End Sub

Die Selektion von "A1" beim Ausblenden kannst Du auch weglassen, ich weiß ja nicht was Du vorhast oder wo Du hin willst...


Ich hoffe geholfen zu haben.

 

Hi Michael und Achim,

vielen vielen Dank für die Hilfe. Die beiden Vorschläge reichen völlig.
Gut das es dieses Forum gibt.

Grüße Alex :-D