|
Hallo zusammen,
habe ein kleines Problem, hoffe ihr könnt mir helfen:
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
Sub Laengenaenderung(Laenge As String, Skizze As String)
Dim Laenge_Dbl As Double
Laenge_Dbl = Laenge
Set myDimension = Part.Parameter(Skizze)
myDimension.SystemValue = Laenge_Dbl / 1000
End Sub
Das Problem hierbei ist, dass Laenge ein String ist. Der Variablen, die hier hochgezählt wird (angefangen bei "D1_1_1", endend bei "D6_1_2") ist in der Userform "UF_A" ein jeweilger Wert as Double hinterlegt, der an ein CAD-Programm übergeben werden soll.
Nun die Frage, wie ich die String-Variable ("D1_1_1) so umgewandelt bekomme, dass sich VBA den Double-Wert der Variablen (z.B. 35) herausholt und ich damit weiterarbeiten kann?
Ich habe es einfach mal versucht, aber da er natürlich nicht mit den unterschiedlichen Datentypen klarkommt, gibt es nur einen Fehler.
Ist warscheinlich nur ein Einzeiler, aber ich bin nicht so der Programmierer, daher hoffe ich auf eure Hilfe.
|