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
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....
If Intersect(Target, Range("A1:A2,B1")) is nothing then Exit sub Then Exit Sub
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ß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
A | B | C | D | E | F | |
1 | Gruß Sepp | |||||
2 | ||||||
3 |
Ö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.
Öffne den VBA-Editor. Drücke ALT + F11
, um den Editor zu öffnen.
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
Schließe den VBA-Editor und gehe zurück zu deinem Arbeitsblatt.
Testen: Ändere die Werte in den Zellen A1, A2 oder B1. Die Beschriftungen der CommandButtons sollten sich automatisch aktualisieren.
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).
Wenn du keine VBA-Programmierung verwenden möchtest, kannst du auch die Formularfeldbuttons verwenden:
=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.
Nehmen wir an, du möchtest die Schaltflächen für einen Button Name verwenden, der verschiedene Funktionen ausführt. Hier sind einige Beispiele:
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.
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.
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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen