Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schaltfläche ansprechen

Forumthread: Schaltfläche ansprechen

Schaltfläche ansprechen
25.12.2003 20:22:45
Stefan Glander
Hallo Excler,
mit "CommandButton1.Visible = False/True" kann ich in vba eine Commanbutton sichtbar/unsichtbar machen.
Kann ich eine "Schaltfäche" auch irgendwie anspechen?
Gruss
Stefan Glander
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schaltfläche ansprechen
25.12.2003 20:29:50
DieterB
Hallo Stefan.

rechte Maustaste, Makro zuweisen.

gruß

DieterB
AW: Schaltfläche ansprechen noch OFFEN
25.12.2003 20:32:05
Stefan Glander
Hallo Dieter,
ich möchte die Schaltfläche in VBA ansprechen
Gruss
Stefan Glander
AW: Schaltfläche ansprechen noch OFFEN
25.12.2003 20:44:10
Dieterb
Hallo Stefan,
das würde mich wundern, wenn das funktionieren würde.
Gruß
DieterB
Anzeige
AW: Danke o.T.
25.12.2003 21:10:58
Stefan Glander
.
AW: Schaltfläche ansprechen
25.12.2003 20:36:41
PeterW
Hallo Stefan,

was meinst du mit "Schaltflächen ansprechen"? Möchtest du, dass der Code der Schaltfläche per VBA ausgeführt wird ohne die Schaltfläche zu betätigen?

Gruß
Peter
AW: Schaltfläche ansprechen
25.12.2003 21:10:30
Stefan Glander
Hallo Peter,
nein ich möchte die Schaltfläche mit einer Schaltfläche oder einem Button unsichbar machen.
So wie im Beispiel https://www.herber.de/bbs/user/2593.xls mit den Commandbutton.
Es geht immernoch um das Problem von "Schaltflächen ein/aus blenden - Jens 25.12.2003 01:50:57
Gruss
Stefan
Anzeige
AW: Schaltfläche ansprechen
25.12.2003 21:21:26
PeterW
Hallo Stefan,

ohne mir den anderen Thread angeschaut zu haben: benutze einen CommandButton mit folgendem Code:

Private Sub CommandButton1_Click()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Visible = False
Next
End Sub

Gruß
Peter
Anzeige
Detaillierter...
25.12.2003 21:25:40
Ramses
Hallo Peter

Option Explicit


Private Sub CommandButton1_Click()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If Left(shp.Name, 6) = "Button" Then
shp.Visible = False
End If
Next
End Sub


Damit blendest du nur die Schaltflächen aus, ... ansonsten wird mit Shape alles ausgeblendet. Auch die Zeichenobjekte und Checkboxes usw. :-))

Gruss Rainer
Anzeige
AW: Detaillierter...
25.12.2003 21:34:21
PeterW
Hallo Rainer,

die Klarstellung war fürs Archiv wichtig, danke dafür. Bin wohl fälschlicherweise davon ausgegangen, dass die grundsätzliche Vorgenehensweise bei OLEObjects bekannt war und nur auf Shapes angepasst werden musste.

Mein Vorsatz fürs nächste Jahr: nichts, nothing, nada, null vorausetzen. :-)

Gruß
Peter
Anzeige
Wo liegt das Problem ?
25.12.2003 21:22:55
Ramses
Hallo

es geht auf die gleiche Weise wie das ansprechen des Commandbutton's,.. nur eben spezifisch auf ein Shape-Object

ActiveSheet.Shapes("Button 1").visible = false

"Button 1" steht hier für die EXCEL-Namensbezeichnung "Schaltfläche 1"

Gruss Rainer
AW: Danke an alle die geholfen haben! o.T. :-))
25.12.2003 23:10:12
Stefan Glander
.
Merci :-) Geschlossen o.T.
26.12.2003 13:55:24
Ramses
...
Anzeige
;
Anzeige

Infobox / Tutorial

Schaltflächen in Excel mit VBA ansprechen und steuern

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und erstelle eine neue Arbeitsmappe oder öffne eine bestehende.

  2. Füge eine Schaltfläche hinzu:

    • Gehe zum Reiter "Entwicklertools".
    • Klicke auf "Einfügen" und wähle "CommandButton (ActiveX-Steuerelement)".
    • Zeichne die Schaltfläche auf dein Arbeitsblatt.

  3. Schreibe den VBA-Code:

    • Klicke mit der rechten Maustaste auf die Schaltfläche und wähle "Code anzeigen".
    • Füge den folgenden Code ein, um Schaltflächen sichtbar oder unsichtbar zu machen:
    Private Sub CommandButton1_Click()
   Dim shp As Shape
   For Each shp In ActiveSheet.Shapes
       If Left(shp.Name, 6) = "Button" Then
           shp.Visible = Not shp.Visible
       End If
   Next shp
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Teste die Schaltfläche, indem du darauf klickst. Die Schaltflächen sollten nun ein- oder ausgeblendet werden.

Häufige Fehler und Lösungen

  • Fehler: Schaltfläche reagiert nicht
    Lösung: Stelle sicher, dass der Entwurfmodus nicht aktiviert ist. Gehe zu "Entwicklertools" und deaktiviere den Entwurfmodus, um die Schaltfläche funktionsfähig zu machen.

  • Fehler: Alle Formen werden ausgeblendet
    Lösung: Überprüfe den Code. Stelle sicher, dass du nur die Schaltflächen ansprechen möchtest. Nutze den Code mit der Bedingung If Left(shp.Name, 6) = "Button" Then.

Alternative Methoden

  • Verwende Excel-Formeln: Erstelle Schaltflächen, die von Formeln abhängen, um das Sichtbarkeitsverhalten zu steuern.
  • Nutze die Visible-Eigenschaft: Du kannst die Sichtbarkeit direkt im Excel-Interface ändern, ohne VBA zu verwenden. Klicke mit der rechten Maustaste auf die Schaltfläche und wähle "Sichtbarkeit".

Praktische Beispiele

  1. Einfaches Einblenden/Ausblenden: Verwende den oben genannten VBA-Code, um eine Gruppe von Schaltflächen zu steuern.

  2. Komplexeres Beispiel: Erstelle ein Excel-Makro, das auf mehrere verschiedene Schaltflächen reagiert und deren Sichtbarkeit basierend auf bestimmten Bedingungen steuert.

    Private Sub CommandButton2_Click()
   If ActiveSheet.Shapes("Schaltfläche 1").Visible Then
       ActiveSheet.Shapes("Schaltfläche 1").Visible = False
   Else
       ActiveSheet.Shapes("Schaltfläche 1").Visible = True
   End If
End Sub

Tipps für Profis

  • Benutze Variablen: Definiere Variablen für häufig verwendete Objekte, um den Code übersichtlicher zu gestalten.
  • Fehlerbehandlung einfügen: Ergänze deinen Code mit Fehlerbehandlungsroutinen, um unerwartete Probleme zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich eine Excel-Umschaltfläche erstellen?
Du kannst eine Umschaltfläche erstellen, indem du einen CommandButton verwendest und den Code entsprechend anpasst, um zwischen zwei Zuständen zu wechseln.

2. Was ist der Unterschied zwischen einer Schaltfläche und einer Excel-Schaltfläche?
Eine Schaltfläche kann ein Formularsteuerelement oder ein ActiveX-Steuerelement sein, während eine Excel-Schaltfläche spezifisch für die Interaktion innerhalb einer Excel-Tabelle gestaltet ist.

3. Kann ich mehrere Schaltflächen gleichzeitig ansprechen?
Ja, du kannst durch alle Schaltflächen in einem Arbeitsblatt iterieren und ihre Sichtbarkeit oder andere Eigenschaften ändern, wie im obigen Beispiel gezeigt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige