Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: ComboBox füllen aus anderer Datei

ComboBox füllen aus anderer Datei
18.05.2018 15:00:30
Schnider
Guten Tag
Ich hänge nun wieder seit Stunden an einem vermutlich Kinderleichten Problem.
ComboBox1 (in UserForm1), soll befüllt werden aus Datei2, Tabellenblatt1, SpalteA
am besten mit Titel
Ich habe schon etliches versucht, aber irgendwie füllt es sie mir nicht. Innerhalb einer Datei weiss ich wie und ist auch kein Problem, aber wie verweise ich ohne Laufzeitfehler 9 (Index ausserhalb des Bereichs), auf eine andere Datei
Ich habe in allen Dateien eine Tabelle mit Überschriften und die Combobox ist im Initialize der Userform1
With Workbook("Datei2.xlsx")
Worksheets("Tabelle1")
........
Auf was muss ich achten, ob ich ListIndex oder Rowsource benutzen muss?
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ComboBox füllen aus anderer Datei
18.05.2018 15:14:39
Schnider
Tut mir leid, dachte es wäre als geschlossen oder erledigt markiert und bekäme daher keine Antworten mehr
Anzeige
AW: ComboBox füllen aus anderer Datei
18.05.2018 18:42:06
Matthias
Moin!
Also am besten mal deinen bisherigen Code aus dem initialize posten. Dann kann man schauen, wo der Fehler liegt und was man anpassen muss.
Ansonsten wie folgt programmieren:
Me.ComboBox1.List = Application.Transpose(Workbook("Datei2.xlsx").Worksheets("Tabelle1").Range("A1:A7"))

Wobei du nicht mit RowSource arbeiten solltest, da dies beim Schließen der Datei einen Fehler auswerfen sollte.
VG
Anzeige
AW: ComboBox füllen aus anderer Datei
22.05.2018 07:13:48
Schnider
Mein bisherieger Code:
With Workbooks("Kunden.xlsm").Worksheets("Lieferanten").Cells("A")
If ComboBox2.Text = "" Then
Label3 = ""
Label4 = ""
Label5 = ""
Label6 = ""
Else
Label3 = Workbooks("Kunden.xlsm").Worksheets("Lieferanten").Cells(ComboBox2.ListIndex + 2, 2)
Label4 = Workbooks("Kunden.xlsm").Worksheets("Lieferanten").Cells(ComboBox2.ListIndex + 2, 3)
Label5 = Workbooks("Kunden.xlsm").Worksheets("Lieferanten").Cells(ComboBox2.ListIndex + 2, 5)
Label6 = Workbooks("Kunden.xlsm").Worksheets("Lieferanten").Cells(ComboBox2.ListIndex + 2, 7)
End If
End With
Ist eine ComboBox im Tabellenblatt.
2. Frage: Verhält sich die ComboBox in der UserForm genauso oder muss da ein anderer Code vorhanden sein?
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige