Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Beschriftung Command Button

Beschriftung Command Button
11.04.2024 08:14:19
Jo65
Hallo,
ist es möglich, die Beschriftung eines Command Buttons über ein Tabellenfeld
zu änderen.
Wenn ich z. B. in A1 Test schreibe das dann die Beschriftung des Command Button
sich ändert auf Test.
Danke
Lg
Anzeige

20
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beschriftung Command Button
11.04.2024 08:25:28
schauan
Hallöchen,

1)
Du kannst die Änderung in einem Worksheet_Change abfangen und dann dort per Code die Beschriftung ändern.
Im Code prüfst Du, ob die Änderung in der betreffenden Zelle erfolgte (z.B. If Target.Address = "$A$1" Then) und wenn ja, dann änderst Du die Beschriftung mit dem Zellinhalt.

2)
Du nimmst statt dem Commandbutton eine Textbox. Der kannst Du direkt eine Zelle zuweisen, ein Makro natürlich auch.
Anzeige
AW: Beschriftung Command Button
11.04.2024 09:16:03
Beverly
Hi,

ich nehme an, du meinst einen CommandButton im Tabellenblatt? Folgenden Code ins Codemoduö des Tabellenblattes:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target.Cells(1), Range("A1")) Is Nothing Then Me.CommandButton1.Caption = Target.Cells(1)
End Sub


Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: Beschriftung Command Button
11.04.2024 12:17:44
daniel
Hi
verwende anstelle des ActiveX-Buttons einen Formularfeldbutton.
Das Makro für den Button musst du dann in einem allgemeinen Modul schreiben und dem Button zuweisen.
Markiere dann den Button mit der rechten Maustaste.
Schreibe in die Bearbeitungszeile von Excel den Zellbezug für die Zelle, aus der der Text gelesen werden soll: "=A1"
Gruß Daniel

Anzeige
AW: Beschriftung Command Button
11.04.2024 15:08:47
Jo65
Hallo Daniel,
das funktioniert auch kann ich auch die Farbe des Button ändern?
Lg
AW: Beschriftung Command Button
11.04.2024 15:25:28
daniel
Hi
bei Formularfeldbuttons kannst du die Farbe meines Wissens nach nicht ändern.
aber du kannst statt des Formularfeldbuttons auch ein einfaches Rechteck oder Textfeld aus den Grafikelementen verwenden.
diesen kann man genauso wie dem Formularfeldbutton ein Makro und eine Zelle zuweisen.
die Makrozuweisung erfolgt über das Kontextmenü (rechte Maustaste), die Zellzuweisung so wie beim Formularbutton.
diese Grafikelemente funktionieren dann wie der Button, aber du kannst sie flexibler formatieren.
Leider können die Grafikelemente nicht den 3-D-Effekt beim Anklicken, das geht nur mit echten Buttons.

Gruß Daniel
Anzeige
AW: Beschriftung Command Button
11.04.2024 16:11:43
Jo65
Danke Daniel
ich werde es Testen.
Lg
Johannes
AW: Beschriftung Command Button
11.04.2024 09:31:23
Jo65
So klappt es genau so wie ich es haben will.
Danke an Karin und an Schauan
Lg
Johannes
AW: Noch eine Nachfrage
12.04.2024 13:07:20
Jo65
Hallo,
Karin (Beverly) hat mir folgenden Code geschickt

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target.Cells(1), Range("A1")) Is Nothing Then Me.CommandButton1.Caption = Target.Cells(1)
End Sub

das funktioniert auch super aber die Daten für den Button kommen nicht aus der gleichen Tabelle
somit aktualisiert sich der Button auch nicht automatisch. Die Daten müssten sich beim erneuten Aufruf der Tabelle aktualisieren.
Wie kann ich das ändern?
Lg
Anzeige
AW: Noch eine Nachfrage
12.04.2024 13:53:09
Beverly
Hi,

der Button soll aktualsiert werden wenn du in der anderen Tabelle den Inhalt in der Zelle änderst? Dann musst du den folgenden Code ins Codemodul der anderen Tabelle einfügen:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target.Cells(1), Range("A1")) Is Nothing Then Tabelle1.CommandButton1.Caption = Target.Cells(1)
End Sub


Den Codenamen des Tabellenblattes mit dem CommandButton - hier Tabelle1 - musst du entsprechend anpassen.

Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: Noch eine Nachfrage
12.04.2024 14:07:58
Jo65
Hallo Karin,
ich bekomme das nicht hin bin totaler Neuling.
Hättest du eine Test Tabelle für mich?
Lg
Johannes
AW: Noch eine Nachfrage
12.04.2024 14:41:58
Jo65
Hallo Karin,
danke schon einmal für deine Hilfe.
Ich gebe die Daten nicht selbst in dieses Feld ein sie werden automatisch eingesetzt.
In diesem Fall funktioniert das dann nicht.
Wenn ich die Daten von Hand eingebe, klappt das super.
Lg.
Johannes
Anzeige
AW: Noch eine Nachfrage
12.04.2024 15:29:01
Beverly
Hi Johannes,

das ist dann eine andere Sache. Bisher ging aus deinen Beiträgen nicht hervor, dass du in der Zelle ein Formel hast. In diesem Fall darf nicht die Zelle mit der Formel überwacht werden sondern es müssen die Zellen überwacht werden, aus denen deine Formel das Ergebnis bildet. Wie sieht denn deine Formel aus?

Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: Noch eine Nachfrage
12.04.2024 15:46:20
Jo65
Der Tabellenname wird über folgende Code geändert.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("o22")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

In O22 steht folgende Formel ="WGR 760"&"- KW "&B1
In B1 steht =ISOKALENDERWOCHE(D2)

Danke
Anzeige
AW: Noch eine Nachfrage
12.04.2024 15:48:10
Jo65
Der Tabellenname wird über folgende Code geändert.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("o22")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

In O22 steht folgende Formel ="WGR 760"&"- KW "&B1
In B1 steht =ISOKALENDERWOCHE(D2)

Danke
Anzeige
AW: Noch eine Nachfrage
12.04.2024 16:27:54
Beverly
Hi Johannes,

und aus welcher Zelle soll der CommandButton die Aufschrift erhalten?

Bis später
Karin

Link zur Homepage: https://excel-inn.de/
AW: Noch eine Nachfrage
12.04.2024 18:14:53
Jo65
Hallo Karin,
die Daten kommen aus der Zelle O22.
Lg
Johannes
Eventuelle Lösungsmöglichkeit
12.04.2024 18:24:36
Beverly
Hi Johannes,

dann reicht es also aus, die Aufschrift zu ändern wenn das Tabellenblatt umbenannt wird?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set Target = Range("o22")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Tabelle1.CommandButton1.Caption = Taget.Value
End Sub


Wenn die Aufschrift genau so sein soll wie der Tabellenblattname, dann einfach Target.Value durch Left(Target.Value, 31) ersetzen

Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: Vielen lieben Dank an Karin
12.04.2024 19:00:35
Jo65
Hallo Karin,
alles funktioniert jetzt genau so wie es sein soll.
Danke für deine Geduld.
Lg
Johannes
AW: Noch eine Nachfrage
12.04.2024 14:15:49
Beverly
Hi Johannes,

der CommandButton befindet sich in Tabelle1, derzeit ist seine Aufschrift "AAAAA". Sobald du in Tabelle2!A1 den Eintrag AAAAA änderst, ändert sich die Aufschrift auf dem CommandButton in Tabelle1 entsprechend. Der Code dafür befindet sich im Codemodul von Tabelle2.

https://www.herber.de/bbs/user/168677.xlsm

Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: Beschriftung Command Button
11.04.2024 09:10:02
Jo65
Sorry Schauan,
aber ich verstehe nur Bahnhof.
Kannst du mir das in einer Testtabelle zeigen?
Danke Lg

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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