"dynamische" Benamung von Befehlsschaltflächen?

20/07/2008 - 13:59 von Stefan Scherz | Report spam
Hallo Excelexperten,
ich möchte in einer Exceldatei auf einer zusammenfassenden Übersicht (einem
Arbeitsblatt namens "home") übersichtlich die vielen in dieser Exceldatei
enthaltenden Arbeitsblàtter darstellen und mittels entsprechender
Befehlsschaltflàche einen "schnellen" Zugang gewàhrleisten.
Es wàre nun hilfreich, wenn ich diese Befehlsschaltflàche genauso "Benamen"
könnte, wie das Arbeitsblatt heißt. Hintergrund wàre, wenn ich das einzelne
Arbeitsblatt umbennenen muß, so würde sich die Beschriftung der
Befehlsschaltflàche auch àndern.
Hat jemand eine gute Idee zur Lösung?
Danke im Voraus
 

Lesen sie die antworten

#1 Claus Busch
20/07/2008 - 16:05 | Warnen spam
Hallo Stefan,

Am Sun, 20 Jul 2008 04:59:00 -0700 schrieb Stefan Scherz:

ich möchte in einer Exceldatei auf einer zusammenfassenden Übersicht (einem
Arbeitsblatt namens "home") übersichtlich die vielen in dieser Exceldatei
enthaltenden Arbeitsblàtter darstellen und mittels entsprechender
Befehlsschaltflàche einen "schnellen" Zugang gewàhrleisten.
Es wàre nun hilfreich, wenn ich diese Befehlsschaltflàche genauso "Benamen"
könnte, wie das Arbeitsblatt heißt. Hintergrund wàre, wenn ich das einzelne
Arbeitsblatt umbennenen muß, so würde sich die Beschriftung der
Befehlsschaltflàche auch àndern.



warum willst du so viele Buttons auf dein Blatt machen? Schreibe doch
die Namen deiner Blàtter als Hyperlinks in die Zellen. Hier mal ein
Makro, das dir das auf dem Blatt "home" ab A2 abwàrts übernehmen würde
(bei Namensànderung eines Blattes müsstest du das Makro nochmals
aufrufen. Was in der Zelle angezeigt werden soll, kannst du unter
TextToDisplay àndern.):
Sub Tabellennamen()

Dim i As Integer

For i = 2 To Sheets.Count
Sheets("home").Hyperlinks.Add _
anchor:=Cells(i, 1), _
Address:="", _
SubAddress:=Sheets(i).Name & "!A1", _
TextToDisplay:="Zum Tabellenblatt " _
& Sheets(i).Name
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen