Hallo,
ich will in 3 Blättern die Zellformatierung gleich ändern. Das heißt dass ich in allen 3 Blättern in der Abschlusszeile den gleichen Rahmen ziehen will. Nur funktioniert mein Code nicht ... ;)
Code sieht wie folgt aus:
Sheets("Summe").Select
Range(Cells(i, 2), Cells(i, 3)).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Sheets("Systeme").Select
Range(Cells(i, 2), Cells(i, 3)).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Sheets("Institute").Select
Range(Cells(i, 2), Cells(i, 3)).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Fehlermeldung ist:
Laufzeitfehler 1004
Die Select-Methode des Range-Objekts ist fehlerhaft.
Markiert wird dabei das zweite mal Range(....).Select
aufegrufen wird das ganze vom Sheet "Summe" aus
Kann mir wer helfen warum der meckert, und wie ich das umgehe? (Ahnung hab ich schon warum, aber nicht wie ich das umgehe.)