Hier der Code
Private Sub CommandButton1_Click()
If ListBox1.ListIndex >= 0 Then
Main.main_material.name = ListBox1.value
MsgBox Main.main_material.name
Main.main_materialclass.name = ListBox2.value
MsgBox Main.main_materialclass.name 'Hier gebe ich die Variable aus
und sie istr manchmal leer das heißt die MSGBox ist leer
Unload Me
enter_mat2.Show
Else
MsgBox "Eingabe wird erwartet"
Beep
End If
End Sub
Wenn ich das Userform neu Aufrufe funktionierts dann manchmal auch, dann
jedes zweite mal. Dann mal immer. Ganz seltsam.
Dazu zusagen wäre hilfreich zu wissen dass das Problem nur Auftritt wenn ich
in der Userform Initialize() einen Wert aus der Variablen
Main.main_materialclass.name auslese und die Listbox2 als Grundzustand auf
diesen Wert setze mittels ListBox2.Value = Main.main_materialclass.name.
In der ListBox ist nach start des Userforms immer der Korrekte Wert
angezeigt bzw. angewählt, jedoch wird er beim klicken auf OK nicht
gespeichert. Hoffe das war genauer! Vielleicht weiß jemand was.