ich möchte gerne mehrere Autoformen, hier Rechtecke, in Reihen und Spalten einfügen. Alles auf dem selben Arbeitsblatt
Die Größe und Positionen habe ich mir in Excel berechnet. Ebenso die Anzahl Rechtecke in der Reihe und die Anzahl der Reihen. Die Abstände zueinander in Spalten und Reihen habe ich auch in entsprechenden Zellen berechnet.
Wie bekomme ich nun den VBA Code dazu die richtige Anzahl Rechtecke in Reihen und Spalten mit den richtigen Abständen zueinander einzufügen.
Bis jetzt habe ich folgenden Codeschnipsel, der mir zwar bereits die ersten 5 Rechtecke einfügt, aber alle an der selben Position.
'Deklarierung Variable für shape2/TabRoute
Dim Farbe2
Farbe2 = Range("ce11").Interior.Color
Dim Left2
Left2 = Range("ch11")
Dim Top2
Top2 = Range("cj11")
Dim Width2
Width2 = Range("cl11")
Dim Hight2
Hight2 = Range("cn11")
Dim ishape2
ishape2 = 1
Dim Endwertrow2
Endwertrow2 = Range("cq11")
Dim Abstandrow2
Abstandrow2 = Range("co11")
Dim Endwertcolumn2
Endwertcolumn2 = Range("ct11")
Dim Abstandcolumn2
Abstandcolumn2 = Range("cr11")
'shape2/TabRoute mit Schleife -> FUNKTIONIERT NOCH NICHT->daher auskommentiert
For ishape2 = 1 To Endwertrow2
'activeshape.offset(Abstandrow2,0)
'If Endwertrow2 = Range("cq11") Then
''Offset(endwertcolumn2,0)
''ishape2 = 1 To Endwertrow2
'End If
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Left2, Top2, Width2, Hight2).Select
Selection.ShapeRange.Name = Range("cc11")
Selection.Name = Range("cc11").Value
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = Farbe2
.Transparency = 0
.Solid
End With
'ohne Rahmen
Selection.ShapeRange.Line.Visible = msoFalse
Next
Im angehängten Beispiel sind die berechneten Zellen durch Werte ersetzt.
https://www.herber.de/bbs/user/130301.xlsm
Danke schon mal
Gruß
Raphael