Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

CommandButton mit Variablen erzeugen
#1
Ein freundliches 'Hallo' an alle hier im Forum

Ich habe in einem Tabellenblatt vier CommandButton eingebaut.
Habe die 4 Buttons als ActiveX Steuerelemente positioniert und mittels Caption auch beschriftet.
Beim Klick auf den Button wird auf die dazugehörige Stelle in einem anderen Blatt gesprungen.
Jetzt möchte ich noch, dass der noch verfügbare Bestand mit im Button angezeigt wird. Dieser Wert steht auf dem Ziel-Tabellenblatt.
Wie ist das zu realisieren?
Danke für jede Hilfe.

Mit freundlichen Grüßen
hziemer
Antwortento top
#2
Hallo,

so in der Art:

Code:
Private Sub Worksheet_Activate()
  Me.CommandButton1.Caption = "Noch verfügbar: " & Worksheets("Tabelle2").Range("A2").Value
  Me.CommandButton2.Caption = "Noch verfügbar: " & Worksheets("Tabelle2").Range("A3").Value
  Me.CommandButton3.Caption = "Noch verfügbar: " & Worksheets("Tabelle2").Range("A4").Value
  Me.CommandButton4.Caption = "Noch verfügbar: " & Worksheets("Tabelle2").Range("A5").Value
End Sub

Gruß Uwe
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • hziemer
Antwortento top
#3
Hallo Uwe

Kuwer schrieb:so in der Art:

Code:
Private Sub Worksheet_Activate()
   Me.CommandButton1.Caption = "Noch verfügbar: " & Worksheets("Tabelle2").Range("A2").Value
   Me.CommandButton2.Caption = "Noch verfügbar: " & Worksheets("Tabelle2").Range("A3").Value
   Me.CommandButton3.Caption = "Noch verfügbar: " & Worksheets("Tabelle2").Range("A4").Value
   Me.CommandButton4.Caption = "Noch verfügbar: " & Worksheets("Tabelle2").Range("A5").Value
End Sub

Das es so einfach geht. Habe dafür Kopfstände gemacht. Danke für die prompte Hilfe.

Gruß
Hermann

Zitat dargestellt durch 4. Button von rechts im Beitragsformular
Moderator
[Bild: smilie.php?smile_ID=1810]
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste