Schleife mit Call einer Untersub
07.09.2019 12:06:38
Raphael
ich versuche eine Schleife zu basteln die eine Untersub aufruft.
In der Untersub werden verschiedene Rechtecke angeordnet. Diese Anordnung möchte ich in der Schleiefe wiederholen.
Allerdinge erreiche ich nur unterschiedliche Fehlermeldungen wie Syntaxfehler oder auch "Erwartet benannte Parameter" :(
Die Fehler kommen immer in der Zeile ab set. Ich denke die Anweisungen in der Klammer ab dem Ausdruck "Left" sind soweit ok
Dim object As Integer
Dim objShapeMF As Integer 'shape
Dim lngIndex1MF As Long, lngIndex2MF As Long
Dim sngWidthMF As Single, sngHeightMF As Single
Dim sngLeftMF As Single, sngTopMF As Single
Dim sngDistanceMFr As Single
Dim sngDistanceMFc As Single
Dim looprowMF As Single
Dim loopcolumnMF As Single
sngWidthMF = Cells(47, 90).Value
sngHeightMF = Cells(47, 92).Value
sngLeftMF = Cells(47, 86).Value
sngTopMF = Cells(47, 88).Value
sngDistanceMFr = Cells(47, 94).Value
sngDistanceMFc = Cells(47, 97).Value
looprowMF = Cells(47, 95).Value
loopcolumnMF = Cells(47, 98).Value
'Panels in Manufacturerpanel mit Schleife
'Ab hier wird das Panel wiederholt
'Die notwendigen Daten werden aus dem Reiter Panel in den Reiter Manufacturerpanel gespiegelt, _
_
_
der Startpunkt des ersten Panels wird dazu neu berechnet
For lngIndex1MF = 0 To loopcolumnMF
For lngIndex2MF = 0 To looprowMF
Set objShapeMF = ActiveSheet.Shapes.AddShape(Type:=objShapeMF, Call _
Panels2Manufacturerpanel, _
Left:=sngLeftMF + sngWidthMF * lngIndex2MF + sngDistanceMFr * lngIndex2MF, _
Top:=sngTopMF + sngHeightMF * lngIndex1MF + sngDistanceMFc * lngIndex1MF, _
Width:=sngWidthMF, Height:=sngHeightMF)
Next
Next
Wie muss die Schleife gestaltet werden das die Untersub entsprechend oft durchlaufen wird?
Danke schon mal
Gruß
Raphael