Subtotal

Du er velkommen til at sende filen - @-adresse under min profil - så skal jeg forsøge..

Sub summe()

    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    ActiveWindow.SmallScroll Down:=15

    udførErstatningAfMdTekst
End Sub
Private Sub udførErstatningAfMdTekst()
Dim uk_Måneder
Dim dk_Måneder
Dim md As Integer
Dim test As Variant

    uk_Måneder = Array("January", "February", "March", "April", "May") 'o.s.v.
    dk_Måneder = Array("januar", "februar", "marts", "april", "maj")  'o.s.v.
   
    Range("A1").Select
   
    For md = 0 To UBound(uk_Måneder)
        Range("A1:A65000").Replace What:=uk_Måneder(md), Replacement:=dk_Måneder(md), LookAt:=xlPart _
            , SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
    Next md
End Sub