Excel Rahmen von Zelle anpassen VBA

Duke00

Lt. Commander
Registriert
Sep. 2010
Beiträge
1.914
Hey Leute wieso funktioniert mein Code hier nicht:

Code:
With app1.Worksheets("Gesamtstückliste")  
    For a = 1 To Pagebreakcount
        PageBreak = app1.Worksheets("Gesamtstückliste").HPageBreaks(a).Location.Row
        .Range(.Cells(PageBreak - 1, 1), .Cells(PageBreak - 1, 12)).Select
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlMedium
        End With
    Next a
End with

Es soll jeweils die Letzte Reihe des Blattes eine dicke durchgezogene Line bekommen. Ich hab nachgeschaut es wird der richtige Bereich Markiert jedoch dann der Rahmen nicht geändert, jedoch gibt es auch keine Fehlermeldung.
Ne Lösung ohne "select" wäre übrigens sehr cool :D

Code:
With app1.Worksheets("Gesamtstückliste")      
    For a = 1 To Pagebreakcount
        PageBreak = app1.Worksheets("Gesamtstückliste").HPageBreaks(a).Location.Row
        .Rows(PageBreak - 1).Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Rows(PageBreak - 1).Borders(xlEdgeBottom).Weight = xlThick
    Next a
    End With

So funktioniert es aber leider halt für die ganze Reihe
Danke schon mal im voraus
Ergänzung ()

Problem wurde gelöst, kann somit hier geschlossen werden!
 
Zuletzt bearbeitet:
setze doch bitte die Lösung rein, dann profitieren andere auch davon, die das gleiche Problem haben :)
 
Zurück
Oben