Gruppe
Allgemein
Problem
Es sollen neue Tabellenblätter mit den in Spalte A genannten Namen erstellt werden. Jedem Tabellenblatt ist eine Schaltfläche hinzuzufügen und in diesem Blatt sind Hyperlinks zu den neuen Blättern zu setzen.
StandardModule: Modul1
Sub NewSheets()
Dim wks As Worksheet
Dim btn As Button
Dim iWks As Integer
Application.ScreenUpdating = False
Set wks = ActiveSheet
iWks = 1
Do Until IsEmpty(wks.Cells(iWks, 1))
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = wks.Cells(iWks, 1).Value
Set btn = ActiveSheet.Buttons.Add(200, 100, 120, 20)
btn.Caption = "Rufe Makro " & iWks
btn.OnAction = "Makro" & iWks
wks.Hyperlinks.Add _
anchor:=wks.Cells(iWks, 1), _
Address:="", _
SubAddress:=ActiveSheet.Name & "!A1"
iWks = iWks + 1
Loop
Worksheets(1).Select
Application.ScreenUpdating = True
End Sub