AW: Schaltfläche zellenabhängig
10.07.2013 08:46:06
Klaus
Hi Steffan,
das Sub "Test" bewegt dir den "CommandButton1" (wenn es ihn gibt!) in Tabelle1 in die Zelle A1 und macht ihn da exakt so groß wie A1:
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 ...
Grüße,
Klaus M.vdT.