Diagonale mit VBA einzeichnen

[Wolf59]

Entschuldigung, wollte jedoch eine Überarbeitende Datei hochladen

Hat wohl nicht geklappt

Versuch es nochmal[attachment=54810]

[Wolf59]

Möchte mich herzlich bedanken für die Hilfe 
vor allem @SNB, ohne seinen Rat hätte ich es nicht hinbekommen

Die Fertige Datei kann man sich im Anhang ansehen

[Wolf59]

Eine Frage hät ich noch

Wie bekomm ich bei den Diagonalen eine andere Farbe hin z.B. Grau

[snb]

Code:

Sub M_snb()
  With Tabelle5
    With .Shapes.AddConnector(1, .Cells(13, 31).Left, .Cells(8, 12).Top, .Cells(13, 11).Left, .Cells(13, 12).Top).Line
       .Weight = 2
       .ForeColor.SchemeColor = 2
    End With    
  End With
End Sub

Avoid 'select' and 'Activate' in VBA