Schaltflächen gem. Tabelleninhalten anlegen und benennen.

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

208803    205403

Problem: Mit der ersten Schaltfläche sollen in Tabelle2 Buttons angelegt, mit der zweiten benannt werden.

StandardModule: Modul1

Sub CreateButtons()
   Dim btn As Button
   Dim rng As Range
   Dim iCounter As Integer
   With Worksheets("Tabelle2")
      .Buttons.Delete
      For iCounter = 1 To 40
         Set rng = .Cells(iCounter, 1)
         Set btn = Worksheets("Tabelle2").Buttons.Add( _
            rng.Left, rng.Top, rng.Width, rng.Height)
      Next iCounter
   End With
End Sub

Sub SetBtnNames()
   Dim btn As Button
   Dim iRow As Integer
   For iRow = 1 To 40
      Worksheets("Tabelle2").Buttons(iRow).Caption = _
         Cells(iRow, 1).Value
   Next iRow
End Sub