Zum Hauptinhalt springen

Wie kann man eine bestimmte Form in Excel basierend auf einem angegebenen Zellenwert ausblenden oder einblenden?

Author: Siluvia Last Modified: 2025-08-06

Sie können eine bestimmte Form in Excel basierend auf dem Wert einer angegebenen Zelle ausblenden oder einblenden. Befolgen Sie diese Methode, um dies zu erreichen.

Ausblenden oder Einblenden einer bestimmten Form basierend auf einem angegebenen Zellenwert mit VBA-Code


Ausblenden oder Einblenden einer bestimmten Form basierend auf einem angegebenen Zellenwert mit VBA-Code

Wenn Sie beispielsweise eine bestimmte Form einblenden möchten, wenn Sie die Zahl 1 in Zelle A1 eingeben, oder diese Form ausblenden, wenn Zelle A1 andere Werte enthält, führen Sie bitte den folgenden VBA-Code aus.

1. Klicken Sie mit der rechten Maustaste auf das Arbeitsblatt-Tab, das die Form enthält, die Sie ausblenden oder einblenden möchten, und klicken Sie dann im Kontextmenü auf Ansicht Code.

2. Das Fenster Microsoft Visual Basic for Applications wird geöffnet. Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster ein.

VBA-Code: Ausblenden oder Einblenden einer bestimmten Form basierend auf einem angegebenen Zellenwert

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

A screenshot showing the VBA editor with code to hide or unhide shapes based on cell values in Excel

Hinweise: Im Code:

1) Zeile=1 und Spalte=1 zeigen die spezifische Zelle an, die sich in Zeile eins und Spalte eins befindet, Zellen(1, 1) ist die entsprechende Zelle A1.
2) Wert = 1, die Zahl 1 ist der spezifische Wert, auf den die Form basierend angezeigt werden soll.
3) „Oval 6“ ist der Name der bestimmten Form.

Sie können diese Parameter je nach Ihren Anforderungen ändern.

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

Ab jetzt wird die Form „Oval 6“ eingeblendet, wenn Sie die Zahl 1 in Zelle A1 eingeben. Wenn Sie jedoch einen anderen Wert wie die Zahl 2 in Zelle A1 eingeben, wird die Form „Oval 6“ sofort ausgeblendet.


Verwandte Artikel:

Die besten Office-Produktivitätstools

🤖 Kutools AI Aide: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung |  Code generieren  |  Benutzerdefinierte Formeln erstellen |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Doppelte suchen, hervorheben oder markieren | Leere Zeilen löschen | Spalten oder Zellen ohne Datenverlust zusammenführen | Runden
Erweiterte SVERWEIS: SVERWEIS mit mehreren Kriterien | SVERWEIS für mehrere Werte | Mehrblatt-SVERWEIS | Fuzzy Match
Erweiterte Dropdown-Liste: Dropdown-Liste schnell erstellen | Abhängige Dropdown-Liste | Mehrfachauswahl-Dropdown-Liste
Spalten-Manager: Eine bestimmte Anzahl an Spalten hinzufügen | Spalten verschieben | Sichtbarkeit von ausgeblendeten Spalten umschalten | Bereiche & Spalten vergleichen
Hervorgehobene Funktionen: Gitterfokus | Entwurfsansicht | Erweiterte Formelleiste | Arbeitsmappen- & Blattmanager | AutoText-Bibliothek | Datumsauswahl | Daten zusammenführen | Zellen verschlüsseln/entschlüsseln | E-Mail senden nach Liste | Super Filter | Spezialfilter (Filtern nach Fett/Kursiv/Durchgestrichen...)…
Top15 Toolsets:12 Text-Tools (Text hinzufügen, Bestimmte Zeichen löschen, ...) | 50+ Diagramm typen (Gantt-Diagramm, ...) | 40+ praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...) | 19 Einfüge-Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...) | 12 Konvertierungs-Tools (In Wörter umwandeln, Währungsumrechnung, ...) | 7 Konsolidieren & Aufteilen-Tools (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...) | ... und mehr
Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere Sprachen!

Steigern Sie Ihre Excel-Kompetenz mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen, um Ihre Produktivität zu steigern und Zeit zu sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...


Office Tab bringt die Reiter-Oberfläche in Office und macht Ihre Arbeit so viel einfacher

  • Aktivieren Sie die Bearbeitung und das Lesen in Reitern in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Reitern desselben Fensters, anstatt in neuen Fenstern.
  • Steigert Ihre Produktivität um50 % und reduziert täglich Hunderte von Mausklicks!