Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Command Button ausblenden

Command Button ausblenden
28.01.2014 22:24:26
Annett
Hallo zusammen,
ich habe ein Problem, für welches ich keine Lösung finde.
Ich habe einen Command Button, welchen ich in Abhängigkeit von A1 ein oder ausblenden möchte. Dazu verwende ich folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Range("A1").Value > 10 Then
CommandButton1.Visible = True
Else
CommandButton1.Visible = False
End If
End Sub

Das ganze Funktioniert gut, solange ich die Zahlen in A1 direkt eingebe.
Jetzt möchte ich aber den Wert in A1 berechnen lassen. z.B. mit einer Summe
Der angezeigte Wert der Zelle A1 ändert sich. Allerdings reagiert mein Commandbutton nicht auf diese Veränderung.
Hat jemand eine Lösung ?
Vielen Dank
Annett

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Command Button ausblenden
28.01.2014 22:38:18
Uduuh
Hallo,
Berechnungen lösen das _Change-Ereignis nicht aus.
Benutze Worksheet_Calculate
Private Sub Worksheet_Calculate()
CommandButton1.Visible = Range("A1").Value > 10
End Sub

Gruß aus’m Pott
Udo

Anzeige
AW: Command Button ausblenden
28.01.2014 22:47:00
Annett
Vielen Dank für deine schnelle Antwort. Leider bin ich noch nicht so der Profi. Kannst dur mir bitte sagen wie und wo ich deinen Code einfügen soll?
Ziel des Ganzen ist, dass der Button angezeigt wird, wenn A1 größer 10 wird. Das Feld A1 entsteht aber aus einer Berechnung heraus.
Danke Annett

Anzeige
AW: Command Button ausblenden
28.01.2014 22:52:16
Uduuh
Hallo,
Kannst dur mir bitte sagen wie und wo ich deinen Code einfügen soll?
in das Klassenmodul des Blatts. Anstatt deines Codes (Worksheet_Change)
Gruß aus’m Pott
Udo

AW: Command Button ausblenden
28.01.2014 22:57:55
Annett
Sorry, war mein Fehler. Ich hatte es falsch eingefügt.
Klappt Supi - Vielen Dank
Gruß
Annett
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Command Button in Excel ausblenden


Schritt-für-Schritt-Anleitung

Um einen Command Button in Excel VBA auszublenden, kannst du die folgenden Schritte ausführen:

  1. Öffne das Excel-Dokument, in dem sich dein Command Button befindet.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Suche im Projekt-Explorer das entsprechende Arbeitsblatt, in dem der Button vorhanden ist.

  4. Doppelklicke auf das Arbeitsblatt, um das Klassenmodul zu öffnen.

  5. Füge den folgenden Code in das Klassenmodul ein:

    Private Sub Worksheet_Calculate()
       CommandButton1.Visible = Range("A1").Value > 10
    End Sub
  6. Schließe den VBA-Editor und kehre zu Excel zurück.

  7. Teste die Funktion, indem du den Wert in Zelle A1 änderst. Der Button sollte sich nun abhängig vom Wert in A1 ausblenden oder anzeigen.

Mit diesem Code reagiert die Schaltfläche auf Änderungen in A1, auch wenn diese durch Berechnungen erfolgen.


Häufige Fehler und Lösungen

  • Der Button wird nicht ausgeblendet, wenn A1 berechnet wird:

    • Stelle sicher, dass du den Code im richtigen Klassenmodul eingefügt hast. Der Code muss im Modul des Arbeitsblatts (z.B. "Tabelle1") sein und nicht im Modul "DieseArbeitsmappe".
  • Der Button bleibt sichtbar:

    • Prüfe, ob der Wert in A1 tatsächlich größer als 10 ist. Verwende die Formel =SUMME(B1:B10) in A1, um sicherzustellen, dass die Berechnung korrekt ist.

Alternative Methoden

Eine weitere Möglichkeit, einen Excel VBA Button auszublenden, ist die Verwendung des Worksheet_Change-Ereignisses. Beachte jedoch, dass dies nur funktioniert, wenn der Wert in A1 manuell eingegeben wird.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    CommandButton1.Visible = Range("A1").Value > 10
End Sub

Diese Methode wird nicht bei Berechnungen aktiviert, daher ist die Verwendung von Worksheet_Calculate in den meisten Fällen effektiver.


Praktische Beispiele

Ein praktisches Beispiel ist die Verwendung eines Command Buttons, um eine bestimmte Funktionalität nur dann sichtbar zu machen, wenn ein bestimmter Schwellenwert erreicht wird. Angenommen, du hast eine Tabelle, in der die Verkaufszahlen in A1 berechnet werden. Der Button könnte eine Aktion auslösen, die nur bei Verkäufen über 10 Einheiten relevant ist.

Private Sub Worksheet_Calculate()
    CommandButton1.Visible = Range("A1").Value > 10
End Sub

Dieses Beispiel verdeutlicht, wie du einen excel vba button ausblenden kannst, um die Benutzeroberfläche dynamisch zu gestalten.


Tipps für Profis

  • Überlege, wie du die Sichtbarkeit des Buttons an andere Zellen oder Bedingungen koppeln kannst, um die Benutzererfahrung zu verbessern.
  • Nutze Formeln in Kombination mit VBA, um komplexe Logiken zu implementieren.
  • Halte deinen Code sauber und dokumentiere wichtige Abschnitte, um die Wartung zu erleichtern.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Buttons gleichzeitig ausblenden?
Du kannst den Sichtbarkeitsstatus mehrerer Buttons in einem einzigen Worksheet_Calculate-Ereignis festlegen, indem du für jeden Button eine Sichtbarkeitsabfrage hinzufügst.

2. Was muss ich tun, wenn ich mehrere Bedingungen überprüfen möchte?
Erweitere die Logik im VBA-Code, indem du zusätzliche Bedingungen mit If...Else-Konstrukten hinzufügst, um die Sichtbarkeit basierend auf mehreren Kriterien zu steuern.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige