ich möchte den Commandbutton3 durch den Klick in eine andere Zelle setzen.
Wichtig ist, das erst nach dem Klick auf CommandButton3 die Zelle aktiviert wird, in die der Button dann eingefügt werden soll.
Mein Versuche hatten bisher keinen Erfolg und im Netz konnte ich auch nichts finden.
Mit der Bitte um Hilfe,
grüßt, Dieter(Drummer)
Mein bisgeriger Code:
Private Sub CommandButton3_Click()
Dim rng As Range
Set rng = ActiveCell
Worksheets("Tabelle1").Activate
If Not rng Is Nothing Then
With ActiveSheet.OLEObjects("CommandButton3")
.Top = rng.Top
.Left = rng.Left
.Width = rng.Width
.Height = rng.RowHeight 'für 1 Zelle
End With
End If
End Sub