Arbeitsblätter einschließlich Link-Schaltflächen anlegen

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

205403    196802

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