Automatische Rahmenanpassung an Text

[technoente]

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 !

[Kuwer]

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

[technoente]

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

[schauan]

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.