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
Habe nun das Problem, dass die Werte der Funktion, sobald ich das Tabellenblatt wechsle auf #WERT! zurückspringt...Kann mir jemad sagen, was ich falsch, bzw. wie ich dies verhindern kann ?
Gruß
Stefan