CommandButton erweitern
03.09.2019 06:45:27
mike49
wie kann ich dieses Makro verändern, dass nach Betätigen des CommandButtons die Zelle, in die der Eintrag erfolgt ist, aktiv bleibt?
Option Explicit
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
With ActiveCell
If .Column = 3 And .Row > 4 And .Row "Krank", "Krank", "")
.Font.Color = vbRed
ActiveSheet.Protect
End If
End With
End Sub
Grußmike49