Userform in Function mit Parameterübergabe
23.05.2013 07:42:19
Eric
ich sitze schon seit einiger Zeit an einem Problem...
Ich habe einen "Main Sub" für den ich eine Function geschrieben habe...
Diese führt immer das Gleiche aus nur für verschiedene "Projekte"!
Jetzt möchte ich in der Function eine Userform aufrufen und das Ergebnis, welches man in einer Combobox auswählt soll in der Function weiterverarbeitet werden können.
der Aufruf in der function mache ich über
UserForm1.Show
Mein Code für die Userform sieht folgendermaßen aus:
Option Explicit
Private Sub UserForm_Initialize()
Dim lngUntersterEintrag As Long
lngUntersterEintrag = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row
Me.ComboBox1.List = Range("F2:F" & lngUntersterEintrag).Value
ComboBox1.Style = fmStyleDropDownList
End Sub
Private Sub CommandButton1_Click()
Dim reihe As String
reihe = ComboBox1.Value
Unload Me
End Sub
mit der Variable "reihe" möchte ich dann in der function weiterarbeiten...wie mache ich das?
und dann noch eine nebenfrage zur ComboBox: Was muss ich schreiben, dass in meiner Liste zb der oberste Wert schon vorausgewählt ist?
ich hoffe ihr könnt mir helfen