Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beschriftung Command Button

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

aufbau vieler command buttons, verzögerung?
marc

guten abend zusammen
ich habe eine etwas "unschöne" erscheinung in meiner anwendung:
ich wechse von den ca. 20 arbeitsblättern jeweils mittels folgendem code auf das hauptarbeitsblatt:
Public Sub Hauptmenü() Application.ScreenUpdating = False Worksheets("tabelle1").Activate Range(...
09.10.2008 19:10:08
Thread-ID: 1015438
7 Beiträge
Command Button schützen vor VBA
Hüseyin

Hallo zusammen,
habe eine kurze Frage und hoffe ihr könnt mir weiterhelfen,
ich habe ein Exceldokument mit Commandbuttons drin. Wenn ich allerdings über VBA eine "Sortierung" oder "Komprimierung" über das Tabellenblatt laufen lasse, werden meine Buttons kleiner bzw. sehen gequetscht aus...
28.10.2008 11:21:33
Thread-ID: 1019856
3 Beiträge
Command Button & Variablenübergabe
Jacques

Hallo,
ich erzeuge aus jeder beschriebenen Zeile in einer Mappe einen Command Button. wird dieser gedrückt soll eine Userform aufgehen, und in derenn Feldern die Einträge aus der Zeile stehen, die zum Erzeugen des Buttons führte. Beim Erzeugen der CommandButton stelle ich mir vor, dass ich...
06.11.2008 15:31:39
Thread-ID: 1022322
2 Beiträge
Auswahl von Command Buttons
Command

Hallo,
Ich möchte einen CommandButton auf einem Acces Form aus Excel heraus mit VBA aktivieren. Konkret weiß ich nicht, wie man einen CommandButton ansteuert und diesen per Makro klickt.
Vielen Dank für Eure Hilfe!
Gruß
Lars
24.11.2008 18:49:40
Thread-ID: 1027439
3 Beiträge
Command Button
eric1

Hallo zusammen und einen schönen Abend,
ich möchte die Ansicht der UserForm verschönern, die CommandButton werden wie folgt erstellt :
....
Set ctlOK1 = Controls("frm2").Controls.Add("forms.commandbutton.1", _
"cmdOK1", True)
With ctlOK1
.Left = 320
.Top = 40
.Wi...
17.02.2009 19:53:00
Thread-ID: 1051607
3 Beiträge
Anzeige
Command Button wie Schaltfläche benützen
Andre

Hi Leute,
ich habe keine Ahnung, warum diese zwei Makro codes bei einer Schaltfläche funktionieren, aber wenn ich es einem Command Button zuweise nicht.
Bei Range flippt er jedes mal aus und macht nicht weiter. Kann man einen Command Button mit diesen Codes füttern?
Sub back() Ac...
18.02.2009 18:03:00
Thread-ID: 1051885
6 Beiträge
Anzeige
Werte löschen mit Command Button
Thomas

Hi Profis,
trotz Google Recherche komm ich nicht so richtig weiter. Mist.
Mein Problem besteht darin, das ich hier einen Code aus diesem Forum nach Anpassung an meine Bedürfnisse benutze, welcher Leere Zellen mit einer Ziffer ausfüllt. Klappt soweit sehr gut.
Nun aber macht dieser...
04.03.2009 17:53:38
Thread-ID: 1056535
5 Beiträge
Command Button
Frank

Hei,
muss noch mal stören!! :-)
Kann mir jemand veraten wie ich meine Buttons in meiner Exelmappe wieder zum Leben erwecke.
In Tabelle 1 und 2 sind sie anklickbar in Tabelle 3 und 4 seit 2h nicht mehr. Gehe ich auf Eigenschaften wird mir da nur die Hälfte der Eigenschaftsvariablen a...
06.06.2009 15:28:08
Thread-ID: 1079604
7 Beiträge
Command Button verruscht
merlin

Hallo,
wer kann mir bei diesem Problem helfen?
Eine Tabelle von A bis J und von 1 bis ca. 2000.In diese Tabelle sortiert ich alle Spalten mit dem AutoFilter. Das klappt sehr gut, jetzt möchte ich den gefilterten Bereich über einen Command Button ausdrucken. Aber der Button verruscht manch...
29.04.2002 12:52:26
Thread-ID: 117135
3 Beiträge
Command Button
Ralf

Hallo Excel - Experten,
ich habe eine Excel - Datei mit 11 Tabellen. In
jeder Tabelle habe ich einen CommandButton ( mit VBA Code ).
Jeder CommandButton für sich funktioniert ganz
super.
Nun zu meinem Problem: ich möchte gerne aus der
Tabelle 1 heraus alle 11 gleichzei...
30.08.2010 10:38:58
Thread-ID: 1174739
9 Beiträge
Command Buttons
Peter

Hallo zusammen,
ich habe eine Userform. Es soll eine Abfrage über 30 ToggleButton (TB) erfolgen.
(Name= TB1, TB2,...; Caption=1, 2, ...)
Wird ein TB gedrückt (Value=true) soll sich die Hintergrundfarbe ändern und der Wert (Caption) in Spalte A schreiben. Und umgekehrt (Value=false)<...
21.02.2011 22:40:49
Thread-ID: 1202211
3 Beiträge
Command Button als Grafik ausblenden
EarnyToLearny

Hallo zusammen,
um eine Schaltfläche auszublenden könnte man das doch verwenden?
If ActiveSheet.Cells(17, 3) = 1 Then CommandButton?.Visible = True
Else
CommandButton?.Visible = False
End If

Jedoch verwende ich selbst erstellte Grafik-Buttons in denen dann das M...
11.06.2011 20:15:48
Thread-ID: 1218168
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige