Guten Morgen zusammen,
ich habe eine warscheinlich recht simple Frage:
Wie kann ich UserForms (UF_1 bis UF_10) in einer Schleife durchlaufen?
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)
'Wert aus Userform holen
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
Das Me.Controls stammt noch aus der Zeit, wo es nur eine UserForm gab, aber aufgrund der Anzahl der zu ändernden Werte muss ich auf mehrere gehen. Diese sollen also jetzt in einer Schleife durchlaufen werden, sodass man letztlich erstmal alle Werte auf den UserForms eintragen lässt, und erst zum Schluss, wenn alle UserForms vom Benutzer mit Werten versehen wurden, man in diese Schleife geht und somit alle Werte aller UserForms direkt übertragen werden.
|