Buttons per Script
10.06.2002 12:53:29
Chris
gibt es eine Möglichkeit per Script die Bezeichnungen der Arbeitsblätter auszulesen und daraus Buttons auf einem UserForm zu hinterlegen, bei denen ich dann über
Sheets("Name").Select
Range("A1").Select
die Blätter ansteuern kann?
Ich habe schon den folgenden Tip bekommen:
--------------------------------------------
Option Explicit
Private Sub UserForm_Initialize()
Dim ctrBut As MSForms.CommandButton
Dim bytSheet As Byte
For bytSheet = 1 To Sheets.Count
Set ctrBut = Me.Controls.Add("Forms.CommandButton.1")
With ctrBut
.Left = 55 * (bytSheet - 1)
.Top = 25 * (bytSheet - 1)
.Width = 50
.Height = 20
.Caption = Sheets(bytSheet).Name
End With
Next bytSheet
End Sub
--------------------------------------------
jedoch möchte ich vier Buttons pro Reihe und die Buttons sollen einen Befehl wie
Sheets("Name").Select
Range("A1").Select
ausführen.
Danke & Gruß
Christian