Hallo Heiko,
momentan habe ich nur den oben gezeigten Code auf dem "Ausführen-Button" der UserForm UF_A hinterlegt, hier also nochmal die Schleife, die die Variablen durchlaufen soll:
Private Sub mach_Click()
Dim i As Integer, j As Integer
Dim Laenge As String
Dim Skizze As String
For j = 1 To 2
For i = 1 To 6
Laenge = "D" & i & "_1_" & j
Skizze = "D" & i & "_1@" & j
Laengenaenderung (Laenge), (Skizze)
Next i
Next j
End Sub
Die dbl-Werte liegen in TextFeldern (vom User eingegeben und veränderlich) mit der Bezeichnung D1_1_1 bis D6_1_1 etc (siehe Schleife oben).
In der Schleife wird der String auch erzeugt ( String-Variable Laenge = "D1_1_1"), aber jetzt fehlt mir die Zuweisung, dass sich dieser String in eine Double-Variable verändern soll um somit den dbl-Wert aus dem Textfeld D_1_1_ der UserForm UF_A in die Sub Laengenaenderung zu geben.
Hier sollte ich noch sagen, dass, wenn man keine Schleife nutzt, man die Laengenaenderung einfach so runterschreiben koennte:
Sub Laengenaenderung()
Dim Wert as Double 'Hier soll
Wert = 35 'Dimension mm
Set myDimension = Part.Parameter(Skizze)'Anwahl des Masses in einer bestimmten Skizze
myDimension.SystemValue = Wert / 1000 'Double-Wert, hier kann auch eine andere Zahl aus einer UserForm abgerufen werden
End Sub
Ich habe hier leider keine Möglichkeit gefunden, Bilder einzubinden - wenn du mir deine Email-Adresse sagst, kann ich dir auch gerne den Code bzw. ein paar Screenshots schicken.
Hoffe das hilft Dir beim Helfen!? ;)
|