Office: Rechtecke bei Klick ein und ausblenden

Hallo,

ich habe ein Tabellenblatt als Übersicht mit 5 verschiedenen Rechtecken (also natürlich von jedem der 5 mehrere) und würde gerne einen Button oder sonst etwas einbauen, dass man die Möglichkeit hätte entweder alle Rechtecke anzuzeigen oder jeweils nur ein Rechteck...
Ist dies realisierbar ?

Gruß Nico

 

Hallo Nico,

Excel hat dch Benutzerdefinierte Ansichten, hast Du es damit mal versucht?

Gruß Hajo

 

Danke Hajo_Zi!

Gibt es aber noch eine Möglichkeit mir die Ansichten irgendwie auf das Tabellenblatt zu holen d.h, dass man sie z.B: über ein DropDown Menü auswählen könnte?

 

Hallo Nico,

bei Benutzedefinierte Ansichten kommt doch shon ein Dialog wo die festgelegten angezeigt werden.

Gruß Hajo

 

Ja das schon, aber da ich nicht weiß, wie vertraut andre Leute, die mit dieser Exceltabelle arbeiten sollen mit Excel sind wäre es super, wenn es eine Möglichkeit gäbe diese auf das Tabellenblatt als DropDown zu bringen.

 

Ich habe aber auch gerade gemerkt, dass ich nicht wirklich danach filtern kann

Kannst du mir erklären, wie ich das machen könnte?
Ich habe jetzt schon nach z.B: Rechteck41 gefiltert hat aber nicht funktioniert, dann habe ich über Einfügen > Namen > Definieren mir das Rechteck definiert jedoch hat dies auch nicht funktioniert...

 

Hallo Nico,

mir ist nicht klar was Duz filtern willst.

Ansicht so Einstellen wie Sie angezeigt werden soll. Dann Register Ansicht, Befehlsgruppe Arbeitsmappenansichten, Benutzerdef. Ansichten, Hinzufügen, Namen eintrag fertig.

Gruß Hajo

 

Es ist so, dass ich auf der Hauptseite eine Übersicht habe mit mehr als 20 Rechtecken.
Es gibt 5 verschiedene Namen für die jeweiligen Rechtecke.

Jetzt würde ich mir gerne eine Ansicht erzeugen in der dann z.B: nur die Rechtecke mit dem gleichen Namen angezeigt werden und die andren verschwinden.
Aber ich kann ja nicht einfach alle anderen Rechtecke löschen und dann eine Ansicht speichern, da sonst auch meine gespeicherte Gesamtansicht nur noch aus den übrig gelassenen besteht.
Allerdings kann ich aber leider nach den Rechtecken nicht filtern...

Habe eine mal eine Bspdatei angehängt (enthält Makro für eine bei_Klick() ).

Gruß Nico

 

Hallo Nico,

ich finde kein Makro, ich finde nicht 5 sonder ca. 19 Rechtecke.;ir ist nicht klar was Du möchtest. Ich vermute mal es ist keine Ansicht.

Gruß Hajo

 

Die Tabelle ist nur ein Ausschnitt den ich schnell kopiert hatte...
Ich möchte eine Ansicht in der Alle Rechtecke (d.h SHS und BBWN) zu sehen sind, welche ich unter Ansicht > Benutzerdefinierte Ansicht > Gesamtansicht gespeichert habe und jeweils eine, in der man nur die SHS/BBWN Rechtecke sieht...

 

Hallo Nico,

ich vermute mal Du möchtest 3 Makros haben
1. Makro alle Rechtecke mit Inhalt SHS anzeigen
2. Makro alle Rechtecke mit Inhalt BBWN anzeigen
3. Makro alle Rechtecke anzeigen
???

Ich bin nicht der Fachmann fü Steuerelemente in der Tabelle.

Gruß Hajo

 

Also ich weiß nicht mit was dies Möglich ist...
Ob dies jetzt nur über Makros funktioniert oder eventuell auch über deine oben genannte Methode mit den Ansichten...

Aber ansonsten trifft Punkt 1.-3. genau zu!

 

Hallo Nico,

ich habe jetzt mal Dein Makro in Auftrag gegeben. wähle unten das Register, rechte Maustaste, Code anzeige und Code ins rechte Fenster kopieren. Das Makro wird durch doppelklick ausgelöst.

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Sub ShapesAnzeigenAusblenden()
    '**************************************************
    '* 17.08.09                                       *
    '* erstellt von Karin, [url]http://beverly.excelhost.de*[/url]
    '* [email]beverly@excelhost.de[/email]                           *
    '**************************************************
    Dim shElement As Shape
    Dim inAuswahl As Integer
    inAuswahl = Application.InputBox(prompt:="1 - SHS, 2 - BBWN, 3 - Alle", Default:=3, Type:=1)
    For Each shElement In ActiveSheet.Shapes
        If inAuswahl = 1 Then
            shElement.Visible = shElement.DrawingObject.Caption = "SHS"
        ElseIf inAuswahl = 2 Then
            shElement.Visible = shElement.DrawingObject.Caption = "BBWN"
        Else
            shElement.Visible = True
        End If
    Next shElement
'End Sub
    Cancel = True
End Sub

Gruß Hajo

 

Wow vielen Dank Hajo_Zi!!

 

Hallo Nico,

ich habe Deinen Kommentar weiter geleitet.

Gruß hajo