Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

VBA: Button erstellen

74 views
Skip to first unread message

Oliver Hohl

unread,
Apr 28, 2009, 6:48:01 AM4/28/09
to
Hallo Newsgroup

Ich habe eine Excel '02 Tabelle, welche sehr viele Blätter hat. Aus diesem
Grund habe ich ein 'Inhaltsverzeichnis' erstellt, mit welchem man auf das
ausgewählte Blatt kommt. Die Blätter sollen jeweils einen Button "zurück"
erhalten. Ich habe mir den Makro mal aufgezeichnet:
Sheets("Tabelle1").Select
ActiveSheet.Buttons.Add(301.5, 37.5, 97.5, 25.5).Select
Selection.OnAction = "Zurück"
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "Zurück"

Wie kann ich das jetzt machen, dass das Makro für alle Blätter durchläuft?
Bei diesem Makro wird ja explizit die Sheet "Tabelle1" angesprochen...

Vielen Dank für eure Hilfe und viele Grüsse
Oliver


stefan onken

unread,
Apr 28, 2009, 7:10:08 AM4/28/09
to
On 28 Apr., 12:48, Oliver Hohl <OliverH...@discussions.microsoft.com>
wrote:

hallo Oliver,
das ginge zB so:

For Each sh In ActiveWorkbook.Worksheets
Set btn = sh.Buttons.Add(301.5, 37.5, 97.5, 25.5)
btn.OnAction = "Zurück"
btn.Characters.Text = "Zurück"
Next


Gruß
stefan

Oliver Hohl

unread,
Apr 28, 2009, 7:30:01 AM4/28/09
to
Hallo Stefan

"stefan onken" wrote:

Super - vielen Dank!
Oliver

0 new messages