Ich versuche, eine einfache Funktion zu erstellen, mit der jeder Zelle in einem bestimmten Bereich Rahmen hinzugefügt werden. Durch die wundervolle Aufnahme wird eine Tonne Code erzeugt, der völlig unbrauchbar ist. Der folgende Code zeigt eine 'Tabelle' von Daten an, um jede Zelle in diesem Bereich möchte ich einen Rahmen hinzufügen. Online war ich nicht in der Lage, eine einfache oder klare Antwort darauf zu finden.

Jede Hilfe wird sehr geschätzt!

Set DT = Sheets("DATA")
endRow = DT.Range("F" & Rows.Count).End(xlUp).Row
result = 3

For I = 2 To endRow
    If DT.Cells(I, 6).Value = Range("B1").Value Then
        Range("A" & result) = DT.Cells(I, 6).Value
        Range("B" & result) = DT.Cells(I, 1).Value
        Range("C" & result) = DT.Cells(I, 24).Value
        Range("D" & result) = DT.Cells(I, 37).Value
        Range("E" & result) = DT.Cells(I, 3).Value
        Range("F" & result) = DT.Cells(I, 15).Value
        Range("G" & result) = DT.Cells(I, 12).Value
        Range("H" & result) = DT.Cells(I, 40).Value
        Range("I" & result) = DT.Cells(I, 23).Value
        result = result + 1
    End If
Next I