"mein" Standardzahlenformat
u_hoernchen
Ulrike
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Formatting").FindControl(ID:=397).OnAction = ""
End Sub
Private Sub Workbook_Open()
Application.CommandBars("Formatting").FindControl(ID:=397).OnAction = "meinFormat"
End Sub
in ein Modul
Sub meinFormat()
Selection.NumberFormat = "#,##0.00"
End Sub