Command Button Zelle nicht aktiv
21.08.2018 15:02:10
mike49
ich habe dieses Makro:
Option Explicit
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
If Not Intersect(Range("C3:L33"), ActiveCell) Is Nothing Then
With ActiveCell
.Value = IIf(.Value "K", "K", "")
.Font.Color = vbRed
End With
End If
ActiveSheet.Protect
End Sub
Wenn ich nun eine Zelle aktiviere und den Button anklicke, wird auch "K" eingetragen.Durch erneutes Klicken auf den Button verschwindet der Eintrag auch wieder. Soweit so gut.
Ich hätte aber lieber, dass die Zelle mit dem Eintrag aktiv bleibt und ich mit der Abwärtstaste die nächste Zelle anwählen kann und nicht die nächste Zelle erst mit der Maus aktivieren muss. Zum Löschen des Eintrags ist es o.k. die entsprechende Zelle mit der Maus anzuklicken und dann mit dem Button den Eintrag wieder zu löschen.
Wie müsste geändert werden?
Gruß
mike49