Anzeige
Archiv - Navigation
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Userform Combobox füllen
snore
Hallo Excelprofis,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Userform Combobox füllen
20.08.2012 17:28:33
ransi
Hallo
Versuch mal so:
.
.
With Worksheets("Listen_1")
    vTemp = .Range("M12:M" & .Cells(.Rows.Count, 12).End(xlUp).Row)
End With
.
.

ransi
AW: Userform Combobox füllen
20.08.2012 17:32:35
snore
Hallo ransi,
Danke, funktioniert wie ich mir das gewünscht habe,
nochmals danke
gruß
snore
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige