Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Button Name aus Zelle

Button Name aus Zelle
14.05.2018 19:33:24
StefanGlander
Guten Abend Forum.
ich möchte gerne 3 Commandbutton aus Zelleninhalten beschriften.
Mit einem Commandbutton klappt das.
Wie beziehe ich den 2. und 3. Butten mit ein
Die Namen für die Button stehen in den Zelle A2 und B1
Gruß
Stefan
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Button Name aus Zelle
14.05.2018 19:34:51
Hajo_Zi
Commandbutton2.caption =Range("A2")

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Button Name aus Zelle
14.05.2018 20:01:48
StefanGlander
Hallo Haja,
mein Fehler, ich habe den Code nicht mitgepostet.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address  "$A$1" Then Exit Sub
CommandButton1.Caption = Range("A1")
CommandButton2.Caption = Range("A2")
CommandButton3.Caption = Range("B1")
End Sub
So haut es leider nicht hin, wohl wegen dem if Target....
Gruß
Stefan
Wie kann ich das ändern?
Anzeige
AW: Button Name aus Zelle
14.05.2018 20:03:19
Hajo_Zi
gebe was in A1 ein.
Gruß Hajo
Danke o.T.
14.05.2018 20:10:17
StefanGlander
.
AW: Danke für Rückmeldung oT
14.05.2018 20:11:00
Hajo_Zi
Anzeige
Nachbrenner
14.05.2018 20:15:48
StefanGlander
Hallo Hajo,
wie müßte ich den ode umändern, so das sich die Buttonbeschriftung nicht nach beschreiben der Zelle A1 sonder bei jedem wechsel / beschreiben der Zellen A1 oder A2 oder B1.
Gruß
Stefan
AW: Nachbrenner
14.05.2018 20:16:44
Hajo_Zi
Hallo Stefan,
lösche
If Target.Address "$A$1" Then Exit Sub
Gruß Hajo
Anzeige
AW: Button Name aus Zelle
14.05.2018 20:14:26
Daniel
Hi
damits für alle drei Zellen funktioniert:

If Intersect(Target, Range("A1:A2,B1")) is nothing then Exit sub Then Exit Sub

Wenn du auch Formularfeldbuttons verwenden kannst, geht's auch ohne Code:
-Button mit rechter Maustaste anklicken
- in die Bearbeitungszeile den Bezug zur jeweiligen Zelle schreiben: =A1
dieser Zellwert wird dann automatisch als Schaltflächentext angezeigt.
Gruß Daniel
Anzeige
AW: Button Name aus Zelle
14.05.2018 20:28:11
StefanGlander
Hallo Daniel,
irgendwie ist da noch etwas nicht Richtig, er mault mich an mit Syntaxfehler
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A2,B1")) is nothing then Exit sub Then Exit Sub
CommandButton1.Caption = Range("A1")
CommandButton2.Caption = Range("A2")
CommandButton3.Caption = Range("B1")
End Sub
Gruß
Stefan
Anzeige
AW: Button Name aus Zelle
14.05.2018 20:30:21
Sepp
Hallo Stefan,
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A1:A2,B1")) Is Nothing Then
    CommandButton1.Caption = Range("A1")
    CommandButton2.Caption = Range("A2")
    CommandButton3.Caption = Range("B1")
  End If
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0


 ABCDEF
1Gruß Sepp
2
3

Anzeige
Super klappt, Danke o.T
14.05.2018 20:42:19
StefanGlander
.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Button Name aus Zelle ändern in Excel


Schritt-für-Schritt-Anleitung

  1. Öffne dein Excel-Dokument und füge drei CommandButtons auf dein Arbeitsblatt ein. Du kannst dies tun, indem du auf die Entwicklertools gehst und die Schaltfläche "CommandButton" auswählst.

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

  3. Füge den folgenden Code in das entsprechende Arbeitsblattmodul ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
       If Not Intersect(Target, Range("A1:A2,B1")) Is Nothing Then
           CommandButton1.Caption = Range("A1")
           CommandButton2.Caption = Range("A2")
           CommandButton3.Caption = Range("B1")
       End If
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu deinem Arbeitsblatt.

  5. Testen: Ändere die Werte in den Zellen A1, A2 oder B1. Die Beschriftungen der CommandButtons sollten sich automatisch aktualisieren.


Häufige Fehler und Lösungen

  • Syntaxfehler: Wenn du einen Syntaxfehler erhältst, überprüfe, ob du die richtigen Anführungszeichen und Klammern verwendet hast. Achte darauf, dass der Code exakt so eingegeben wird, wie im Beispiel.

  • Buttons aktualisieren sich nicht: Stelle sicher, dass du die richtigen Zellreferenzen verwendet hast. Der Code funktioniert nur, wenn die Änderungen in den Zellen A1, A2 oder B1 vorgenommen werden.

  • VBA-Fehler: Manchmal kann es zu Laufzeitfehlern kommen. Stelle sicher, dass du die Schaltflächen korrekt benannt hast (CommandButton1, CommandButton2, CommandButton3).


Alternative Methoden

Wenn du keine VBA-Programmierung verwenden möchtest, kannst du auch die Formularfeldbuttons verwenden:

  1. Füge einen Button hinzu und klicke mit der rechten Maustaste darauf.
  2. Wähle "Text bearbeiten".
  3. Gib in die Bearbeitungszeile den Bezug zur Zelle ein, z.B. =A1. Der Zellwert wird dann automatisch als Schaltflächentext angezeigt.

Dies ist eine einfache Möglichkeit, einen Excel Button in Zelle einbetten zu können, ohne VBA zu verwenden.


Praktische Beispiele

Nehmen wir an, du möchtest die Schaltflächen für einen Button Name verwenden, der verschiedene Funktionen ausführt. Hier sind einige Beispiele:

  • Button 1: Soll "Start" anzeigen, wenn in A1 "Start" geschrieben wird.
  • Button 2: Soll "Stop" anzeigen, wenn in A2 "Stop" geschrieben wird.
  • Button 3: Soll "Reset" anzeigen, wenn in B1 "Reset" geschrieben wird.

Du würdest einfach die Zellen A1, A2 und B1 entsprechend beschriften, und der Code sorgt dafür, dass die Buttons immer die richtigen Beschriftungen haben.


Tipps für Profis

  • Button-Beschriftung dynamisch gestalten: Du kannst den Code erweitern, um die Button-Beschriftungen basierend auf anderen Bedingungen oder Zellen zu ändern.

  • Benutzerdefinierte Formate: Experimentiere mit benutzerdefinierten Formaten in Excel, um die Darstellung deiner Buttons weiter zu verbessern.

  • Verwende vba button caption: Wenn du die Beschriftungen direkt im VBA-Code ändern möchtest, nutze die Caption-Eigenschaft der Buttons, um die Texte dynamisch zu gestalten.


FAQ: Häufige Fragen

1. Wie kann ich die Button-Beschriftung ändern, ohne VBA zu verwenden?
Du kannst die Button-Beschriftungen dynamisch ändern, indem du den Button mit der rechten Maustaste anklickst und in der Bearbeitungszeile den Zellbezug eingibst, z.B. =A1.

2. Welche Excel-Version wird benötigt?
Der vorgestellte Code und die Methoden sind sowohl in Excel 2016 als auch in neueren Versionen anwendbar. Stelle sicher, dass die Entwicklertools aktiviert sind.

Beliebteste Forumthreads (12 Monate)

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