Formatierungsfehler mit .LineStyle und .Weight-VBA-

Question

Ich führe diesen Code aus, um die Formatierung in meiner Arbeitsmappe zu beheben, und es scheint in einigen Fällen gut zu funktionieren, aber in einigen anderen hört es mit einer "1004 Error" -Meldung auf die .LineStyle oder .Weight.Anyone hat irgendwelche Vorschläge, was hier schief gehen könnte? Danke vielmals!

‚Bringen Sie die Breite der Spalten & die Formatierung

Columns("A:D").AutoFit` 

With Sheets("Sheet1")` 
    .Cells.Font.Size = 8` 
End With` 

Set rng1 = Columns("A:F")` 
Set rng2 = Rows("1:10")` 

With rng1.Borders` 
    .LineStyle = xlContinuous` 
    .Weight = xlHairline` 
End With` 

With rng2.Borders` 
    .LineStyle = xlNone` 
End With` 

Answer 1

Stellen die Bereiche innerhalb die With Sheets("Sheet1")... End With beheben.

With Sheets("Sheet1") 
    .Columns("A:D").AutoFit 
    .Cells.Font.Size = 8 
    Set rng1 = .Columns("A:F") 
    Set rng2 = .Rows("1:10") 
End With 

With rng1.Borders 
    .LineStyle = xlContinuous 
    .Weight = xlHairline 
End With` 

With rng2.Borders 
    .LineStyle = xlNone 
End With 

Sie verloren das Arbeitsblatt Verein Eltern, wenn Sie aus dem mit abgestuften ... End With.