Userform-Variablen-Problem
30.03.2020 10:42:23
Steffen
ich habe zwei Formulare, dabei dient das erste als Dateneingabe. Mit dem Button "Daten einfügen" startet das Makro. Das zweite Formular habe ich aus dem Internet gezogen und modifziert und dient als Statusleiste.
Leider möchte der Code die Variablen nicht an den Letzten Call Befehl übergeben bzw. kann ich diese auch nicht mit i=textbox1 etc. auslesen. Bedeutet, dass im Dritten Code die Variablen i und j="" sind.
By the Way ist das ein SolidWorks-Makro, falls es relevant ist
Leider kann ich keine Testdatei uploaden.
Vielen Dank im voraus.
Gruß
Folgende Codes:
'*****Code für Ersten Userform
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
If TextBox1 > TextBox2 Then
i = TextBox1
j = TextBox2
Else
i = TextBox2
j = TextBox1
End If
PB1.Show
End Sub
'***Code von PB1
Private Sub UserForm_Activate()
Dim i As Integer
Dim j As Integer
Dim SW As Long
SW = 0
Label2.Width = 0
Call Code(i, j)
End Sub
'*****Dritter Code
Sub Code()
'[...]
Dim i As Integer
Dim j As Integer
Dim p As Long
Dim Spalte As Integer
'***************************************************
SW = 100 'Schrittweite festlegen
Länge = 0
Schritt = PB1.Label1.Width / SW 'Schrittbreite pro Aktualisierung
p = 5
Länge = Länge + Schritt
PB1.Label2.Width = Länge
PB1.Label3.Caption = Format(p / SW, "0 %")
DoEvents
If i > 9200 Or j > 9200 Then
MsgBox "Die Geometrie ist zu groß, bitte maximal pro Parameter 9200 eingeben"
Exit Sub
End If
If i MsgBox "Die Geometrie ist zu klein, bitte minimal pro Parameter 1560 eingeben"
Exit Sub
End If
'[....]
End Sub