VBA: Button erstellen

28/04/2009 - 12:48 von Oliver Hohl | Report spam
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
 

Lesen sie die antworten

#1 stefan onken
28/04/2009 - 13:10 | Warnen spam
On 28 Apr., 12:48, Oliver Hohl
wrote:
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



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

Ähnliche fragen