Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

CommandButton erweitern


Betrifft: CommandButton erweitern von: mike49
Geschrieben am: 03.09.2019 06:45:27

Hallo Leute,

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 < 36 Then
     .Value = IIf(.Value <> "Krank", "Krank", "")
     .Font.Color = vbRed
    ActiveSheet.Protect
  End If
 End With
End Sub
Gruß
mike49

  

Betrifft: AW:ActiveCell.Activate o.r.T.. von: GerdL
Geschrieben am: 03.09.2019 06:54:13

Gruß Gerd


  

Betrifft: AW: CommandButton erweitern von: Nepumuk
Geschrieben am: 03.09.2019 07:16:15

Hallo mike49,

setze die Option TakeFocusOnClick in den Eigenschaften des CommandButtons auf False.

Gruß
Nepumuk


  

Betrifft: Danke Leute für die Hilfe . . . von: mike49
Geschrieben am: 03.09.2019 07:22:56

. . . beide Möglichkeiten klappen.

Gruß
mike49


  

Betrifft: ein Test, sorry von: hans
Geschrieben am: 09.09.2019 10:48:53

Der Test


  

Betrifft: un noch einer... von: hans
Geschrieben am: 09.09.2019 10:53:40

... der Nächste


Beiträge aus dem Excel-Forum zum Thema "CommandButton erweitern"