Button automatisch beschriften

Forumthread: Button automatisch beschriften

Stefanglander

Guten Abend Forum,
Ich habe eine Userform in der ich 5 Button habe.
Nun möchte ich genre, dass sich die Beschriftung der Button automatisch ändert.
Die Namen der Button stehen im Tabellenblatt7 in den Zellen C2:C6.
Button 1 soll den Namen des Wertes der in Zelle C2 steht, Button 2 den Namen de rin Zelle C3.. usw steht.
Wird der Inhalt in Zelle C3 geändert soll beim nächsten aufruf der UF den Button 2 automatisch geändert sein.
Mag jemand helfen ?
Gruß
Stefan

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Button automatisch beschriften

Oberschlumpf
AW: Button automatisch beschriften

Stefanglander

AW: Button automatisch beschriften

11.09.2009 19:05:33

Oberschlumpf

Hi Stefan
Am einfachsten geht es so:
Schreib ins Activate-Ereignis deines Userforms diesen Code:


With Sheets("Tabelle7")
CommandButton1.Caption = .Range("C2").Value
CommandButton2.Caption = .Range("C3").Value
CommandButton3.Caption = .Range("C4").Value
CommandButton4.Caption = .Range("C5").Value
CommandButton5.Caption = .Range("C6").Value
End With

Mit Hilfe dieses Codes erhalten die Button bei jedem Start des Userforms die Beschriftung aus den Zellen C2-C6.
Die hier FETT dargestellten Wörter musst du vielleicht anpassen, da ich nicht weiß, ob deine "Tabelle7" wirklich so heißt, und ich auch nicht weiß, ob deine Buttons 1 - 5 auch so heißen.
Hilfts denn?
Ciao
Thorsten

AW: Button automatisch beschriften

11.09.2009 19:19:09

Stefanglander

Hallo Thorsten,
das klappt so wie Du es mir hier gepostet hast.
Danke dir
Das Problem mit dem ändern des Tabellenblattnamens umgehe ich nun indem ich eine Hilfstabellenblatt anlege.
Wünsche Dir noch einen schönen Abend
Gruß
Stefan

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die Beschriftung von Buttons in einer Userform automatisch aus bestimmten Zellen zu übernehmen, kannst du folgende Schritte befolgen:

Öffne das VBA-Editor in Excel mit ALT + F11.
Finde deine Userform im Projekt-Explorer.
Doppelklicke auf die Userform, um den Code-Editor zu öffnen.

Füge den folgenden Code in das Activate-Ereignis der Userform ein:

Private Sub UserForm_Activate()
   With Sheets("Tabelle7")
       CommandButton1.Caption = .Range("C2").Value
       CommandButton2.Caption = .Range("C3").Value
       CommandButton3.Caption = .Range("C4").Value
       CommandButton4.Caption = .Range("C5").Value
       CommandButton5.Caption = .Range("C6").Value
   End With
End Sub

Schließe den VBA-Editor und teste die Userform. Die Buttons sollten jetzt die Beschriftungen aus den Zellen C2 bis C6 übernehmen.

Häufige Fehler und Lösungen

Fehler: Buttons zeigen keine Beschriftung an
- Lösung: Stelle sicher, dass die Namen der Buttons im Code mit den tatsächlichen Namen in deiner Userform übereinstimmen.
Fehler: Falsches Tabellenblatt ausgewählt
- Lösung: Überprüfe, ob "Tabelle7" tatsächlich der Name deines Arbeitsblattes ist. Ändere den Namen im Code entsprechend.

Alternative Methoden

Wenn du die Beschriftungen der Buttons nicht über VBA ändern möchtest, kannst du auch die Zellen beschriften und eine Formel verwenden, um die Button-Beschriftung manuell zu aktualisieren. Dazu musst du die Buttons jedoch manuell aktualisieren, was weniger flexibel ist.

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie du die Buttons mit Werten aus einer Excel-Tabelle beschriften kannst:

Zelle C2: "Start"
Zelle C3: "Stop"
Zelle C4: "Pause"
Zelle C5: "Reset"
Zelle C6: "Exit"

Nach dem Ausführen des Codes wird Button 1 "Start", Button 2 "Stop" usw. anzeigen.

Tipps für Profis

Nutze vba msgbox, um den Benutzer darüber zu informieren, wenn ein Button erfolgreich beschriftet wurde. Beispiel:
```
MsgBox "Button 1 wurde erfolgreich beschriftet!"
```
Wenn du mehrere Userforms hast, kannst du eine Funktion erstellen, die die Buttons in allen Userforms beschriftet, um den Code wiederverwendbar zu machen.

FAQ: Häufige Fragen

1. Wie kann ich die Beschriftung eines Buttons manuell ändern?
Du kannst das in den Eigenschaften des Buttons im VBA-Editor tun, indem du die Caption-Eigenschaft änderst.

2. Kann ich die Beschriftungen auch aus einer anderen Excel-Datei abrufen?
Ja, du kannst das mit einer Referenz zu der anderen Datei tun, indem du die Arbeitsmappe zuerst öffnest und dann die Zellen aus dieser Datei abfragst.

Beliebteste Forumthreads (12 Monate)