VBA BorderAround um bestimmte Range?

... komplette Frage anzeigen

2 Antworten

Ich würde mir ein Makro aufzeichnen, welches mir die Befehle zur Rahmensetzung ausgibt. Diese würde ich auf 

Sheets("Mappe1").Range("A" & Last & ":N" & Last)

anwenden

Antwort bewerten Vielen Dank für Deine Bewertung

Ich habs gerade selber hinbekommen:

   Dim BorderIndex As Variant
For Each BorderIndex In Array(xlEdgeTop, xlEdgeLeft, xlEdgeBottom, xlEdgeRight, xlInsideHorizontal, xlInsideVertical)
With Range(Cells(Last, "A"), Cells(Last, "U")).Borders(BorderIndex)
.Weight = xlThin
.ColorIndex = 1
End With
Next BorderIndex
Antwort bewerten Vielen Dank für Deine Bewertung