Clever-Excel-Forum

Hallo Zusammen,
gibt es hier für ein "Autofit" Befehl, welcher automatisch , nur die beschriebenen Zeilen mit einem Rahmen "verziert"
Ich habe es jetzt mit einem festgelegtem Bereich.

Code:
Range("A7:D257").Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

Grüße !

Hallo,

geht doch ohne Makro mit bedingter Formatierung.
Markiere den Bereich A7:D257 und gib die Formel =A7<>"" unter Neue Regel - Formel ... ein. Als Format stellst Du den gewünschten Rahmen ein.

Gruß Uwe

Hallom danke für deine schnelle Antwort.
Ginbge es auch per Makro? Ich möchte dies im COde einfügen, um sozusagen das ganze zu automatisieren , man drückt nur noch auf das Makro , und man hat die fertige Tabelle !

Beste Grüße

Hallöchen,

im Prinzip so, wenn es um Zellen mit Werten geht.
Sub test()
With ActiveSheet.Cells.SpecialCells(xlCellTypeConstants)
.Borders(xlEdgeLeft).LineStyle = xlContinuous
End With
End Sub

Hast Du auch welche mit Formeln, dann kommt noch mal (fast) das Gleiche mit xlCellTypeFormulas dazu.

technoente

Kuwer

technoente

schauan