|
Hallo,
ich möchte im Rahmen meiner Bachelorarbeit ein Excel Tool schreiben zur Berechnung von Holzbauverbindungen.
Derzeit stehe ich vor folgendem Problem:
Ich habe eine Userform mit einer Comobox zur Auswahl wie viele Bauteile angeschlossen werden.
Jetzt möchte ich beim Klicken auf einen Button für jedes Bauteil dynamisch je zwei Variablen erzeugen lassen. Sprich bei Auswahl in der combobox "2" sollen z.b. variablea1, variableb1, variablea2 und variableb2 erzeugt werden.
Problem: Die Variablen auf Click erzeugen und danach global(public) verfügbar machen.
Bisher hab ich folgendes:
Public gintnh, gintnn, gintanzahlbt As Integer
Sub variablendeklaration()
gintanzahlbt = ufsystemeingabe.cbanzahlbt.Value
'Erstellung dynamischer 1D Arrays für die Variablen Nd und Qd, was nicht geht da innerhalb der SUB
Public gdblNd(1 To gintanzahlbt) As Double
Public gdblNd(1 To gintanzahlbt) As Double
End Sub
Sub eingangswerte()
Dim inti As Integer
'dynamische Zuweisung von Werten
'bei leeren Felder wird Variable zu "0" gesetzt
For inti = 1 To gintanzahlbt
If IsEmpty(Val(ufsystemeingabe("tbndbt" & CStr(inti)))) = 1 Then
gdblNd(inti) = 0
gdblQd(inti) = 0
Else
gdblNd(inti) = Val(ufsystemeingabe("tbndbt" & CStr(inti)))
gdblQd(inti) = Val(ufsystemeingabe("tbqdbt" & CStr(inti)))
End If
Cells(inti + 10, 1) = gdblNd(inti)
Cells(inti + 10, 2) = gdblQd(inti)
Next
end sub
Für jede Art von Anmerkungen bin ich sehr dankbar :)
Grüße
Robin
|