Probleme mit Schleife
07.01.2004 19:19:43
NE
ich hoffe Ihr könnt mir helfen, da der Code nur zT Excel betrifft.
Ich möchte externe Koordinaten in ein sheet schreiben, wobei für jeweils alle
Objekte in der Auswahl, der Mittelpunkt in Spalten A, B, C geschrieben werden soll.
Irgendwie läuft die Schleife jeweils mehrfach ab, so dass jeweils in A,B,C diesselben Werte stehen.
Habe momentan einen totalen Klemmer, hätte jemand evtl. ne Idee was falsch sein könnte ?
lg Nancy
--
For i = 1 To sset.Count 'Anzahl Objekte in Auswahlset
For Each entry In sset ' jedes Objekt in Set
dim center as Variant
center = entry.center 'der Mittelpunkt x,y,z
With ExcelSheet.activesheet
.cells(i, 1) = center(0) 'x
.cells(i, 2) = center(1) 'y
.cells(i, 3) = center(2) 'z
End With
Next entry
Next i