Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
196to200
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

buttons nach sheets beschriften

buttons nach sheets beschriften
03.01.2003 20:54:34
VoVo
Hallo List

ich hab mal wieder eine Frage.
Wie kann ich 52 Buttons mit den Titeln von einzelnen Sheets beschriften. Da sich auf den einzelnen Sheets jeweils eine Woche des Jahres befindet, sollen die Buttons diese Beschriftung bekommen. Bisher hatte ich das immer von Hand gemacht. Dies möchte ich jetzt automatisieren.
Für einen Tipp wäre ich dankbar.

Danke schon mal
VoVo

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: buttons nach sheets beschriften
03.01.2003 21:22:16
Nepumuk
Hallo ?,
es wäre hilfreich zu wissen,ob es sich um Buttons der Userform, des Formulars oder der Steuerelement_Toolbox handelt.
Gruß
Nepumuk
Re: buttons nach sheets beschriften
03.01.2003 21:34:33
Herbert
Hallo VoVo,
Eine Möglichkeit:

In "Diese Arbeitsmappe":

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.CommandButton1.Caption = ActiveSheet.Name
End Sub
  Gruß Herbert

Anzeige
Re: buttons nach sheets beschriften
03.01.2003 22:01:30
VoVo
Es sind buttons auf einem Userform

Gruß
VoVo

Re: buttons nach sheets beschriften
03.01.2003 22:16:34
Herbert
dann vielleicht so:

'In das Klassenmodul der Userform:

Private Sub UserForm_Initialize()
 btn1.Caption = Worksheets(1).Name
  btn2.Caption = Worksheets(2).Name
   btn3.Caption = Worksheets(3).Name
End Sub
     
Gruß Herbert

Re: buttons nach sheets beschriften
03.01.2003 23:07:38
VoVo
Danke hat geklappt.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige