Dim i As Integer, j As Integer
Dim strLaenge As String, strWinkel As String
Dim dblLaenge As Double, dblWinkel As Double
Dim strSkizze As String
Dim ctl As MSForms.Control
For j = 1 To 2
For i = 1 To 6
strLaenge = "D" & CStr(i) & "_1_" & CStr(j)
strSkizze = "D" & CStr(i) & "_1@" & CStr(j)
For Each ctl In Me.Controls
If ctl.Name = strLaenge Then
dblLaenge = ctl.Value
End If
Next ctl
Laengenaenderung dblLaenge, strSkizze
Next i
Next j