Office: (Office 2010) Bilder ausblenden

Hallo zusammen,

Ich habe folgendes Problem:

Ich habe im Register "Binder Rücken" das gleiche Bild 30x drin. Jedes Bild heisst "Logo 1".
Auf dem Register "Index" sind einige Fragen, die mithilfe einer Dropdown-Liste beantwortet werden können.

Ich will, dass wenn im Register "Index" Zelle B7 = A17, dann müssen die 30 Bilder "Logo 1" auf dem Register "Binder Rücken" ausgeblendet werden.

Aber wenn die Zelle (Register "Index") B7 = A16 ist, dann müssen die 30 Bilder wieder eingeblendet werden.

Ist das möglich?


Vielen Dank und freundliche Grüsse
danifonseca

 

Hi,

ja, das wäre per VBA lösbar. Was für eine DropDown-Liste - Gültigkeitszelle, Formular-Steuerelement oder Activex-Steuerelement?
Gibt es auch noch andere Shapes außer den Bildern In Tabelle "Binder Rücken"?

Bis später,
Karin

 

Hi Karin,
Danke für deine Antwort.

Die dropdown habe ich bei Datenprüfung erstellt. Ist das was du wissen woltest?

Was meinst du mit anderen Shapes? Abdere Bilder?
Wenn das gemeint ist, nein. Nur Texte und Zahlen.

Ich weiss leider nicht genau wie ein VBA erstellen, muss mich noch einarbeiten in diesem thema...


Vielen dank und gruss
Danifonseca

 

Hi,

mache einen Rechtsklick auf den Reiter des Tabellenblattes "Index" -> Code anzeigen und kopiere folgenden Code in das rechte (obere) Codefenster:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim shaShape As Shape
    Dim blnEinAus As Boolean
    ' Gültigkeitzelle wird geändert
    If Target.Address(False, False) = "B7" Then
        ' Gültigkeitszelle = A16
        If Target = Range("A16") Then
            ' Bilder sollen eingeblendet werden
            blnEinAus = True
        ' Gültigkeitszelle = A17
        ElseIf Target = Range("A17") Then
            ' Bilder sollen ausgeblendet werden
            blnEinAus = False
        End If
        ' im Tabellenblatt "Binder Rücken"
        With Worksheets("Binder Rücken")
            ' Schleife über alle Shapes
            For Each shaShape In .Shapes
                ' laufendes Shape ein- oder ausblenden
                shaShape.Visible = blnEinAus
            Next shaShape
        End With
    End If
End Sub

Ich bin davon ausgegangen, dass B7 deine Gültigkeitzelle ist und diese entweder mit A16 oder A17 übereinstimmt.

Shapes sind nachträglich ins Tabellenblatt eingefügte Objekte wie Bilder, Diagramme, Illustrationen, Steuerelemente usw. Im Code wird ja in einer Schleife über alle eingefügten objekte gegangen und sie entweder aus- oder eingeblendet und falls noch andere als deine Bilder vorhanden gewesen wären, hätte man diese davon ausnehmen müssen - deshalb meine Frage.

Bis später,
Karin

 

Hallo Karin,

vielen Dank für deine Hilfe, es hat funktioniert!!!


Gruss, danifonseca