Galeriestatusbalk aanpassen

[Symphysodon]

Beste forummers

Is het mogelijk om in Excel van Office365 de galerie statusbalk, de standaardafwijking toe te voegen?

Zou voor mij erg handig zijn.

Mvg
Marco

 

[jkpieterse]

Niet standaard. Met VBA zouden we het deel waar nu "Gereed" staat kunnen misbruiken. Rechts-klik op het tabblad en keis "Programma-code weergeven".
plak deze code in het venster en selecteer een paar cellen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Application.StatusBar = Application.WorksheetFunction.StDev(Selection.Value2)
    If Err.Number > 0 Then
        Application.StatusBar = False
    End If
End Sub

 

[Symphysodon]

Top het werkt.

Bedankt.