Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Command Button visible

Forumthread: Command Button visible

Command Button visible
09.03.2007 11:32:54
José
Hallo
Ich habe folgendes Problemm. Ich habe in einer Excel Datei einen Comannd Button. Den möchte Ich aber nur angezeigt bekommen, wenn eine bestimmter Wert in einer bestimmten Zelle gegeben ist. Also wenn in der Zelle der Wert 1 steht dann nicht anzeigen, wenn 2 dann soll der Button angezeigt werden. Soweit so gut mit visible geht es auch. Leider immer nur beim neu starten der datei.
Ich brauche aber das der Button angezeigt wird und wenn Ich den Wert ändere dan nicht angezeigt wird. Wenn
Ich habe eine Liste dort wähle Ich ein Produkt aus mit dem Wert 1 dann soll der Button verschwinden. Wähle Ich dann eine Produkt mit dem Wer 2 dann soll der Button angezeigt werden. Also ein wechsel immer möglich.
Ich hoffe ihr könnt mir da weiterhelfen.
Danke
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Command Button visible
09.03.2007 11:36:50
Uduuh
Hallo,
nutze das Ereignis Worksheet_Change
Gruß aus’m Pott
Udo

AW: Command Button visible
09.03.2007 11:37:00
harry
Hallo Jose,
Du musst Deinen Code mit visible und soweiter in das
Worksheet_Change Ereignis deines Tabellenblattes schreiben,
dann wird der Code bei jedem Wechsel des Zelleninhaltes ausgeführt
z.B. 
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1").Value < 0 Then
MsgBox "hallo"
End If
End Sub

Gruß
Harry
Anzeige
AW: Command Button visible
09.03.2007 11:59:00
José
Hallo Schon mal vielen dank für die Antwort. Aber irgentwie geht es bei mir nicht.
Habe den Code so angepasst aber der Button bleibt trotzdem
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("P36").Value = 1 Then
ActiveSheet.CommandButton1.Visible = True
End If
End Sub

Gruß
José
Anzeige
AW: Command Button visible
09.03.2007 11:59:00
José
Hallo Schon mal vielen dank für die Antwort. Aber irgentwie geht es bei mir nicht.
Habe den Code so angepasst aber der Button bleibt trotzdem
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("P36").Value = 1 Then
ActiveSheet.CommandButton1.Visible = True
End If
End Sub

Gruß
José
Anzeige
AW: Command Button visible
09.03.2007 12:07:00
harry
Hallo,
else
ActiveSheet.CommandButton1.Visible = False
fehlt noch
Gruß
Harry
;

Forumthreads zu verwandten Themen

Command Button schützen vor VBA
Hüseyin

Hallo zusammen,
habe eine kurze Frage und hoffe ihr könnt mir weiterhelfen,
ich habe ein Exceldokument mit Commandbuttons drin. Wenn ich allerdings über VBA eine "Sortierung" oder "Komprimierung" über das Tabellenblatt laufen lasse, werden meine Buttons kleiner bzw. sehen gequetscht aus...
28.10.2008 11:21:33
Thread-ID: 1019856
3 Beiträge
Anzeige
CommandButton mit VBA-Code zuweisen
Hermann

Hallo zusammen,
das ersteTabellenblatt in meiner Exceltabelle (mit ca. 100 Tabellenbl.) ist ein Inhaltsverzeichnis mit Hyperlinks zum Aufrufen der einzelnen TabBlätter.
Das TabBlatt „Inhaltsverzeichnis“ wird durch einen VBA-Code erstellt. Kommt ein neues TabBlatt hinzu, rufe ich mit Alt...
30.10.2015 19:22:06
Thread-ID: 1455516
3 Beiträge
Anzeige
CommandButton mit VBA-Code zuweisen
Hermann

Hallo zusammen,
das ersteTabellenblatt in meiner Exceltabelle (mit ca. 100 Tabellenbl.) ist ein Inhaltsverzeichnis mit Hyperlinks zum Aufrufen der einzelnen TabBlätter.
Das TabBlatt „Inhaltsverzeichnis“ wird durch einen VBA-Code erstellt. Kommt ein neues TabBlatt hinzu, rufe ich mit Alt...
30.10.2015 19:22:36
Thread-ID: 1455517
8 Beiträge
Caption von Commandbutton dauerhaft per VBA ändern
VoVo

Schönen Sonntag Excelliste,ich hoffe mir kann jemand helfen.Für die Profis warscheinlich nur Peanuts, doch ich kriegs nicht hin.
Ich möcht per VBA 40 Commandbuttons dauerhaft neu beschriften. Im Augenblick kann ich dies schon, jedoch mit dem kleinen Schönheitsfehler, dass nach einer Weile, w...
15.12.2002 16:38:55
Thread-ID: 193368
4 Beiträge
CommandButton erstellen per VBA
Tobias
Hallo @all!

Meine Frage:
Kann man per VBA einen CommandButton über einer Zelle Cells(i,j) erstellen, und deren Eigenschaften ändern?

Danke fürs Lesen und Antworten!
14.11.2003 12:41:29
Thread-ID: 338305
5 Beiträge
CommandButton in Tabelle per VBA bearbeiten
Christian

Hallo,
wüßte gerne wie ich auf einen per "add" in ein Arbeitsblatt eingefügten Button zugreiffen kann, um seine Eigenschaften programmgesteuert zu verändern bzw. dem "Klick-Ereignis" eine Funktion zu zuweisen.
Worksheets("Rohdaten").OLEObjects.Add(ClassType:="Forms.CommandButton.1", Li...
01.01.1970 00:00:00
Thread-ID: 411394
3 Beiträge
Anzeige
Commandbutton in Tabelle per VBA
Jochen

Hallo Leute,
wenn ich während der Programmausführung Commandbutton in eine Tabelle einfüge,
muss ich dann den Code auch mit VBA erzeugen?
Trifft Gleiches auch für die Eigenschaften, wie Caption und Farben zu?
Wenn ja, wie macht man das am einfachsten?
Grüße Jochen
30.08.2004 20:22:50
Thread-ID: 477584
4 Beiträge
CommandButton über VBA und damit Spalten ausblende
Sebastian

Halli hallo,
erstmal ein dickes lob an das super forum, hier wird einem wirklich geholfen. Nun zu meinem Problem.
Ich möchte über ein UserForm einige Tabellenblätter erstellen. Bei einem Tabellenblatt soll noch eine CommandBox erstellt werden. Das erstellen habe ich mal über folgendes...
29.08.2007 20:24:00
Thread-ID: 901847
6 Beiträge
commandbutton per vba
anno

Hallo,
habe: ein workbook mit mehreren worksheets / sheets<br>
moechte: per vba einen commandbutton ( -> cb_Menue ) auf einem bestimmten blatt davon ( -> "Daten" ) "zeigen" und "verstecken"<br>
- ohne das dieses Blatt ("Daten") gerade 'select' ist<br>
me...
09.01.2021 10:43:13
Thread-ID: 1804559
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Command Button in Excel VBA Sichtbarkeit steuern

Schritt-für-Schritt-Anleitung

Um einen Command Button in Excel VBA sichtbar oder unsichtbar zu machen, kannst du das Worksheet_Change-Ereignis nutzen. Hier sind die Schritte, um dies zu erreichen:

  1. Öffne den VBA-Editor:

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

  2. Wähle das entsprechende Arbeitsblatt:

    • Doppelklicke auf das Arbeitsblatt, in dem sich der Command Button befindet.

  3. Füge den Code ein:

    • Kopiere den folgenden Code in das Arbeitsblatt-Modul:
    Private Sub Worksheet_Change(ByVal Target As Range)
   If Range("P36").Value = 2 Then
       ActiveSheet.CommandButton1.Visible = True
   ElseIf Range("P36").Value = 1 Then
       ActiveSheet.CommandButton1.Visible = False
   End If
End Sub

  4. Teste die Funktion:

    • Ändere den Wert in Zelle P36 und beobachte, ob der Button entsprechend sichtbar oder unsichtbar wird.

Häufige Fehler und Lösungen

  • Button bleibt immer sichtbar:

    • Überprüfe, ob der Code im richtigen Arbeitsblatt-Modul eingefügt wurde. Der Code sollte im Modul des Arbeitsblattes stehen, dessen Zelle du beobachtest.

  • Fehlende Else-Anweisung:

    • Stelle sicher, dass du eine ElseIf- oder Else-Anweisung hinzugefügt hast, um den Button unsichtbar zu machen, wenn der Wert nicht 2 ist.
    Else
   ActiveSheet.CommandButton1.Visible = False

Alternative Methoden

Es gibt verschiedene Möglichkeiten, die Sichtbarkeit von Buttons zu steuern:

  • Formularsteuerelemente:

    • Anstelle eines ActiveX-Buttons kannst du ein Formularsteuerelement verwenden. Die Sichtbarkeit kann ähnlich gesteuert werden.

  • UserForms:

    • Wenn du komplexere Benutzeroberflächen benötigst, kannst du UserForms in VBA verwenden, die mehr Flexibilität bieten.

Praktische Beispiele

  1. Einfaches Beispiel:

    • Wenn du nur einen Button hast, der bei einem bestimmten Wert erscheinen soll, wie im obigen Beispiel, funktioniert dies perfekt.

  2. Mehrere Buttons steuern:

    • Du kannst mehrere Buttons steuern, indem du zusätzliche Bedingungen hinzufügst:
    Private Sub Worksheet_Change(ByVal Target As Range)
   If Range("P36").Value = 2 Then
       CommandButton1.Visible = True
       CommandButton2.Visible = False
   ElseIf Range("P36").Value = 1 Then
       CommandButton1.Visible = False
       CommandButton2.Visible = True
   End If
End Sub

Tipps für Profis

  • Verwende Named Ranges:

    • Um deine Formeln und VBA-Referenzen klarer zu gestalten, kannst du benannte Bereiche verwenden. Das macht den Code leichter verständlich.

  • Fehlerbehandlung:

    • Implementiere Fehlerbehandlungsroutinen, um sicherzustellen, dass dein Code auch bei unerwarteten Eingaben stabil bleibt.

FAQ: Häufige Fragen

1. Wie kann ich den Button standardmäßig verstecken? Du kannst den Button in den Eigenschaften auf Visible = False setzen, bevor der Code ausgeführt wird.

2. Funktioniert das auch in Excel Online? Die VBA-Funktionen sind in Excel Online nicht verfügbar. Du benötigst die Desktop-Version von Excel.

3. Wie kann ich die Sichtbarkeit für mehrere Zellen steuern? Du kannst die Bedingungen im If-Block erweitern, um die Sichtbarkeit basierend auf verschiedenen Zellen zu steuern.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige