Kleines Spinbutton Schönheits-Problem
Axel
ich bin leider total aus VBA raus und brauche darum mal wieder eure Hilfe.
ich habe in meiner Tabelle schon lange einen Spinbutton der dazu dient die aktive Zeile vertikal nach oben oder unten zu verschieben.
Die Funktion ist soweit fertig es gibt nur ein Schönheitsproblem:
Nach dem ersten mal drücken auf den Button bleibt eben dieser Button markiert und nicht die zuvor markierte Zelle. Wenn man dann nochmal drückt ist wieder die Zelle markiert, wenn nochmal drückt ist wieder der Button markiert usw. Das ist immer sehr verwirrend.
Ich möchte nun das nach jedem mal drücken die Zelle markiert ist! Das sollte doch irgendwie möglich sein.
Hier die Funktion:
Private Sub SpinButton1_SpinDown()
' unten
If ActiveCell.Row 1 Then
Rows(ActiveCell.Row).Cut
Rows(ActiveCell.Row - 1).Insert Shift:=xlDown
ActiveCell.Offset(-1, 0).Select
End If
End Sub
Gruß Axel