Private Sub DrawLKW()
Dim L As Single, B As Single, C As Single, D As Single, Anzahl As Single
Anzahl = InputBox("ANZAHL LKW?" & Chr(13) & "Wieviele LKW sollen gezeichnet werden?")
Oben = 250
B = 240
C = 745
D = 270
L = 254
For x = 1 To Anzahl
With ActiveSheet.Shapes
.AddShape(msoShapeRectangle, 400, Oben, B, L).Name = "Vorne"
.AddShape(msoShapeRectangle, 400 + B, Oben, C, L).Name = "Mitte"
.AddShape(msoShapeRectangle, 400 + B + C, Oben, D, L).Name = "Hinten"
With .Range(Array("Vorne", "Mitte", "Hinten")).Group
End With
End With
Oben = Oben + L + 20
Next
End Sub