Ich hab ne ziemlich alte Datei aus meinem Beispielordner gekramt.
Könnte mir jemand helfen den Code anzupassen?
Beschreibung befindet in der Datei.
Vielen Dank vorab.
https://www.herber.de/bbs/user/147166.xlsm
Gruß Charly
'Zeichnen - waagerecht
ActiveSheet.Shapes.AddLine(Range("B1").Left, y + Cells(yy, xx).Height / 2, x, y + Cells(yy, xx).Height / 2).Select
'zeichnen - senkrecht
ActiveSheet.Shapes.AddLine(x + Cells(yy, xx).Width / 2, Range("A4").Top, x + Cells(yy, xx).Width / 2, y). _
Select