Thema: Schaltflächen gem. Tabelleninhalten anlegen und benennen.

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt