Děkuji za odpovědi, ještě jeden menší dotaz, který se týká VBA.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
Dim kde As Range
Set kde = Range("a2:a4,c2:c4")
kde.NumberFormat = "#,##0"" " & Target.Value & """"
End Sub
...kde doplním odkaz na jiný list, např na List1 hodnota $B$1