Ich möchte ein Art Diagramm erstellen.
Wenn Zb.in B19 ein "x" und in C9 ist ein "x" das dann mittels Strich verbunden werden.
Ist das möglich ?
Gruss, Heinz
Verlauf | |||||||||||||||||||||||||||||||||||||||||
| |||||||||||||||||||||||||||||||||||||||||
Verlauf | |||||||||||||||||||||||||||||||||||||||||
| |||||||||||||||||||||||||||||||||||||||||
Public Sub Linie_zw_c9_und_b19()
Dim l!, t!, l1!, t1!
If [c9] = "x" And [b19] = "x" Then
With [c9]
l = .Left + (.Width / 2)
t = .Top + (.Height / 2)
End With
With [b19]
l1 = .Left + (.Width / 2)
t1 = .Top + (.Height / 2)
End With
With ActiveSheet.Shapes.AddLine(l, t, l1, t1).Line
.Weight = 2#
.ForeColor.RGB = RGB(255, 55, 55)
End With
End If
End Sub
Verlauf | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||