habe 2 Zellen wo 1x Rahmen links und 1x Rahmen rechts gesetzt wird.
With Worksheets("Turnier-Board").Range("DN17").Borders(xlEdgeLeft) ' "Rahmen links"
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Worksheets("Turnier-Board").Range("DT17").Borders(xlEdgeRight) ' "Rahmen rechts"
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
Nun wiederholt sich das Prozedere jede 10. Zeile.Nun habe ich mir gedacht,ich könnte den Rest _
hiervon ableiten:
For i = 17 To 637 Step 10
.Range("DN17").Copy .Cells(i, 118)
.Range("DT17").Copy .Cells(i, 124)
If i = 637 Then Exit For
.Range("DN17").Copy .Cells(i + 10, 118)
.Range("DT17").Copy .Cells(i + 10, 124)
Next
Leider klappt das so nicht,da laut Hilfe der Punkt vor "Range" der Fehler ist. Nächster Lö _
sungsansatz:
For Z = 7 To 637 Step 10
With Worksheets("Turnier-Board").Range(Cells(Z, 118)).Borders(xlEdgeLeft) ' "Rahmen _
links"
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
With Worksheets("Turnier-Board").Range(Cells(Z, 124)).Borders(xlEdgeRight) ' "Rahmen _
rechts"
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
Next
Aber auch das will nicht funktionieren.Ich vermute,das ich gar nicht so weit weg bin von der Lösung.Wer kann mir helfen?
Lg Frank