Fejl ved afvikling af makro

With Sheets("Ark3").Columns("B:E").Font
            .Name = "Arial"
            .Size = Ark2.Range("FontIndex").Value
        End With

Fejlen kommer fortsat:

Hele koden med din kode indsat ser således ud:

'Indeks 1-5
Sub L1_5()
    Start
    Ark2.Range("b2") = "'1-5"
    Ark2.Range("a2") = 5
    Ark2.Range("IndexType") = 1
    Ark2.Range("ActiveIndexsub") = "L15"
    RowHeight
    ColumnsShow
    Font
End Sub

'Indeks 1-6
Sub L1_6()
    Start
    Ark2.Range("b2") = "'1-6"
    Ark2.Range("a2") = 6
    Ark2.Range("IndexType") = 1
    Ark2.Range("ActiveIndexsub") = "L16"
    RowHeight
    ColumnsShow
    Font
End Sub

'Indeks 1-10
Sub L1_10()
    Start
    Ark2.Range("b2") = "'1-10"
    Ark2.Range("a2") = 10
    Ark2.Range("IndexType") = 1
    Ark2.Range("ActiveIndexsub") = "L110"
    RowHeight
    ColumnsShow
    Font
End Sub

'Indeks 1-12
Sub L1_12()
    Start
    Ark2.Range("b2") = "'1-12"
    Ark2.Range("a2") = 12
    Ark2.Range("IndexType") = 1
    Ark2.Range("ActiveIndexsub") = "L112"
    RowHeight
    ColumnsShow
    Font
End Sub

'Indeks 12-1
Sub L12_1()
    Start
    Ark2.Range("b2") = "'12-1"
    Ark2.Range("a2") = 12
    Ark2.Range("IndexType") = 3
    Ark2.Range("ActiveIndexsub") = "L121"
    RowHeight
    ColumnsShow
    Font
End Sub

'Indeks 1-15
Sub L1_15()
    Start
    Ark2.Range("b2") = "'1-15"
    Ark2.Range("a2") = 15
    Ark2.Range("IndexType") = 1
    Ark2.Range("ActiveIndexsub") = "L115"
    RowHeight
    ColumnsShow
    Font
End Sub

'Indeks 1-20
Sub L1_20()
    Start
    Ark2.Range("b2") = "'1-20"
    Ark2.Range("a2") = 20
    Ark2.Range("IndexType") = 1
    Ark2.Range("ActiveIndexsub") = "L120"
    RowHeight
    ColumnsShow
    Font
End Sub

'Indeks 1-31
Sub L1_31()
    Start
    Ark2.Range("b2") = "'1-31"
    Ark2.Range("a2") = 31
    Ark2.Range("IndexType") = 1
    Ark2.Range("ActiveIndexsub") = "L131"
    RowHeight
    ColumnsShow
    Font
End Sub

'Indeks 1-54
Sub L1_54()
    Start
    Ark2.Range("b2") = "'1-54"
    Ark2.Range("a2") = 54
    Ark2.Range("IndexType") = 1
    Ark2.Range("ActiveIndexsub") = "L154"
    RowHeight
    ColumnsShow
    Font
End Sub

'Indeks Jan-Dec
Sub JanDec()
    Start
    Ark2.Range("b2") = "Jan-Dec"
    Ark2.Range("a2") = 12
    Ark2.Range("IndexType") = 4
    Ark2.Range("ActiveIndexsub") = "JanDec"
    RowHeight
    ColumnsShow
    Font
End Sub

'Indeks A-Å
Sub AÅ()
    Start
    Ark2.Range("b2") = "A-Å"
    Ark2.Range("a2") = 20
    Ark2.Range("IndexType") = 2
    Ark2.Range("ActiveIndexsub") = "AÅ"
    RowHeight
    ColumnsShow
    Font
End Sub

Sub RowHeight()

Ark3.Cells.PageBreak = xlPageBreakNone

I = 1
With Ark3
For I = 1 To 54
    .Rows(I).RowHeight = .Range("L" & I).Value
Next I
End With

End Sub

Sub ColumnsShow()
   
    Application.ScreenUpdating = False
   
    Ark3.Select
   
'Columnwidth

    Columns("B:E").ColumnWidth = Ark2.Range("ColumnWidthIndex").Value
    Columns("F:F").ColumnWidth = Ark2.Range("ColumnWidthText").Value
    Columns("G:J").ColumnWidth = Ark2.Range("ColumnWidthIndex").Value


'ColumnAlignment
    If Ark2.Range("K2") = 1 Then Ark3.Columns("B:E").HorizontalAlignment = xlRight
    If Ark2.Range("K2") = 2 Then Ark3.Columns("B:E").HorizontalAlignment = xlRight
    If Ark2.Range("K2") = 1 Then Ark3.Columns("G:J").HorizontalAlignment = xlRight
    If Ark2.Range("K2") = 2 Then Ark3.Columns("G:J").HorizontalAlignment = xlRight
       
'Reset Hidden columns

    Columns("B:J").EntireColumn.Hidden = True
    Columns("F:F").EntireColumn.Hidden = False
   
   
'Hide columns

    If Ark2.Range("K2") = 2 Then
        If Ark2.Range("IndexType").Value = 1 Then Columns("B:B").EntireColumn.Hidden = False
        If Ark2.Range("IndexType").Value = 2 Then Columns("C:C").EntireColumn.Hidden = False
        If Ark2.Range("IndexType").Value = 3 Then Columns("D:D").EntireColumn.Hidden = False
        If Ark2.Range("IndexType").Value = 4 Then Columns("E:E").EntireColumn.Hidden = False
    End If
   
    If Ark2.Range("K2") = 1 Then
        If Ark2.Range("IndexType").Value = 1 Then Columns("G:G").EntireColumn.Hidden = False
        If Ark2.Range("IndexType").Value = 2 Then Columns("H:H").EntireColumn.Hidden = False
        If Ark2.Range("IndexType").Value = 3 Then Columns("I:I").EntireColumn.Hidden = False
        If Ark2.Range("IndexType").Value = 4 Then Columns("J:J").EntireColumn.Hidden = False
    End If
   
     
    Ark3.Range("F1").Select
   
     
    Application.ScreenUpdating = True
   
End Sub


'Font settings

Sub Font()
   
    With Sheets("Faneblad").Columns("B:E").Font
            .Name = "Arial"
            .Size = Ark2.Range("FontIndex").Value
    End With
       
       
   
    With Sheets("Faneblad").Columns("G:J").fond
            .Font.Name = "Arial"
            .Size = Ark2.Range("FontIndex").Value
    End With
       
    With Sheets("Faneblad").Columns("F:F").Font
            .Name = "Arial"
            .Size = Ark2.Range("FontText").Value
    End With
       
    Application.ScreenUpdating = True
   
   
End Sub

Sub Start()
Ark3.Cells.PageBreak = xlPageBreakNone
    Application.ScreenUpdating = False
End Sub

Måske hvis du retter:

With Sheets("Faneblad").Columns("G:J").fond
            .Font.Name = "Arial"
            .Size = Ark2.Range("FontIndex").Value
    End With


Til:

With Sheets("Faneblad").Columns("G:J").Font
            .Font.Name = "Arial"
            .Size = Ark2.Range("FontIndex").Value
    End With

Tak Store-morten, men det løste desværre ikke problemet, så der må være andre fejl (jeg tror det har noget at gøre med ændringen i Excel version fra 2003 til 2007)

hvis du nu retter til

Sub Font()
   
  Sheets("Faneblad").Activate
  With Range("B:J").Font
          .Name = "Arial"
          .Size = Ark2.Range("FontIndex").Value
    End With
    Application.ScreenUpdating = True
 
End Sub

det erstatter dine 3 dele i din kode

Sub Font()
   
    With Sheets("Faneblad").Columns("B:E").Font
            .Name = "Arial"
            .Size = Ark2.Range("FontIndex").Value
    End With
       
    With Sheets("Faneblad").Columns("G:J").font
            .Name = "Arial"
            .Size = Ark2.Range("FontIndex").Value
    End With
       
    With Sheets("Faneblad").Columns("F:F").Font
            .Name = "Arial"
            .Size = Ark2.Range("FontText").Value
    End With
       
    Application.ScreenUpdating = True
     
End Sub

Er det korrekt at:
kolonne B:E og G:J henter str. i cellen Ark2.Range("FontIndex") og
kolonne F:F              henter str. i cellen Ark2.Range("FontText") ?

Hej store-morten

Jeg undskylder, at jeg har været fraværende nogen tid.

Din rettelse af:
    With Sheets("Faneblad").Columns("G:J").font
            .font.Name = "Arial"
            .Size = Ark2.Range("FontIndex").Value
    End With

til:
    With Sheets("Faneblad").Columns("G:J").font
            .Name = "Arial"
            .Size = Ark2.Range("FontIndex").Value
    End With

Løste problemet (der var et font for meget).

Lægger du et svar?

Det var godt det lykkedes :-)