Wie kann ich den Namen der Befehlsschaltfläche in Excel dynamisieren?
In diesem Artikel wird erläutert, wie der Name einer Befehlsschaltfläche dynamisch geändert wird, wenn sich der angegebene Zellenwert ändert. Wenn beispielsweise der Wert in Zelle A1 in "Test" geändert wurde, wird der Name einer bestimmten Befehlsschaltfläche automatisch in "Test" geändert.
Machen Sie den Namen der Befehlsschaltfläche mit dem Zellenwert durch VBA-Code dynamisch
Machen Sie den Namen der Befehlsschaltfläche mit dem Zellenwert durch VBA-Code dynamisch
Der folgende VBA-Code kann Ihnen dabei helfen, den Namen einer Befehlsschaltfläche mit einem angegebenen Zellenwert in einem Arbeitsblatt dynamisch zu gestalten. Bitte gehen Sie wie folgt vor.
1 Klicken Entwickler:in / Unternehmen > Insert > Befehlsschaltfläche (ActiveX Control) um eine Befehlsschaltfläche in das Arbeitsblatt einzufügen. Siehe Screenshot:
2. Klicken Sie nach dem Einfügen der Befehlsschaltfläche mit der rechten Maustaste auf die Registerkarte Blatt und klicken Sie auf Code anzeigen aus dem Rechtsklick-Menü wie im folgenden Screenshot gezeigt:
3. In der Öffnung Microsoft Visual Basic für Applikationen Fenster, bitte kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Fenster ein.
VBA-Code: Machen Sie den Namen der Befehlsschaltfläche mit dem Zellenwert dynamisch
Dim xStr As String
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xShapeRg As ShapeRange
On Error Resume Next
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Me.CommandButton1.Caption = Target.Text
Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton1")
Application.EnableEvents = False
xShapeRg.Select
Application.EnableEvents = True
Selection.Name = Target.Text
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Not Intersect(Target, Range("A1")) Is Nothing) And Target.Text <> "" Then
xStr = Target.Text
End If
End Sub
Note: Im Code ist CommandButton1 der Name der Schaltfläche, deren Namen Sie dynamisch machen möchten, und A1 ist die Zelle, in der Sie den Wert automatisch auf den Schaltflächennamen verweisen.
4. Drücken Sie die Taste Andere + Q Tasten zum Verlassen des Microsoft Visual Basic für Applikationen Fenster.
5. Schalten Sie den Entwurfsmodus aus, indem Sie auf klicken Entwickler:in / Unternehmen > Entwurfsmodus.
Von nun an wird der Name der Befehlsschaltfläche dynamisch mit dem angegebenen Zellenwert in Ihrem Arbeitsblatt geändert.
Wie im folgenden Screenshot gezeigt, wird der Name der Befehlsschaltfläche automatisch auf denselben Wert geändert, wenn der Wert von Zelle A1 geändert wurde.
Weitere Artikel:
- Wie verwende ich die Befehlsschaltfläche, um ein aktives Arbeitsblatt als PDF-Datei in Excel zu speichern?
- Wie füge ich automatisch eine leere neue Zeile über die Befehlsschaltfläche in Excel ein?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!