in meiner Tabelle soll in Zeilen, die mit 4 enden (14,24,34,...) eine mittelstarke, durchgezogene Linie unten (xlEdgeBottom) gezeichnet werden. Zeilen, die mit 9 enden (19,29,39,...) sollen einen anderen Linientyp erhalten:
If zeile Mod 10 = 4 Then
With Range(Cells(zeile, 1), Cells(zeile, 137))
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlMedium
End With
End If
If zeile Mod 10 = 9 Then
With Range(Cells(zeile, 1), Cells(zeile, 137))
.Borders(xlEdgeBottom).LineStyle = xlSlantDashDot
.Borders(xlEdgeBottom).Weight = xlMedium
End With
End If
Während es bei den "9"er Zeilen keine Probleme macht, bleibt die Codeausführung bei den "4"er Zeilen in der Zeile
.Borders(xlEdgeBottom).Weight = xlMedium
mit Fehlermeldung "Die Weight-Eigenschaft des Border-Objektes kann nicht festgelegt werden." stehen.
Warum?
Grüße
Heiko