funktion Linienlänge summieren
05.07.2013 12:41:39
stefan
ich habe eine Funktion vom Udo (aus dem Pott :-)) bekommen, welches mir
in einen Bereich die Längen aller Linien summiert.
Function LaengeLinien(rng As Range)
Application.Volatile
Dim shp As Shape, l As Single
For Each shp In ActiveSheet.Shapes
With shp
If .Type = msoLine Then
If Not Intersect(rng, .TopLeftCell) Is Nothing _
And Not Intersect(rng, .BottomRightCell) Is Nothing Then
l = l + Sqr(.Height ^ 2 + .Width ^ 2)
End If
End If
End With
Next
LaengeLinien = l
Application.Volatile
End Function
Kann mir jemad sagen, was ich falsch, bzw. wie ich dies verhindern kann ?
Gruß
Stefan
Anzeige