wie kann ich sagen,
dass in der letzten beschriebenen zeile von Splate A bis G alle Zellen andere unteren Seite an Rahmen haben sollen.
hat jemand hierzu eine Hilfe?
Sub prcRahmen_unten_A_G_Letzte()
Dim wks As Worksheet
Dim Zelle As Range
Set wks = ActiveSheet
With wks
Set Zelle = .Range("A:G").Find(What:="*", After:=.Range("A1"), LookIn:=xlFormulas, _
lookat:=xlWhole, Searchorder:=xlByRows, searchdirection:=xlPrevious)
With .Range(.Cells(Zelle.Row, 1), .Cells(Zelle.Row, 7))
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
'xlHairline 1 Haarlinie (dünnster Rahmen)
'xlMedium -4138 Mittel
'xlThick 4 Dick (breitester Rahmen)
'xlThin 2 Dünn
End With
End With
End With
End Sub