Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

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

Gruppe

Arbeitsblatt

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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