Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

buttons nach sheets beschriften

Forumthread: buttons nach sheets beschriften

buttons nach sheets beschriften
03.01.2003 21: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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: buttons nach sheets beschriften
03.01.2003 22: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 22: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 23:01:30
VoVo
Es sind buttons auf einem Userform

Gruß
VoVo

Re: buttons nach sheets beschriften
03.01.2003 23: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

Anzeige
Re: buttons nach sheets beschriften
04.01.2003 00:07:38
VoVo
Danke hat geklappt.
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18