Duke00
Lt. Commander
- Registriert
- Sep. 2010
- Beiträge
- 1.914
Hey Leute wieso funktioniert mein Code hier nicht:
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
So funktioniert es aber leider halt für die ganze Reihe
Danke schon mal im voraus
Problem wurde gelöst, kann somit hier geschlossen werden!
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

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: