✔ Excel - Rahmen um Zellen (automatisch bis zur letzten Reihe)

[Yaslaw]

Deine Lösung ist ein Wiederspruch zu deiner Anforderung. Wie bereits geschrieben. Mache ein Range von A1 bis zur letzten Zeile und formatiere diesen Range.
Nix mit Schleife.
Meine Funktionen liefern dir die letzte verwendete Zeile und Spalte. Daraus wieder ein Range von A1 her machen und diesen formatieren.

    Dim source As Worksheet
    Dim lastRow As Long
    Dim lastCol As Long
    Dim rowNr As Long
    Dim rng As Range
 
    Set source = Worksheets("Data")
    lastRow = xlsGetLastRow(source)
    lastCol = xlsGetLastColumn(source)
    Set rng = source.Range("A1", source.Cells(lastRow, lastCol))
    With rng.Borders(xlEdgeLeft)
                .LineStyle = xlContinuous
                .Weight = xlMedium
                .ColorIndex = 3
    End With
    With rng.Borders(xlEdgeTop)
    ...

 

[jerry0110]

Danke!

Jetzt klappt es.

Das einzige was ich jetzt noch eingefügt habe ist:

For Each source in Worksheets

der o. g. Code

Next

Um alle Worksheets direkt mit zu bearbeiten.