Gruß Stefan
Option Explicit
Sub Test()
Call MoveButton("CommandButton1", "Tabelle1", "A5")
End Sub
Sub MoveButton(sButton As String, sWks As String, sCell As String)
Dim rng As Range
Set rng = Sheets(sWks).Range(sCell)
With Sheets(sWks).OLEObjects(sButton)
.Top = rng.Top
.Left = rng.Left
.Width = rng.MergeArea.Width
.Height = rng.MergeArea.Height
End With
End Sub
heisst moveButton, geht aber auch mit ComboBoxes, Listboxes usw ...
Sub SchaltflächeInfo_einfügen()
Dim objButton As Object
Dim strObjekt As String
Dim cTop As Currency
Dim cLeft As Currency
Dim cHeight As Currency
Dim cWidth As Currency
Dim sheet As Worksheet
Set sheet = ThisWorkbook.Worksheets("Einkauf")
With Range("L2")
cTop = .Top
cLeft = .Left
cHeight = .Height
cWidth = .Width
End With
Set objButton = ActiveSheet.Buttons.Add(cLeft, cTop, cWidth, cHeight)
objButton.OnAction = "info"
objButton.Caption = "Info"
objButton.Placement = xlMoveAndSize
objButton.Name = "btnInfo"
End Sub
Ich danke dir trotzdem für die schnelle Antwort, denn dadurch bin ich erst auf den anderen Weg gekommen. Noch einen schönen Tag.
With sheet.Range("L2")
cTop = .Top
cLeft = .Left
cHeight = .Height
cWidth = .Width
End With