KutoolsforOffice — Eine Lösung, fünf leistungsstarke Tools.Mehr erreichen mit weniger Aufwand.März-Aktion: 20 % Rabatt

Wie blendet man einen bestimmten Shape in Excel basierend auf dem Wert einer festgelegten Zelle ein oder aus?

AutorSiluvia Änderungsdatum

Sie können eine bestimmte Form in Excel je nach Wert einer festgelegten Zelle ein- oder ausblenden – so geht’s.

Einen bestimmten Shape basierend auf dem Wert einer festgelegten Zelle mithilfe von VBA-Code ein- oder ausblenden


Einen bestimmten Shape basierend auf dem Wert einer festgelegten Zelle mithilfe von VBA-Code ein- oder ausblenden

Angenommen, Sie möchten einen bestimmten Shape einblenden, sobald Sie die Zahl 1 in Zelle A1 eingeben – und ihn ausblenden, sobald in Zelle A1 ein anderer Wert steht. Führen Sie dazu den folgenden VBA-Code aus.

1. Klicken Sie mit der rechten Maustaste auf die Arbeitsblattregisterkarte, die den betreffenden Shape enthält, und wählen Sie im Kontextmenü Code anzeigen.

2. Daraufhin öffnet sich das Fenster Microsoft Visual Basic für Applikationen. Kopieren Sie den folgenden VBA-Code, und fügen Sie ihn in das Code-Fenster ein.

VBA-Code: Einen bestimmten Shape basierend auf dem Wert einer festgelegten Zelle ein- oder ausblenden

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 And Target.Column = 1 Then _
        Me.Shapes("Oval 6").Visible = (Cells(1, 1).Value = 1)
End Sub

Ein Screenshot des VBA-Editors mit Code zum Ausblenden oder Einblenden von Formen basierend auf Zellwerten in Excel

Hinweise: Im Code:

1)Row=1und Column=1bezeichnen die spezifische Zelle in Zeile eins und Spalte eins; Cells(1, 1) entspricht der Zelle A1.
2)Value = 1; die Zahl 1 ist der konkrete Wert, anhand dessen der Shape angezeigt werden soll.
3) „Oval 6“ ist der Name des betreffenden Shapes.

Sie können diese Parameter ganz nach Ihren Anforderungen anpassen.

3. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic für Applikationen zu schließen.

Ab sofort wird die Form „Oval 6“ eingeblendet, sobald Sie die Zahl 1 in Zelle A1 eingeben – und sofort wieder ausgeblendet, sobald Sie einen anderen Wert wie beispielsweise die Zahl 2 in Zelle A1 eintragen.


Verwandte Artikel:

Beste Office-Produktivitätstools

🤖KUTOOLS AI-Assistent: Revolutionieren Sie Datenanalyse basierend auf:Intelligente Ausführung   |  Code generieren|  benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme erstellen|  Erweiterte Funktionen aufrufen
Beliebte Funktionen:Suchen, hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten kombinieren oder Zellen ohne Datenverlust   |   Runden ohne Formel...
Erweiterte SVERWEIS:VLookup mit mehreren Kriterien  |  VLookup mit mehreren Werten  |   VLookup über mehrere Arbeitsblätter hinweg   |   Fuzzy Match....
Erweiterte Dropdown-Liste:Schnell eine Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl-Dropdown-Liste....
Spalten-Manager:Eine bestimmte Anzahl von Spalten hinzufügen|Spalten verschieben|Sichtbarkeitsstatus ausgeblendeter Spalten umschalten|Bereiche & Spalten vergleichen...
Hervorgehobene Funktionen:Gitterfokus   |  Entwurf   |Erweiterte Formelleiste   | Arbeitsmappen- & Blatt-Manager   |  Ressourcenbibliothek(AutoText)|  Datumsauswahl   |  Arbeitsblätter konsolidieren  |  Verschlüsseln/Zellen entschlüsseln   | E-Mails per Liste versenden   |  Super Filter   |   Spezialfilter(Zellen mit fettgedruckter Schrift filtern/kursiv/durchgestrichen...) ...
Top-15-Toolsets:12-Text-Tools(Text hinzufügen,Bestimmte Zeichen löschen, ...)|   50+-Diagramm-Typen(Gantt-Diagramm, ...)|   40+ Praktische Formeln(Alter basierend auf dem Geburtstag berechnen, ...)|   19-Einfüge-Tools(QR-Code einfügen,Bild aus Pfad einfügen, ...)|   12-Konvertierungs-Tools(In Wörter umwandeln,Wechselkursumrechnung, ...)|   7-Vereinigen/Aufteilen-Tools(Erweiterte Zeilen zusammenführen,Zellen aufteilen, ...)|... und mehr
Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und 40+ weitere Sprachen!

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...


Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher

  • Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
  • Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!

Alle Kutools-Add-Ins – ein Installationsprogramm

Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.

ExcelWordOutlookTabsPowerPoint
  • Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
  • Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
  • Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
  • 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
  • Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins