ich hab ein "hoffentlich" keines Problem, ich benutze folgenden Code in meiner Userform um Daten in eine Combobox einzulesen.
soweit so gut, funktioniert auch sehr gut, nur ich muss das Tabellenblatt offen haben um die Daten einzulesen, ich will aber auf einen Anderen Tabellenblatt die Userform öffen, was muss ich an den Code ändern?
für eure hilfe wäre ich sehr dankbar
Gruß
snore
Private Sub UserForm_Initialize()
Dim iIndx As Integer
Dim SC_SL As Object
Dim vTemp As Variant
Set SC_SL = CreateObject("System.Collections.SortedList")
vTemp = Worksheets("Listen_1").Range("M12:M" & Cells(Rows.Count, 12).End(xlUp).Row)
For iIndx = 12 To UBound(vTemp)
If vTemp(iIndx, 1) "" Then SC_SL(vTemp(iIndx, 1)) = ""
Next iIndx
ComboBox4.Clear
For iIndx = 0 To SC_SL.Count - 1
ComboBox4.AddItem SC_SL.GetKey(iIndx)
Next iIndx
End Sub