SpinButton
Ralf
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim AktRow, AktSpalte
AktRow = ActiveCell.Row
AktSpalte = ActiveCell.Column
With SpinButton1
.Top = Cells(AktRow, AktSpalte).Top
.Left = Cells(AktRow, AktSpalte + 6).Left
End With
End Sub
Nachteil, der Button springt jedes Mal sofort hinterher. Er soll aber seine Position auf dem Monitor beibehalten. Mann stelle sich vor, die Position auf dem Monitor mit einem Edding Markiert zu haben. Also, wenn ich das Arbeitsblatt nach oben oder unten scrolle, erst dann soll der SpinButton wandern, vorher nicht. Hat da jemand einen Tipp? Grüß Ralf