CommandButton mit 2. Klick in andere Zelle
20.11.2017 16:33:24
Dieter(Drummer)
mit diesem Code geht bei Klick der Commandbutton1 in Zelle D7 und wird an die Zellgröße angepasst. Das funktioniert.
Code:
Private Sub CommandButton1_Click()
Dim pos1 As Range
Set pos1 = Range("d7")
With CommandButton1
.Height = pos1.Height
.Width = pos1.Width
.Top = pos1.Top
.Left = pos1.Left
End With
End Sub
Wie nuss der Code lauten, damit ich mit dem nächsten (2ten) Klick auf den Button1, der Button1 in eine andere Zelle springt und ebenfalls dort an die Zellgröße angepasst wird?
Habe einige Versuche gemacht, aber bekomme es nicht hin.
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)