Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Button im selektierten Bereich erstellen und Makro zuweisen

Gruppe

CommandButton

Problem

Im aktiven Blatt soll eine Schaltfläche an der Position und in der Größe des selektierten Bereiches erstellt werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub SetButton()
   Dim btn As Button
   Dim dWidth As Double, dHeight As Double
   With Selection
      dWidth = .Cells(.Cells.Count).Left - _
         .Cells(1).Left + .Cells(.Cells.Count).Width
      dHeight = .Cells(.Cells.Count).Top - _
         .Cells(1).Top + .Cells(.Cells.Count).RowHeight
      Set btn = ActiveSheet.Buttons.Add(.Cells(1).Left, _
         .Cells(1).Top, dWidth, dHeight)
   End With
   btn.Caption = "Aufruf"
   btn.OnAction = "Message"
End Sub

Sub Message()
   MsgBox "Hallo"
End Sub