|
Hallo zusammen,
mit der folgenden Sub möchte ich die Werte in einem aufgerufenen Formular vorbelegen.
Zwar klappt das, allerdings nur im aktuellen Sheet. Die beiden Combo-Boxen w.u. werden mit den genannten Bereichen A2-10 bzw. B2-8 befüllt, jedoch aus dem aktuellen Sheet. Der Beginn des Arguments "Tabelle3." wird nicht berücksichtigt.
Was mache ich falsch?
Private Sub UserForm_Initialize()
'Formularbeschriftung:
Me.Caption = "Anwender: " & Environ("username") & " " & Date
Me.Caption = "Eingabe der Parameter " & Environ("username")
'Fokus im Formular setzen
Me.ComboBox_progr.SetFocus
'Vor-Befüllen der Eingabefelder
Me.ComboBox_progr.RowSource = Tabelle3.Range("A2:A10").Address
Me.ComboBox_spreiz.RowSource = Tabelle3.Range("B2:B8").Address
Me.text_midpoint.Value = "99999977"
End Sub
Danke für Hilfe!!
|