Makro für keine Füllung und keine Grenzen

Question

Ich bin auf der Suche nach einem Excel-Makro, das alle Zellfüllungen auf keine Füllung setzen und alle Zellen keine Grenzen haben wird. Ich habe mehrere Tabellen in meiner Arbeitsmappe und möchte, dass dies für alle gilt. Ich habe im ganzen Internet nach etwas Ausschau gehalten, das das tut, aber ich kam zu kurz.

Answer 1

Dies sollte es tun. Fügen Sie es einfach zu jedem Sub hinzu und Sie sind gut zu gehen:

Dim wsCount As Integer 
Dim i As Integer 

wsCount = ActiveWorkbook.Worksheets.Count 

For i = 1 to wsCount 
    Worksheets(i).Activate 
    Cells.Select 
    With Selection.Interior 
     .Pattern = xlNone 
     .TintAndShade = 0 
     .PatternTintAndShade = 0 
    End With 
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone 
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone 
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone 
    Selection.Borders(xlEdgeTop).LineStyle = xlNone 
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone 
    Selection.Borders(xlEdgeRight).LineStyle = xlNone 
    Selection.Borders(xlInsideVertical).LineStyle = xlNone 
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone 
Next i